And some of those are running on DGC Nova's and Super Nova's....thx4allthefish wrote:air traffic control systems,
delete
Moderators: rtella, Snowy, thx4allthefish, The Prince Of Darkness
Re: Will SAP technology get saturated in future?
Regards
Rich
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
-
Sharpshooter
- Posts: 1172
- Joined: Wed Mar 17, 2010 12:01 pm
- Location: In the dark
Re: Will SAP technology get saturated in future?
I remember Nova:
Original Planet of the Apes, 1968
Original Planet of the Apes, 1968
Good luck!
-
Craig
- Posts: 5505
- Joined: Sun Oct 20, 2002 11:07 pm
- Location: Heading back to the Milky Way...
- Contact:
Re: Will SAP technology get saturated in future?
Lingerie is NEVER to be skipped. It is a basic essential no matter how small.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:
Craig
-
Craig
- Posts: 5505
- Joined: Sun Oct 20, 2002 11:07 pm
- Location: Heading back to the Milky Way...
- Contact:
Re: Will SAP technology get saturated in future?
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.Rich wrote:Have you scared Craig off or is he still asleep ?
BTW Fish. I really like the hand bag. Doubles as a real nice set of brass knuckles!
Craig
Re: Will SAP technology get saturated in future?
@Yuri.... Look at the dates....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.
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
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Re: Will SAP technology get saturated in future?
smaller is better!Craig wrote:Lingerie is NEVER to be skipped. It is a basic essential no matter how small.
Craig
SapFans Moderator
Search: search.php
Notes: http://service.sap.com/notes
Help: http://help.sap.com
Rules: viewtopic.php?t=344127
Search: search.php
Notes: http://service.sap.com/notes
Help: http://help.sap.com
Rules: viewtopic.php?t=344127
Re: Will SAP technology get saturated in future?
True!Snowy wrote:smaller is better!Craig wrote:Lingerie is NEVER to be skipped. It is a basic essential no matter how small.
Craig
Regards
Rich
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
-
Craig
- Posts: 5505
- Joined: Sun Oct 20, 2002 11:07 pm
- Location: Heading back to the Milky Way...
- Contact:
Re: Will SAP technology get saturated in future?
Not necessarily.Snowy wrote:smaller is better!Craig wrote:Lingerie is NEVER to be skipped. It is a basic essential no matter how small.
Craig
Craig
-
thx4allthefish
- Posts: 5694
- Joined: Sat Oct 26, 2002 6:18 pm
- Location: barolo barrel
Re: Will SAP technology get saturated in future?
Categories:
Everyday wear and tear:
Summer in the city:
And to de-derail the thread again, here's the link "COBOL lingerie"
Everyday wear and tear:
Summer in the city:
And to de-derail the thread again, here's the link "COBOL lingerie"
curiousorange wrote: I give up. Humanity isn't worth saving. Why is there never a Vogon Constructor Fleet around when you really need one?
Re: Will SAP technology get saturated in future?
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 ?"
Interviewer: "Miss Fish. Do you speak Cobol ??"
Miss Fish: "Read It And Weep"
Interviewer: "Ah...<splutters>...Um... Can you start Yesterday ?"
Regards
Rich
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
Rich
Abap KC:http://www.richard-harper.me.uk/Kb
SFMDR:http://www.se37.com
-
Craig
- Posts: 5505
- Joined: Sun Oct 20, 2002 11:07 pm
- Location: Heading back to the Milky Way...
- Contact:
Re: Will SAP technology get saturated in future?
thx4allthefish wrote:Categories:
Everyday wear and tear:
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