This website is not affiliated with, sponsored by, or approved by SAP AG.

delete

Discussion about non-SAP related issues: Inquiries, Personal & Commercial advertisements, etc. ( For registered users only)

Moderators: rtella, Snowy, thx4allthefish, The Prince Of Darkness

Re: Will SAP technology get saturated in future?

Postby Rich » Tue Sep 25, 2012 5:13 am

thx4allthefish wrote:air traffic control systems,


And some of those are running on DGC Nova's and Super Nova's.... :shock:
Regards

Rich

Image
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
 
Posts: 7116
Joined: Thu Oct 31, 2002 4:47 pm
Location: Liverpool

Re: Will SAP technology get saturated in future?

Postby Sharpshooter » Wed Sep 26, 2012 6:49 am

I remember Nova:
Image

Original Planet of the Apes, 1968
Good luck!
Sharpshooter
 
Posts: 1172
Joined: Wed Mar 17, 2010 12:01 pm
Location: In the dark

Re: Will SAP technology get saturated in future?

Postby Craig » Wed Sep 26, 2012 7:48 am

thx4allthefish wrote:Oh good! Does that mean, I can skipp lingerie and go directly to the dress? Can't have much under that dress anyways:



Lingerie is NEVER to be skipped. It is a basic essential no matter how small.

Craig
Craig
 
Posts: 5505
Joined: Sun Oct 20, 2002 11:07 pm
Location: Heading back to the Milky Way...

Re: Will SAP technology get saturated in future?

Postby Craig » Wed Sep 26, 2012 7:51 am

Rich wrote:Have you scared Craig off or is he still asleep ?


Nope. She couldn't scare me off. But if I ever got the chance to take her out on the town I might have to spring for the rental of a hearse instead of a limo. :lol:

BTW Fish. I really like the hand bag. Doubles as a real nice set of brass knuckles!

Craig
Craig
 
Posts: 5505
Joined: Sun Oct 20, 2002 11:07 pm
Location: Heading back to the Milky Way...

Re: Will SAP technology get saturated in future?

Postby Rich » Wed Sep 26, 2012 8:16 am

YuriT wrote:@Rich, looks more like re-railing.

By the way COBOL is far from obsolete. People who know it are all retired now, so anyone knowing and working is worth his own weight in gold.


@Yuri.... Look at the dates....

Code: Select all
           $LIST
           $DATE          092612


           $JOB           COBOL HELLO WORLD
           $EXECUTE       IBJOB
IBJOB VERSION 5 HAS CONTROL.
$IBJOB         GO,LOGIC,MAP,FIOCS
$IBCBC HELLO   FULIST,REF,NODECK,M94,XR7
              HELLO                                                    09/26/12                            PAGE  1


REPLICA OF THE SOURCE PROGRAM AUGMENTED BY THE EQUIVALENT NAMES AND CARD NUMBERS ASSIGNED BY THE COMPILER.

                   0000 $IBCBC HELLO   FULIST,REF,NODECK,M94,XR7

                   0001 000100 IDENTIFICATION DIVISION.
                   0002 000200 PROGRAM-ID.            COB0.
                   0003 000300 AUTHOR.                RICHARD HARPER.
                   0004 000400 INSTALLATION.          IBM 7090.
                   0005 000500 DATE-WRITTEN.          SEPTEMBER 2012.
                   0006 000600 DATE-COMPILED.         SEPTEMBER 2012.
                   0007 000700*
                   0008 000800*
                   0009 000900*   OUTPUT 'HELLO WORLD'
                   0010 001000*
                   0011 001100*
                   0012 001200 ENVIRONMENT DIVISION.
                   0013 001300 CONFIGURATION SECTION.
                   0014 001400 SOURCE-COMPUTER. IBM-7094.
                   0015 001501 OBJECT-COMPUTER. IBM-7094.
                   0016 001600 INPUT-OUTPUT SECTION.
                   0017 001700 FILE-CONTROL.
                   0018 001800
                   0019 001900 DATA DIVISION.
                   0020 002000 WORKING-STORAGE SECTION.
            EN0231 0021 002100 01          FILLER                       PICTURE X.
                   0022 002200
                   0023 002300 PROCEDURE DIVISION.
                   0024 002301
                   0025 002400 CONT-SECT.
            EN0234(0025)
                   0026 002500 CONT-0000.
            EN0235(0026)
                   0027 002600         DISPLAY 'HELLO WORLD'.
                   0028 002700 CONT-9999.
            EN0236(0028)
                   0029 002800         STOP RUN.
                   0030 $CBEND
              HELLO                                                    09/26/12                            PAGE  2


COBOL CROSS REFERENCE DICTIONARY.
THE NUMBERS WHICH FOLLOW EACH EXTERNAL NAME ARE THOSE ASSIGNED BY THE COBOL COMPILER. IF A NAME IS FOLLOWED BY MORE
      THAN ONE NUMBER, THEY ARE ALL EN NUMBERS, ALTHOUGH ONLY THE FIRST ONE IS EXPLICITLY GIVEN AS  'ENXXXX'.

