|
This website is not affiliated with, sponsored by, or approved by SAP AG.
Discussion about non-SAP related issues: Inquiries, Personal & Commercial advertisements, etc. ( For registered users only)
Moderators: rtella, Snowy, thx4allthefish, The Prince Of Darkness
by 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.... 
Regards Rich  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
-
by Sharpshooter » Wed Sep 26, 2012 6:49 am
I remember Nova:  Original Planet of the Apes, 1968
Good luck!
-
Sharpshooter
-
- Posts: 1172
- Joined: Wed Mar 17, 2010 12:01 pm
- Location: In the dark
by 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...
by 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. 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...
by 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  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
-
by 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
by 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! 
Regards Rich  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
-
by 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...
by thx4allthefish » Thu Sep 27, 2012 5:24 am
Categories: 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?
-
thx4allthefish
-
- Posts: 5694
- Joined: Sat Oct 26, 2002 6:18 pm
- Location: barolo barrel
by 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  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
-
by Craig » Thu Sep 27, 2012 7:33 am
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
-
Craig
-
- Posts: 5505
- Joined: Sun Oct 20, 2002 11:07 pm
- Location: Heading back to the Milky Way...
Return to General Talks
Who is online
Users browsing this forum: No registered users and 5 guests
|
|