A 'GENERATED NAME NUMBER' (GNXXXX) IS GIVEN TO AN UNDEFINED PROCEDURE NAME.

A 'TEMPORARY STORAGE NUMBER' (TSXXXX) IS GIVEN TO AN UNDEFINED DATA NAME


CONT-SECT                           EN0234
CONT-0000                           EN0235
CONT-9999                           EN0236
              HELLO                                                    09/26/12                            PAGE  3


NO ERRORS WERE DETECTED BY THE COMPILER.
              HELLO                                                    09/26/12                            PAGE  4
            7094 RELMOD ASSEMBLY.  COMPILER GENERATED INPUT.


                   $IBLDR HELLO                                                09/26/12    HELL0000

              HELLO                                                    09/26/12                            PAGE  5
           ASSEMBLED TEXT.

                   $TEXT  HELLO                                                            HELL0001


BINARY CARD (NOT PUNCHED)
       00000  100000000000     00001         USE     0
                        00000         HELLO  NULL
       00000  1 00000 0 00013  10001  GN0000 SAVEN   3,5,6,7,1,2,4,I
       00001  0774 00 7 00000  10000
       00002  0774 00 6 00000  10000
       00003  0774 00 5 00000  10000
       00004  0774 00 3 00000  10000
       00005  0774 00 2 00000  10000
       00006  0774 00 1 00000  10000
       00007  0774 00 4 00000  10000
       00010  0441 00 0 00012  10001
       00011  0020 00 4 00001  10000
       00012  0 00000 0 00000  10000
       00013  0604 00 0 00012  10001
       00014  0634 00 4 01400  10011
       00015  0634 00 4 00007  10001
       00016  0634 00 1 00006  10001
       00017  0634 00 2 00005  10001
       00020  0634 00 3 00004  10001
       00021  0634 00 5 00003  10001

BINARY CARD (NOT PUNCHED)
       00022  0634 00 6 00002  10001
       00023  0634 00 7 00001  10001
       00024  4774 00 4 00031  10001         AXC     GN0002+2,4
       00025  0020 00 0 00401  10011  GN0001 TRA     *+1
       00026  0634 00 4 00027  10001         SXA     GN0002,4
       00110  100000000110     00001         USE     1
       00110  200000000001     00001  WS     BSS     1
       00027  100000000027     00001         USE     0
       00027  0774 00 4 00000  10000  GN0002 AXT     **,4
       00030  4625 00 0 00025  10001         STL     GN0001
       00031  0020 00 4 00001  10000         TRA     1,4
                        00032         EN0234 NULL
                        00032         EN0235 NULL
   15,                                GN0003 CALL    .CDISP
                                             ETC     (CP+2
       00032  000000000000     00010         ETC     )'0000'
       00032  0074 00 4 01000  10011
       00033  1 00001 0 00403  10011
       00034  0 00106 0 00000  10100
       00035  0 00000 0 00102  10001
       00036  0020 00 0 00402  10011         TRA     *+2
       00037  0 00000 0 00013  10000         PZE     11,,0
                        00040         EN0236 NULL
   21,                                GN0004 CALL    .CDISP
                                             ETC     (CP+4
                                             ETC     ,CP+5
       00040  000000000000     00010         ETC     )'0000'

BINARY CARD (NOT PUNCHED)
       00040  0074 00 4 01000  10011
              HELLO                                                    09/26/12                            PAGE  6
           ASSEMBLED TEXT.

       00041  1 00002 0 00404  10011
       00042  0 00106 0 00000  10100
       00043  0 00000 0 00104  10001
       00044  0 00000 0 00105  10001
       00045  0020 00 0 00403  10011         TRA     *+3
       00046  0 00000 0 00005  10000         PZE     5,,0
       00047  0 00000 0 00003  10000         PZE     3,,0
                        00050                RETURN  GN0000
                        00051         EN0237 RETURN  GN0000
                        00052         BL     NULL
                        00052         PI     NULL
       00052  0 00000 0 00000  10000  RS     PZE     0
       00053  0 00000 0 00000  10000         PZE     0
       00054  0 00000 0 00000  10000  TS     PZE     0
       00055  0 00000 0 00000  10000         PZE     0
       00056  0 00000 0 00000  10000         PZE     0
       00057  0 00000 0 00000  10000         PZE     0
       00060  0 00000 0 00000  10000         PZE     0
       00061  0 00000 0 00000  10000         PZE     0
       00062  0 00000 0 00000  10000         PZE     0

BINARY CARD (NOT PUNCHED)
       00063  0 00000 0 00000  10000         PZE     0
       00064  0 00000 0 00000  10000         PZE     0
       00065  0 00000 0 00000  10000         PZE     0
       00066  0 00000 0 00000  10000         PZE     0
       00067  0 00000 0 00000  10000         PZE     0
       00070  0 00000 0 00000  10000         PZE     0
       00071  0 00000 0 00000  10000         PZE     0
       00072  0 00000 0 00000  10000         PZE     0
       00073  0 00000 0 00000  10000         PZE     0
       00074  0 00000 0 00000  10000         PZE     0
       00075  0 00000 0 00000  10000         PZE     0
       00076  0 00000 0 00000  10000         PZE     0
       00077  0 00000 0 00000  10000         PZE     0
       00100  000000000000     10000  CP     OCT     000000000000
       00101  000000000001     10000         OCT     000000000001
       00102  302543434660     10000         OCT     302543434660
       00103  664651432460     10000         OCT     664651432460
       00104  626346476060     10000         OCT     626346476060
       00105  516445606060     10000         OCT     516445606060

BINARY CARD (NOT PUNCHED)
       00106  200000000000     00001  SP     BSS     0
       00106  000000000000     10000         *LDIR
       00107  302543434660     10000
                        00000  01111         END     GN0000
              HELLO                                                    09/26/12                            PAGE  7
           CONTROL DICTIONARY

                   $CDICT HELLO                                                            HELL0002


BINARY CARD (NOT PUNCHED)
              000111000000              PREFACE     START=0,LENGTH=73,TYPE=7094,CMPLX=6
              000004000006
              302543434660       HELLO  DECK
              000111000000
              332324316247       .CDISP VIRTUAL     SECT. 2,CALL
              200000100000
              627062434623       SYSLOC VIRTUAL     SECT. 3
              200000000000
                   $DKEND HELLO                                                            HELL0003

NO MESSAGES FOR THIS ASSEMBLY
              HELLO                                                    09/26/12                            PAGE  8
           SYMBOL REFERENCE DATA


REFERENCES TO DEFINED SYMBOLS.

  CLASS  SYMBOL   VALUE   REFERENCES

  LCTR   0
  LCTR   1
         BL       00052
         CP       00100   35,43,44
         EN0234   00032
         EN0235   00032
         EN0236   00040
         EN0237   00051
         GN0000   00000   50,51,110
         GN0001   00025   30
         GN0002   00027   24,26
         GN0003   00032
         GN0004   00040
         HELLO    00000
         ..0001   00007   15,16,17,20,21,22,23
         ..0002   00011   10,13
         ..0003   00013   0
         PI       00052
         RS       00052
  LCTR    BLCTR
  QUAL    UNQS
  LCTR   //
         SP       00106
         TS       00054
         WS       00110
REFERENCES TO VIRTUAL SYMBOLS.

         .CDISP       2   32,40
         SYSLOC       3   14
               IBLDR                                                   09/26/12                            PAGE  9
           * CROSS REFERENCE LOGIC *



DECK  HELLO  03004  SIZE = 00111
      VIRT  .CDISP REFERS TO  CDISP   AT 12146
      VIRT  SYSLOC REFERS TO  .JBCON  AT 02652

SUBR  .IBSYS 00000  SIZE = 00134
      REAL  SYSLB1 00000
      REAL  SYSLB2 00001
      REAL  SYSLB3 00002
      REAL  SYSLB4 00003
      REAL  SYSCRD 00004
      REAL  SYSPRT 00005
      REAL  SYSPCH 00006
      REAL  SYSOU1 00007 REF'D BY -   .FPTRP,   .LXSL ,   .LXCON
      REAL  SYSOU2 00010
      REAL  SYSIN1 00011
      REAL  SYSIN2 00012
      REAL  SYSPP1 00013
      REAL  SYSPP2 00014
      REAL  SYSCK1 00015
      REAL  SYSCK2 00016
      REAL  SYSUT1 00017
      REAL  SYSUT2 00020
      REAL  SYSUT3 00021
      REAL  SYSUT4 00022
      REAL  SYSUT5 00023
      REAL  SYSUT6 00024
      REAL  SYSUT7 00025
      REAL  SYSUT8 00026
      REAL  SYSUT9 00027
      REAL  SYSTRA 00100
      REAL  SYSDAT 00101
      REAL  SYSCUR 00102
      REAL  SYSRET 00103 REF'D BY -   .LXCON
      REAL  SYSKEY 00104
      REAL  SYSSWS 00105
      REAL  SYSPOS 00106
      REAL  SYSUNI 00107 REF'D BY -   .LXSL ,   .LXCON
      REAL  SYSUBC 00110
      REAL  SYSUAV 00111 REF'D BY -   .LXCON
      REAL  SYSUCW 00112
      REAL  SYSRPT 00113
      REAL  SYSCEM 00114
      REAL  SYSDMP 00115 REF'D BY -   .LXCON
      REAL  SYSIOX 00116
      REAL  SYSIDR 00117 REF'D BY -   .LXCON
      REAL  SYSCOR 00120
      REAL  SYSLDR 00121
      REAL  SYSACC 00122
      REAL  SYSPID 00123
      REAL  SYSCYD 00124
      REAL  SYSSLD 00126
      REAL  SYSTCH 00127
      REAL  SYSTWT 00131 REF'D BY -   .LXSL ,   .IOCSF
      REAL  SYSGET 00132
               IBLDR                                                   09/26/12                            PAGE  10
           * CROSS REFERENCE LOGIC *

      REAL  SYSJOB 00133 REF'D BY -   .LXSL ,   .IOCSF,   .LXCON

SUBR  .IOEX  00702  SIZE = 00047
      REAL  .ACTV  00702 REF'D BY -   .LXSL ,   .IOCSF,   .IODEF
      REAL  .NDSEL 00704
      REAL  .MWR   00706 REF'D BY -   CDISP ,   CDPLY ,   COPEN ,   .LXSL ,   .LXCON
      REAL  .PUNCH 00707
      REAL  .ENBSW 00710
      REAL  .PAWS  00711
      REAL  .PAUSE 00712
      REAL  .STOP  00713
      REAL  .SYMUN 00714
      REAL  .DECVD 00715 REF'D BY -   CEOBP ,   COPEN ,   .LXSL
      REAL  .DECVA 00716
      REAL  .CKWAT 00717
      REAL  .BCD5R 00720 REF'D BY -   .LXCON
      REAL  .BCD5X 00721
      REAL  .CVPRT 00722
      REAL  .STOPD 00723 REF'D BY -   .LXCON
      REAL  .CHXAC 00724
      REAL  .URRX  00725 REF'D BY -   .LXSL
      REAL  .RCTX  00726
      REAL  .RCHX  00727 REF'D BY -   .LXSL
      REAL  .TCOX  00730
      REAL  .TRCX  00731
      REAL  .ETTX  00732
      REAL  .TEFX  00733
      REAL  .TRAPX 00734
      REAL  .TRAPS 00735
      REAL  .COMM  00736
      REAL  .LTPOS 00737
      REAL  .IOXSI 00740
      REAL  .CHPSW 00741
      REAL  .TRPSW 00742
      REAL  .FDAMT 00743 REF'D BY -   .LXSL
      REAL  .SDCXI 00744
      REAL  .STCXI 00745
      REAL  .COMMD 00746
      REAL  .IBCDZ 00747
      REAL  .CHXSP 00750

SUBR  .JBCON 02652  SIZE = 00046
      REAL  SYSLOC 02652 REF'D BY -   HELLO ,   .LXSL
      REAL  SYSFAZ 02653
      REAL  .JCOR  02654
      REAL  .JDATE 02655
      REAL  .JLDAT 02656
      REAL  .JTYPE 02660 REF'D BY -   .LXCON
      REAL  .JLIN  02661 REF'D BY -   .LXCON
      REAL  .JVER  02662
      REAL  SYSDSB 02663
      REAL  .IOEXD 02664
      REAL  .FDPOS 02715
      REAL  .JDTRK 02716
      REAL  SYSZRO 02717
               IBLDR                                                   09/26/12                            PAGE  11
           * CROSS REFERENCE LOGIC *

SUBR  .LXCON 03115  SIZE = 00454
      REAL  .LXSTR 03115
      REAL  .LXSTP 03120 REF'D BY -   .LXSL
      REAL  .LXOUT 03166
      REAL  .LXERR 03175 REF'D BY -   CEOBP
      REAL  .LXCAL 03200
      REAL  .LXRTN 03200
      REAL  IBEXIT 03200
      REAL  .DBCLS 03362
      REAL  .LXARG 03531
      REAL  .L0    03554
      REAL  .CLSE  03562 REF'D BY -   .IODEF
      REAL  .LFBL  03563
      REAL  .LUNB  03564 REF'D BY -   .IODEF
      REAL  .DFOUT 03565 REF'D BY -   .LXSL
      VIRT  .LXSEL REFERS TO  .LXSL   AT 06320
      VIRT  .LXSL1 REFERS TO  .LXSL   AT 06321
      VIRT  .BCD5R REFERS TO  .IOEX   AT 00720
      VIRT  .MWR   REFERS TO  .IOEX   AT 00706
      VIRT  .JTYPE REFERS TO  .JBCON  AT 02660
      VIRT  SYSJOB REFERS TO  .IBSYS  AT 00133
      VIRT  SYSUNI REFERS TO  .IBSYS  AT 00107
      VIRT  SYSUAV REFERS TO  .IBSYS  AT 00111
      VIRT  SYSIDR REFERS TO  .IBSYS  AT 00117
      VIRT  .JLIN  REFERS TO  .JBCON  AT 02661
      VIRT  SYSRET REFERS TO  .IBSYS  AT 00103
      VIRT  SYSDMP REFERS TO  .IBSYS  AT 00115
      VIRT  SYSOU1 REFERS TO  .IBSYS  AT 00007
      VIRT  .LTCH  REFERS TO  .LXSL   AT 06462
      VIRT  .STOPD REFERS TO  .IOEX   AT 00723

SUBR  .IODEF 03571  SIZE = 00224
      REAL  .DEFIN 03571 REF'D BY -   .IOCSF
      REAL  .ATTAC 03575
      REAL  .CLOSE 03577 REF'D BY -   COPEN
      REAL  .OPEN  03601 REF'D BY -   CDISP ,   CDPLY ,   COPEN
      REAL  .READ  03603
      REAL  .WRITE 03605 REF'D BY -   CDISP ,   CDPLY ,   CEOBP ,   COPEN
      REAL  .BSR   03615
      REAL  .READR 03625
      REAL  .RELES 03627
      REAL  .LAREA 03640
      REAL  .LFBLK 03656 REF'D BY -   .IOCSF
      REAL  .LTSX  03661
      REAL  .RLHLD 03671 REF'D BY -   CEOBP
      REAL  .AREA1 03674 REF'D BY -   .IOCSF
      REAL  .LUNBL 03702
      REAL  .ENTRY 03706 REF'D BY -   .IOCSF
      REAL  .GOA   03743 REF'D BY -   .IOCSF
      REAL  .GO    03747 REF'D BY -   .IOCSF
      REAL  .DERR  03763 REF'D BY -   .IOCSF
      REAL  .NOPXI 03764 REF'D BY -   .IOCSF
      REAL  .COMXI 03766 REF'D BY -   .IOCSF
      REAL  .EX34  04010 REF'D BY -   .IOCSF
      VIRT  .ACTV  REFERS TO  .IOEX   AT 00702
      VIRT  .CLSE  REFERS TO  .LXCON  AT 03562
               IBLDR                                                   09/26/12                            PAGE  12
           * CROSS REFERENCE LOGIC *

      VIRT  .LUNB  REFERS TO  .LXCON  AT 03564

SUBR  .IOCSF 04015  SIZE = 02302
      VIRT  .ACTV  REFERS TO  .IOEX   AT 00702
      VIRT  .NOPXI REFERS TO  .IODEF  AT 03764
      VIRT  .COMXI REFERS TO  .IODEF  AT 03766
      VIRT  .LFBLK REFERS TO  .IODEF  AT 03656
      VIRT  .AREA1 REFERS TO  .IODEF  AT 03674
      VIRT  .EX34  REFERS TO  .IODEF  AT 04010
      VIRT  .DEFIN REFERS TO  .IODEF  AT 03571
      VIRT  .ENTRY REFERS TO  .IODEF  AT 03706
      VIRT  .GOA   REFERS TO  .IODEF  AT 03743
      VIRT  .GO    REFERS TO  .IODEF  AT 03747
      VIRT  .DERR  REFERS TO  .IODEF  AT 03763
      VIRT  SYSTWT REFERS TO  .IBSYS  AT 00131
      VIRT  SYSJOB REFERS TO  .IBSYS  AT 00133

SUBR  .LXSL  06317  SIZE = 00152
      REAL  .LXSLB 06317
      REAL  .LXSEL 06320 REF'D BY -   .LXCON
      REAL  .LXSL1 06321 REF'D BY -   .LXCON,   .FPTRP
      REAL  .LXTST 06324
      REAL  .LXOVL 06367
      REAL  .LXMOD 06431
      REAL  .LXIND 06455
      REAL  .LXDIS 06460
      REAL  .LXFLG 06461
      REAL  .LTCH  06462 REF'D BY -   .LXCON,   .FPTRP
      VIRT  SYSLOC REFERS TO  .JBCON  AT 02652
      VIRT  SYSOU1 REFERS TO  .IBSYS  AT 00007
      VIRT  .DFOUT REFERS TO  .LXCON  AT 03565
      VIRT  SYSUNI REFERS TO  .IBSYS  AT 00107
      VIRT  .ACTV  REFERS TO  .IOEX   AT 00702
      VIRT  .RCHX  REFERS TO  .IOEX   AT 00727
      VIRT  SYSJOB REFERS TO  .IBSYS  AT 00133
      VIRT  .URRX  REFERS TO  .IOEX   AT 00725
      VIRT  .DECVD REFERS TO  .IOEX   AT 00715
      VIRT  .FDAMT REFERS TO  .IOEX   AT 00743
      VIRT  .MWR   REFERS TO  .IOEX   AT 00706
      VIRT  .LXSTP REFERS TO  .LXCON  AT 03120
      VIRT  SYSTWT REFERS TO  .IBSYS  AT 00131

SUBR  .FPTRP 06471  SIZE = 00210
      REAL  .FFPT. 06471
      REAL  .FPOUT 06620
      REAL  .FPARG 06626
      REAL  .COUNT 06630
      REAL  OVFLOW 06674
      VIRT  .LXSL1 REFERS TO  .LXSL   AT 06321
      VIRT  SYSOU1 REFERS TO  .IBSYS  AT 00007
      VIRT  .LTCH  REFERS TO  .LXSL   AT 06462

SUBR  CMPAK  06701  SIZE = 02506
      REAL  .CMPAK 06701
      REAL  .CMPK1 06730
      REAL  .CMPK2 06736
               IBLDR                                                   09/26/12                            PAGE  13
           * CROSS REFERENCE LOGIC *

      REAL  .CMPK3 06743 REF'D BY -   CDISP
      REAL  .CX4   06766
      REAL  .CXIT  06773
      REAL  .CAREF 06777 REF'D BY -   CDISP
      REAL  .CBREF 07000 REF'D BY -   CDISP
      REAL  .COFLO 07001
      REAL  .CUFLO 07002
      REAL  .CIDX1 07246
      REAL  .CIDX4 07251 REF'D BY -   CDISP
      REAL  .CIDX2 07253
      REAL  .CXDID 07441
      REAL  .CXDXD 07655
      REAL  .CXMVS 07670
      REAL  .CXMOV 07671
      REAL  .CXBYS 07707
      REAL  .CXBYP 07710
      REAL  .CXNZS 07722
      REAL  .CXNZT 07723
      REAL  .CXINZ 07765
      REAL  .CXRND 07772
      REAL  .CXDXQ 10103
      REAL  .CANA1 10126 REF'D BY -   CDISP
      REAL  .CANA2 10311
      REAL  .CANA3 10316
      REAL  .CANA4 10335
      REAL  .CSPAN 10407 REF'D BY -   CDISP
      REAL  .CZEAN 10470
      REAL  .CCHOP 10541
      REAL  .CCHAN 10542
      REAL  .CRFLS 10660
      REAL  .CXDRP 10707
      REAL  .CIDRP 10717
      REAL  .CXDRQ 10742
      REAL  .CRQIT 10753
      REAL  .CRSIN 10762
      REAL  .CRSIG 10774
      REAL  .CR999 11016
      REAL  .CR000 11032
      REAL  .CRBBB 11034
      REAL  .CRZZZ 11044
      REAL  .CRAAA 11046
      REAL  .CRFFQ 11067
      REAL  .CRFFC 11071
      REAL  .CRFFF 11135
      REAL  .CINID 11176 REF'D BY -   CDISP
      REAL  .CIDIN 11204
      VIRT  .CBLER REFERS TO  CBLER   AT 11407

SUBR  CBLER  11407  SIZE = 00017
      REAL  .CBLER 11407 REF'D BY -   CMPAK
      VIRT  .CDPLY REFERS TO  CDPLY   AT 12072

SUBR  COPEN  11426  SIZE = 00142
      REAL  .CIOHS 11426 REF'D BY -   CEOBP
      REAL  .COPEN 11427
      REAL  .CCLOS 11476
               IBLDR                                                   09/26/12                            PAGE  14
           * CROSS REFERENCE LOGIC *

      VIRT  .DECVD REFERS TO  .IOEX   AT 00715
      VIRT  .MWR   REFERS TO  .IOEX   AT 00706
      VIRT  .OPEN  REFERS TO  .IODEF  AT 03601
      VIRT  .CLOSE REFERS TO  .IODEF  AT 03577
      VIRT  .WRITE REFERS TO  .IODEF  AT 03605

SUBR  CEOBP  11570  SIZE = 00302
      REAL  .CEOBP 11772 REF'D BY -   CDISP ,   CDPLY
      REAL  .CERRP 12025
      VIRT  .WRITE REFERS TO  .IODEF  AT 03605
      VIRT  .CIOHS REFERS TO  COPEN   AT 11426
      VIRT  .DECVD REFERS TO  .IOEX   AT 00715
      VIRT  .RLHLD REFERS TO  .IODEF  AT 03671
      VIRT  .CDPLY REFERS TO  CDPLY   AT 12072
      VIRT  .LXERR REFERS TO  .LXCON  AT 03175

SUBR  CDPLY  12072  SIZE = 00042
      REAL  .CDPLY 12072 REF'D BY -   CEOBP ,   CBLER
      VIRT  .MWR   REFERS TO  .IOEX   AT 00706
      VIRT  .CCDTY REFERS TO  CCDTY   AT 12134
      VIRT  .OPEN  REFERS TO  .IODEF  AT 03601
      VIRT  .WRITE REFERS TO  .IODEF  AT 03605
      VIRT  .CEOBP REFERS TO  CEOBP   AT 11772

SUBR  CCDTY  12134  SIZE = 00012
      REAL  .CCDTY 12134 REF'D BY -   CDPLY ,   CDISP

SUBR  CDISP  12146  SIZE = 00322
      REAL  .CDISP 12146 REF'D BY -   HELLO
      REAL  .CDIS2 12357
      REAL  .CDIS1 12363
      VIRT  .CCDTY REFERS TO  CCDTY   AT 12134
      VIRT  .OPEN  REFERS TO  .IODEF  AT 03601
      VIRT  .CBREF REFERS TO  CMPAK   AT 07000
      VIRT  .CAREF REFERS TO  CMPAK   AT 06777
      VIRT  .CMPK3 REFERS TO  CMPAK   AT 06743
      VIRT  .CANA1 REFERS TO  CMPAK   AT 10126
      VIRT  .CSPAN REFERS TO  CMPAK   AT 10407
      VIRT  .CINID REFERS TO  CMPAK   AT 11176
      VIRT  .CIDX4 REFERS TO  CMPAK   AT 07251
      VIRT  .WRITE REFERS TO  .IODEF  AT 03605
      VIRT  .CEOBP REFERS TO  CEOBP   AT 11772
      VIRT  .MWR   REFERS TO  .IOEX   AT 00706
               IBLDR                                                   09/26/12                            PAGE  15
           * IOCS CONTROLS *



FILE LIST
        LOC

       02750  GROUP RESERVED   00001 BUFFERS, MAXIMUM FILE OPEN COUNT =  00001
       02751      DSPOU

       02752  GROUP RESERVED   00001 BUFFERS, MAXIMUM FILE OPEN COUNT =  00001
       02753      DSPFIL

BUFFER POOL
        LOC

       12470   BUFFER COUNT =  00854  , BUFFER SIZE =  00013 FILE COUNT= 00001 , FILE LIST LOC = 02750

       43504   BUFFER COUNT =  00631  , BUFFER SIZE =  00021 FILE COUNT= 00001 , FILE LIST LOC = 02752
               IBLDR                                                   09/26/12                            PAGE  16
           * MEMORY MAP *



SYSTEM                               00000 THRU  02717
FILE BLOCK ORIGIN                    02720
FILES      1.     DSPOU
           2.     DSPFIL
FILE LIST ORIGIN                     02750
PRE-EXECUTION INITIALIZATION         02754
CALL ON OBJECT PROGRAM               02777
OBJECT PROGRAM                       03004 THRU  12467

      DECK  ORIGIN       CONTROL SECTIONS (/NAME/=NON 0 LENGTH, (LOC)=DELETED, 'LOC'=MOVED, *=NOT REFERENCED)

  1. HELLO   03004
  2. .LXCON  03115       .LXSTR  03115 *   .LXSTP  03120     .LXOUT  03166 *   .LXERR  03175     .LXCAL  03200 *
                         .LXRTN  03200 *   IBEXIT  03200 *   .DBCLS  03362 *   .LXARG  03531 *   .L0     03554 *
                         .CLSE   03562     .LFBL   03563 *   .LUNB   03564     .DFOUT  03565
  3. .IODEF  03571       .DEFIN  03571     .ATTAC  03575 *   .CLOSE  03577     .OPEN   03601     .READ   03603 *
                         .WRITE  03605     .BSR    03615 *   .READR  03625 *   .RELES  03627 *   .LAREA  03640 *
                         .LFBLK  03656     .LTSX   03661 *   .RLHLD  03671     .AREA1  03674     .LUNBL  03702 *
                         .ENTRY  03706     .GOA    03743     .GO     03747     .DERR   03763     .NOPXI  03764
                         .COMXI  03766     .EX34   04010
  4. .IOCSF  04015
  5. .LXSL   06317       .LXSLB  06317 *   .LXSEL  06320     .LXSL1  06321     .LXTST  06324 *   .LXOVL  06367 *
                         .LXMOD  06431 *   .LXIND  06455 *   .LXDIS  06460 *   .LXFLG  06461 *   .LTCH   06462
  6. .FPTRP  06471       .FFPT.  06471 *   .FPOUT  06620 *   .FPARG  06626 *  /.COUNT/ 06630 *   OVFLOW  06674 *
  7. CMPAK   06701       .CMPAK  06701 *   .CMPK1  06730 *   .CMPK2  06736 *   .CMPK3  06743     .CX4    06766 *
                         .CXIT   06773 *   .CAREF  06777     .CBREF  07000     .COFLO  07001 *   .CUFLO  07002 *
                         .CIDX1  07246 *   .CIDX4  07251     .CIDX2  07253 *   .CXDID  07441 *   .CXDXD  07655 *
                         .CXMVS  07670 *   .CXMOV  07671 *   .CXBYS  07707 *   .CXBYP  07710 *   .CXNZS  07722 *
                         .CXNZT  07723 *   .CXINZ  07765 *   .CXRND  07772 *   .CXDXQ  10103 *   .CANA1  10126
                         .CANA2  10311 *   .CANA3  10316 *   .CANA4  10335 *   .CSPAN  10407     .CZEAN  10470 *
                         .CCHOP  10541 *   .CCHAN  10542 *   .CRFLS  10660 *   .CXDRP  10707 *   .CIDRP  10717 *
                         .CXDRQ  10742 *   .CRQIT  10753 *   .CRSIN  10762 *   .CRSIG  10774 *   .CR999  11016 *
                         .CR000  11032 *   .CRBBB  11034 *   .CRZZZ  11044 *   .CRAAA  11046 *   .CRFFQ  11067 *
                         .CRFFC  11071 *   .CRFFF  11135 *   .CINID  11176     .CIDIN  11204 *
  8. CBLER   11407       .CBLER  11407
  9. COPEN   11426       .CIOHS  11426     .COPEN  11427 *   .CCLOS  11476 *
10. CEOBP   11570       .CEOBP  11772     .CERRP  12025 *
11. CDPLY   12072       .CDPLY  12072
12. CCDTY   12134       .CCDTY  12134
13. CDISP   12146       .CDISP  12146     .CDIS2  12357 *   .CDIS1  12363 *

I/O BUFFERS                          12470 THRU  77766

UNUSED CORE                          77767 THRU  77777


        590 LINES OUTPUT.
           $IBSYS
           $STOP


            PERIPHERAL UNIT POSITIONS AT END OF JOBS

            SYSPP1  IS   A8    REC. 00001, FILE 00000
            SYSOU1  IS   A4    REC. 00599, FILE 00000
            SYSIN1  IS   A3    REC. 00002, FILE 00001

           END OF JOBS


EOF  END OF OUTPUT

Regards

Rich

Image
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
 
Posts: 7116
Joined: Thu Oct 31, 2002 4:47 pm
Location: Liverpool

Re: Will SAP technology get saturated in future?

Postby Snowy » Wed Sep 26, 2012 9:12 am

Craig wrote:Lingerie is NEVER to be skipped. It is a basic essential no matter how small.

Craig


smaller is better!
SapFans Moderator

Search: http://www.sapfans.com/forums/search.php
Notes: http://service.sap.com/notes
Help: http://help.sap.com
Rules: http://www.sapfans.com/forums/viewtopic.php?t=344127
Snowy
 
Posts: 28788
Joined: Mon Oct 21, 2002 2:33 pm
Location: 3.1415926535

Re: Will SAP technology get saturated in future?

Postby Rich » Wed Sep 26, 2012 9:16 am

Snowy wrote:
Craig wrote:Lingerie is NEVER to be skipped. It is a basic essential no matter how small.

Craig


smaller is better!


True! :D
Regards

Rich

Image
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
 
Posts: 7116
Joined: Thu Oct 31, 2002 4:47 pm
Location: Liverpool

Re: Will SAP technology get saturated in future?

Postby Craig » Wed Sep 26, 2012 12:26 pm

Snowy wrote:
Craig wrote:Lingerie is NEVER to be skipped. It is a basic essential no matter how small.

Craig


smaller is better!


Not necessarily. :-)

Craig
Craig
 
Posts: 5505
Joined: Sun Oct 20, 2002 11:07 pm
Location: Heading back to the Milky Way...

Re: Will SAP technology get saturated in future?

Postby thx4allthefish » Thu Sep 27, 2012 5:24 am

Categories:

Everyday wear and tear:

Image

Summer in the city:

Image


And to de-derail the thread again, here's the link "COBOL lingerie"

Image
curiousorange wrote:I give up. Humanity isn't worth saving. Why is there never a Vogon Constructor Fleet around when you really need one?
thx4allthefish
 
Posts: 5694
Joined: Sat Oct 26, 2002 6:18 pm
Location: barolo barrel

Re: Will SAP technology get saturated in future?

Postby Rich » Thu Sep 27, 2012 5:43 am

I can imagine the interview.....

Interviewer: "Miss Fish. Do you speak Cobol ??"

Miss Fish: "Read It And Weep"

Interviewer: "Ah...<splutters>...Um... Can you start Yesterday ?"
Regards

Rich

Image
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
 
Posts: 7116
Joined: Thu Oct 31, 2002 4:47 pm
Location: Liverpool

Re: Will SAP technology get saturated in future?

Postby Craig » Thu Sep 27, 2012 7:33 am

thx4allthefish wrote:Categories:

Everyday wear and tear:

Image




Me thinks you are playing with us. You wouldn't wear that as everyday wear.

The buttons on the front woudn't be comfortable under most other clothes to be used everyday. Now maybe for everyday wear in the home..

Craig
Craig
 
Posts: 5505
Joined: Sun Oct 20, 2002 11:07 pm
Location: Heading back to the Milky Way...

Previous

Return to General Talks

Who is online

Users browsing this forum: carolenx2 and 4 guests





This website is not affiliated with, sponsored by, or approved by SAP AG.