|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5888 (0x1700)
Notes: MEMBER_P, Member_Text
Names: »RPGX «
└─⟦ce1fc3cee⟧ Bits:30009814 REF.NO PWD33 PGM 5727-RG6 FEAT9074 RPG II US Z250-0040-2 REV/LEV 05.01 SEQ. 1/1 DISKET 2S 96TPI INTERNAL 88.05.24 31
└─⟦a01802bb8⟧
└─⟦this⟧ ».RPGX «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGX' *********************
*******************************************************************************
* ********
* 06/13/83 the screen displayed default for the # of blocks used by ********
* work files is changed from '0040' to '40'. this work is ********
* performed under ptr ev70958. ********
* ********
*******************************************************************************
*
// MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB
// IFF ?1?/ GOTO PUTPARMS
***********************************************************
* IF P1=BLANK AND JOBQ OR EVOKED, ISSUE ERROR MESSAGE *
***********************************************************
// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ
// MSG ?WS?,?M'2100,1,75'?
// RETURN
// TAG NJOBQ
***********************************************************
* ELSE CALL HELP *
***********************************************************
// HELP RPGX ,?2'40'?,?CLIB?
// RETURN
***************************************************************************
* THE FOLLOWING OCL CHECKS ALL PARAMETERS FOR VALID VALUES AND IF SO *
* STORES THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LOCAL DATA *
* AREA (SEE LAYAOUT OF LDA UNDER RPGCALSO). EACH PARAMETER IS *
* PROCESSED AS SHOWN BELOW: *
* *
* PARAMETER RESULT *
* INVALID -----> ISSSUE PROPER ERROR VIA #ERR *
* WITH 0 AND 3 OPTIONS. 0 RESPONSE *
* MEANS CONTINUE WITH DEFAULT *
* SUBSTITUTED AND STORED IN LDA. *
* VALID -----> STORE IN LDA *
* *
***************************************************************************
// TAG PUTPARMS
*
// IF JOBQ-NO IF EVOKED-NO * 1025
// IFF ?3?/ IFF DATAF1-?3? #ERR 1060,03,RPG ?3F'?CLIB?'?
// IFF SOURCE-'?1?,?3'?CLIB?'?' #ERR 1051,3,RPG
// IFF ?2'40'?>0 #ERR 1053,03,RPG ?2F'40'?
*************************************************************
* STORE THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM *
* LOCAL AREA *
*************************************************************
// LOCAL OFFSET-1,DATA-'RPGX ',AREA-SYSTEM
// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM
// LOCAL OFFSET-419,DATA-'?3?',BLANK-8,AREA-SYSTEM
// LOCAL OFFSET-85,DATA-'?2?',BLANK-4,AREA-SYSTEM
// LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM USED BY RPGSEU
***************************************************************
* *
* USE THE $MAINT FUNCTION TO COPY THE RPG SOURCE INTO $WORK2 *
* FILE SO THAT IT CAN BE PROCESSED BY THE RPG CROSS-REFERENCE*
* PROGRAMS. IF PARAMETER 4 IS '11111111' THE THE SOURCE IS *
* ALREADY IN $WORK2. THEREFORE DO NOT DO THE COPY WITH *
* $MAINT. *
* *
***************************************************************
// IF ?4?/11111111 GOTO SKIP
// LOAD $MAINT
// FILE NAME-$WORK2,UNIT-F1,BLOCKS-?2?,RETAIN-J,EXTEND-25
// RUN
// COPY FROM-?3?,TO-DISK,LIBRARY-S,FILE-$WORK2,RECL-96,NAME-?1?
// END
// TAG SKIP
**************************************************
* *
* LOAD THE FIRST RPG CROSS-REFERENCE PROGRAM *
* *
**************************************************
// LOAD #RPRF1,#RPGLIB
// FILE NAME-$SOURCE,LABEL-$WORK2
// FILE NAME-SOURCE1,BLOCKS-?2?,RETAIN-J,LABEL-REFLECT,EXTEND-25
// FILE NAME-SYMBFLE,BLOCKS-?2?,RETAIN-J,EXTEND-25
// RUN
**************************************************
* *
* SORT THE TWO OUTPUT FILES FROM THIS PROGRAM *
* *
**************************************************
// LOAD #GSORT
// FILE NAME-INPUT,LABEL-SYMBFLE,RETAIN-J
// FILE NAME-OUTPUT,LABEL-SYMBFLE,RETAIN-J
// RUN
HSORTR 14A 3 24 N
FNC 1 10 TYPE OF SYMBOL
FNC 15 18 STMT NUMBER
FDC 11 14 REFER REFERENCE OF SYMBOL
FDC 19 24 SYMBOL INFORMATION
// END
// LOAD #GSORT
// FILE NAME-INPUT,LABEL-REFLECT,RETAIN-J
// FILE NAME-OUTPUT,LABEL-REFLECT,RETAIN-J
// RUN
HSORTR 14A 3 24 N
FNC 1 10 TYPE OF SYMBOL
FNC 15 18 STMT NUMBER
FDC 11 14 REFER REFERENCE OF SYMBOL
FDC 19 24 SYMBOL INFORMATION
// END
**************************************************
* *
* LOAD THE SECOND RPG CROSS-REFERENCE PROGRAM *
* *
**************************************************
// LOAD #RPRF3,#RPGLIB
// FILE NAME-SYMBLED,RETAIN-J,LABEL-REFLECT
// RUN
**************************************************
* *
* LOAD THE THIRD RPG CROSS-REFERENCE PROGRAM *
* *
**************************************************
// LOAD #RPRF2,#RPGLIB
// FILE NAME-SYMBFLE,RETAIN-S
// FILE NAME-SYMBFLED,RETAIN-S,LABEL-REFLECT
// RUN
*
// RETURN
*
*******************************************************************************
* *
* RPGX PGNAME,$SOURCE,INLIB *
* *
* THIS PROCEDURE EXECUTES THE RPG CROSS REFERENCE PROGRAM *
* *
* THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING- *
* 1ST - PROGRAM NAME, (REQUIRED), *
* 2ND - # BLOCKS FOR $SOURCE FILE, DEFAULT- 40, *
* 3RD - INPUT LIBRARY, DEFAULT- CURRENT LIBRARY *
* 4TH - LOCAL OFFSET 169-176, WILL BE '11111111' IF *
* THE SOURCE TO BE XREFED IS ALREADY IN THE $WORK2 *
* FILE (IE. RPGX WAS CALLED BY AUTOC AND THE SOURCE WAS *
* NOT CATALOGED BY #AUTO), OR USED TO TELL RPGX THAT *
* IT WAS CALLED BY RPGXT (MENU OPTION 4) AND THEREFORE *
* PARAMETER MEMORY IS IN EFFECT. *
* *
* NOTE: THIS PROCEDURE CAN BE CALLED IN THE FOLLOWING WAYS: *
* *
* 1) FROM THE RPGP MENU (LOCAL 205-212 = 'RPGXT ') *
* 2) FROM RPGONL (LOCAL 205-212 = 'RPGONL ') *
* 3) FROM RPGC (LOCAL 205-212 = 'RPGC ') *
* 4) FROM AUTOC (LOCAL 205-212 = 'AUTOC ') *
* *
*******************************************************************************
0x0000…0001 0xd0 0x0001…0051 »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGX' ********************* « 0x0051…0052 0xd0 0x0052…00a2 »******************************************************************************* « 0x00a2…00a3 0x81 0x00a3…00a4 »*« 0x00a4…00a5 0x46 0x00a5…00a6 0x89 0x00a6…00af »******** « 0x00af…00b0 0x81 0x00b0…00b1 »*« 0x00b1…00b2 0x02 0x00b2…00b3 0xb9 0x00b3…00ec »06/13/83 the screen displayed default for the # of blocks« 0x00ec…00ed 0x02 0x00ed…00ee 0x87 0x00ee…00f5 »used by« 0x00f5…00f6 0x02 0x00f6…00f7 0x89 0x00f7…0100 »******** « 0x0100…0101 0x81 0x0101…0102 »*« 0x0102…0103 0x0b 0x0103…0104 0xb7 0x0104…013b »work files is changed from '0040' to '40'. this work is« 0x013b…013c 0x04 0x013c…013d 0x89 0x013d…0146 »******** « 0x0146…0147 0x81 0x0147…0148 »*« 0x0148…0149 0x0b 0x0149…014a 0x9c 0x014a…0166 »performed under ptr ev70958.« 0x0166…0167 0x1f 0x0167…0168 0x89 0x0168…0171 »******** « 0x0171…0172 0x81 0x0172…0173 »*« 0x0173…0174 0x46 0x0174…0175 0x89 0x0175…017e »******** « 0x017e…017f 0xd0 0x017f…01cf »******************************************************************************* « 0x01cf…01d0 0x81 0x01d0…01d1 »*« 0x01d1…01d2 0x4f 0x01d2…01d3 0xa8 0x01d3…01fb »// MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB« 0x01fb…01fc 0x28 0x01fc…01fd 0x99 0x01fd…0216 »// IFF ?1?/ GOTO PUTPARMS« 0x0216…0217 0x37 0x0217…0218 0xbb 0x0218…0253 »***********************************************************« 0x0253…0254 0x15 0x0254…0255 0x81 0x0255…0256 »*« 0x0256…0257 0x02 0x0257…0258 0xb3 0x0258…028b »IF P1=BLANK AND JOBQ OR EVOKED, ISSUE ERROR MESSAGE« 0x028b…028c 0x04 0x028c…028d 0x81 0x028d…028e »*« 0x028e…028f 0x15 0x028f…0290 0xbb 0x0290…02cb »***********************************************************« 0x02cb…02cc 0x15 0x02cc…02cd 0xa5 0x02cd…02f2 »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x02f2…02f3 0x2b 0x02f3…02f4 0x9a 0x02f4…030e »// MSG ?WS?,?M'2100,1,75'?« 0x030e…030f 0x36 0x030f…0310 0x89 0x0310…0319 »// RETURN« 0x0319…031a 0x47 0x031a…031b 0x8c 0x031b…0327 »// TAG NJOBQ« 0x0327…0328 0x44 0x0328…0329 0xbb 0x0329…0364 »***********************************************************« 0x0364…0365 0x15 0x0365…0366 0x81 0x0366…0367 »*« 0x0367…0368 0x02 0x0368…0369 0x8e 0x0369…0377 »ELSE CALL HELP« 0x0377…0378 0x29 0x0378…0379 0x81 0x0379…037a »*« 0x037a…037b 0x15 0x037b…037c 0xbb 0x037c…03b7 »***********************************************************« 0x03b7…03b8 0x15 0x03b8…03b9 0x9c 0x03b9…03d5 »// HELP RPGX ,?2'40'?,?CLIB?« 0x03d5…03d6 0x34 0x03d6…03d7 0x89 0x03d7…03e0 »// RETURN« 0x03e0…03e1 0x47 0x03e1…03e2 0xcb 0x03e2…042d »***************************************************************************« 0x042d…042e 0x05 0x042e…042f 0x81 0x042f…0430 »*« 0x0430…0431 0x02 0x0431…0432 0xc2 0x0432…0474 »THE FOLLOWING OCL CHECKS ALL PARAMETERS FOR VALID VALUES AND IF SO« 0x0474…0475 0x05 0x0475…0476 0x81 0x0476…0477 »*« 0x0477…0478 0x05 0x0478…0479 0x81 0x0479…047a »*« 0x047a…047b 0x02 0x047b…047c 0xc2 0x047c…04be »STORES THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LOCAL DATA« 0x04be…04bf 0x05 0x04bf…04c0 0x81 0x04c0…04c1 »*« 0x04c1…04c2 0x05 0x04c2…04c3 0x81 0x04c3…04c4 »*« 0x04c4…04c5 0x02 0x04c5…04c6 0xa9 0x04c6…04ef »AREA (SEE LAYAOUT OF LDA UNDER RPGCALSO).« 0x04ef…04f0 0x02 0x04f0…04f1 0x91 0x04f1…0502 »EACH PARAMETER IS« 0x0502…0503 0x0b 0x0503…0504 0x81 0x0504…0505 »*« 0x0505…0506 0x05 0x0506…0507 0x81 0x0507…0508 »*« 0x0508…0509 0x02 0x0509…050a 0x99 0x050a…0523 »PROCESSED AS SHOWN BELOW:« 0x0523…0524 0x2e 0x0524…0525 0x81 0x0525…0526 »*« 0x0526…0527 0x05 0x0527…0528 0x81 0x0528…0529 »*« 0x0529…052a 0x49 0x052a…052b 0x81 0x052b…052c »*« 0x052c…052d 0x05 0x052d…052e 0x81 0x052e…052f »*« 0x052f…0530 0x06 0x0530…0531 0x89 0x0531…053a »PARAMETER« 0x053a…053b 0x17 0x053b…053c 0x86 0x053c…0542 »RESULT« 0x0542…0543 0x1d 0x0543…0544 0x81 0x0544…0545 »*« 0x0545…0546 0x05 0x0546…0547 0x81 0x0547…0548 »*« 0x0548…0549 0x07 0x0549…054a 0x87 0x054a…0551 »INVALID« 0x0551…0552 0x03 0x0552…0553 0x86 0x0553…0559 »----->« 0x0559…055a 0x0e 0x055a…055b 0x9c 0x055b…0577 »ISSSUE PROPER ERROR VIA #ERR« 0x0577…0578 0x08 0x0578…0579 0x81 0x0579…057a »*« 0x057a…057b 0x05 0x057b…057c 0x81 0x057c…057d »*« 0x057d…057e 0x25 0x057e…057f 0xa0 0x057f…059f »WITH 0 AND 3 OPTIONS. 0 RESPONSE« 0x059f…05a0 0x04 0x05a0…05a1 0x81 0x05a1…05a2 »*« 0x05a2…05a3 0x05 0x05a3…05a4 0x81 0x05a4…05a5 »*« 0x05a5…05a6 0x25 0x05a6…05a7 0x9b 0x05a7…05c2 »MEANS CONTINUE WITH DEFAULT« 0x05c2…05c3 0x09 0x05c3…05c4 0x81 0x05c4…05c5 »*« 0x05c5…05c6 0x05 0x05c6…05c7 0x81 0x05c7…05c8 »*« 0x05c8…05c9 0x25 0x05c9…05ca 0x9e 0x05ca…05e8 »SUBSTITUTED AND STORED IN LDA.« 0x05e8…05e9 0x06 0x05e9…05ea 0x81 0x05ea…05eb »*« 0x05eb…05ec 0x05 0x05ec…05ed 0x81 0x05ed…05ee »*« 0x05ee…05ef 0x08 0x05ef…05f0 0x85 0x05f0…05f5 »VALID« 0x05f5…05f6 0x04 0x05f6…05f7 0x86 0x05f7…05fd »----->« 0x05fd…05fe 0x0e 0x05fe…05ff 0x8c 0x05ff…060b »STORE IN LDA« 0x060b…060c 0x18 0x060c…060d 0x81 0x060d…060e »*« 0x060e…060f 0x05 0x060f…0610 0x81 0x0610…0611 »*« 0x0611…0612 0x49 0x0612…0613 0x81 0x0613…0614 »*« 0x0614…0615 0x05 0x0615…0616 0xcb 0x0616…0661 »***************************************************************************« 0x0661…0662 0x05 0x0662…0663 0x8f 0x0663…0672 »// TAG PUTPARMS« 0x0672…0673 0x41 0x0673…0674 0x81 0x0674…0675 »*« 0x0675…0676 0x4f 0x0676…0677 0xa1 0x0677…0698 »// IF JOBQ-NO IF EVOKED-NO * 1025« 0x0698…0699 0x2f 0x0699…069a 0xb8 0x069a…06d2 »// IFF ?3?/ IFF DATAF1-?3? #ERR 1060,03,RPG ?3F'?CLIB?'?« 0x06d2…06d3 0x18 0x06d3…06d4 0xaf 0x06d4…0703 »// IFF SOURCE-'?1?,?3'?CLIB?'?' #ERR 1051,3,RPG« 0x0703…0704 0x21 0x0704…0705 0xaa 0x0705…072f »// IFF ?2'40'?>0 #ERR 1053,03,RPG ?2F'40'?« 0x072f…0730 0x26 0x0730…0731 0xbd 0x0731…076e »*************************************************************« 0x076e…076f 0x13 0x076f…0770 0x81 0x0770…0771 »*« 0x0771…0772 0x02 0x0772…0773 0xb6 0x0773…07a9 »STORE THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM« 0x07a9…07aa 0x03 0x07aa…07ab 0x81 0x07ab…07ac »*« 0x07ac…07ad 0x13 0x07ad…07ae 0x81 0x07ae…07af »*« 0x07af…07b0 0x02 0x07b0…07b1 0x8a 0x07b1…07bb »LOCAL AREA« 0x07bb…07bc 0x2f 0x07bc…07bd 0x81 0x07bd…07be »*« 0x07be…07bf 0x13 0x07bf…07c0 0xbd 0x07c0…07fd »*************************************************************« 0x07fd…07fe 0x13 0x07fe…07ff 0x9c 0x07ff…081b »// LOCAL OFFSET-1,DATA-'RPGX« 0x081b…081c 0x04 0x081c…081d 0x8d 0x081d…082a »',AREA-SYSTEM« 0x082a…082b 0x23 0x082b…082c 0xb2 0x082c…085e »// LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM« 0x085e…085f 0x1e 0x085f…0860 0xb2 0x0860…0892 »// LOCAL OFFSET-419,DATA-'?3?',BLANK-8,AREA-SYSTEM« 0x0892…0893 0x1e 0x0893…0894 0xb1 0x0894…08c5 »// LOCAL OFFSET-85,DATA-'?2?',BLANK-4,AREA-SYSTEM« 0x08c5…08c6 0x1f 0x08c6…08c7 0xb1 0x08c7…08f8 »// LOCAL OFFSET-95,DATA-'R96',BLANK-4,AREA-SYSTEM« 0x08f8…08f9 0x06 0x08f9…08fa 0x8e 0x08fa…0908 »USED BY RPGSEU« 0x0908…0909 0x0b 0x0909…090a 0xbf 0x090a…0949 »***************************************************************« 0x0949…094a 0x11 0x094a…094b 0x81 0x094b…094c »*« 0x094c…094d 0x3d 0x094d…094e 0x81 0x094e…094f »*« 0x094f…0950 0x11 0x0950…0951 0x81 0x0951…0952 »*« 0x0952…0953 0x02 0x0953…0954 0xbc 0x0954…0990 »USE THE $MAINT FUNCTION TO COPY THE RPG SOURCE INTO $WORK2 *« 0x0990…0991 0x11 0x0991…0992 0x81 0x0992…0993 »*« 0x0993…0994 0x02 0x0994…0995 0xbc 0x0995…09d1 »FILE SO THAT IT CAN BE PROCESSED BY THE RPG CROSS-REFERENCE*« 0x09d1…09d2 0x11 0x09d2…09d3 0x81 0x09d3…09d4 »*« 0x09d4…09d5 0x02 0x09d5…09d6 0x89 0x09d6…09df »PROGRAMS.« 0x09df…09e0 0x02 0x09e0…09e1 0xae 0x09e1…0a0f »IF PARAMETER 4 IS '11111111' THE THE SOURCE IS« 0x0a0f…0a10 0x02 0x0a10…0a11 0x81 0x0a11…0a12 »*« 0x0a12…0a13 0x11 0x0a13…0a14 0x81 0x0a14…0a15 »*« 0x0a15…0a16 0x02 0x0a16…0a17 0x92 0x0a17…0a29 »ALREADY IN $WORK2.« 0x0a29…0a2a 0x02 0x0a2a…0a2b 0xa1 0x0a2b…0a4c »THEREFORE DO NOT DO THE COPY WITH« 0x0a4c…0a4d 0x06 0x0a4d…0a4e 0x81 0x0a4e…0a4f »*« 0x0a4f…0a50 0x11 0x0a50…0a51 0x81 0x0a51…0a52 »*« 0x0a52…0a53 0x02 0x0a53…0a54 0x87 0x0a54…0a5b »$MAINT.« 0x0a5b…0a5c 0x34 0x0a5c…0a5d 0x81 0x0a5d…0a5e »*« 0x0a5e…0a5f 0x11 0x0a5f…0a60 0x81 0x0a60…0a61 »*« 0x0a61…0a62 0x3d 0x0a62…0a63 0x81 0x0a63…0a64 »*« 0x0a64…0a65 0x11 0x0a65…0a66 0xbf 0x0a66…0aa5 »***************************************************************« 0x0aa5…0aa6 0x11 0x0aa6…0aa7 0x92 0x0aa7…0ab9 »// IF ?4?/11111111« 0x0ab9…0aba 0x02 0x0aba…0abb 0x89 0x0abb…0ac4 »GOTO SKIP« 0x0ac4…0ac5 0x33 0x0ac5…0ac6 0x8e 0x0ac6…0ad4 »// LOAD $MAINT« 0x0ad4…0ad5 0x42 0x0ad5…0ad6 0xb9 0x0ad6…0b0f »// FILE NAME-$WORK2,UNIT-F1,BLOCKS-?2?,RETAIN-J,EXTEND-25« 0x0b0f…0b10 0x17 0x0b10…0b11 0x86 0x0b11…0b17 »// RUN« 0x0b17…0b18 0x4a 0x0b18…0b19 0xbf 0x0b19…0b58 »// COPY FROM-?3?,TO-DISK,LIBRARY-S,FILE-$WORK2,RECL-96,NAME-?1?« 0x0b58…0b59 0x11 0x0b59…0b5a 0x86 0x0b5a…0b60 »// END« 0x0b60…0b61 0x4a 0x0b61…0b62 0x8b 0x0b62…0b6d »// TAG SKIP« 0x0b6d…0b6e 0x45 0x0b6e…0b6f 0xb2 0x0b6f…0ba1 »**************************************************« 0x0ba1…0ba2 0x1e 0x0ba2…0ba3 0x81 0x0ba3…0ba4 »*« 0x0ba4…0ba5 0x30 0x0ba5…0ba6 0x81 0x0ba6…0ba7 »*« 0x0ba7…0ba8 0x1e 0x0ba8…0ba9 0x81 0x0ba9…0baa »*« 0x0baa…0bab 0x02 0x0bab…0bac 0xaa 0x0bac…0bd6 »LOAD THE FIRST RPG CROSS-REFERENCE PROGRAM« 0x0bd6…0bd7 0x04 0x0bd7…0bd8 0x81 0x0bd8…0bd9 »*« 0x0bd9…0bda 0x1e 0x0bda…0bdb 0x81 0x0bdb…0bdc »*« 0x0bdc…0bdd 0x30 0x0bdd…0bde 0x81 0x0bde…0bdf »*« 0x0bdf…0be0 0x1e 0x0be0…0be1 0xb2 0x0be1…0c13 »**************************************************« 0x0c13…0c14 0x1e 0x0c14…0c15 0x96 0x0c15…0c2b »// LOAD #RPRF1,#RPGLIB« 0x0c2b…0c2c 0x3a 0x0c2c…0c2d 0xa1 0x0c2d…0c4e »// FILE NAME-$SOURCE,LABEL-$WORK2« 0x0c4e…0c4f 0x2f 0x0c4f…0c50 0xc0 0x0c50…0c90 »// FILE NAME-SOURCE1,BLOCKS-?2?,RETAIN-J,LABEL-REFLECT,EXTEND-25« 0x0c90…0c91 0x10 0x0c91…0c92 0xb2 0x0c92…0cc4 »// FILE NAME-SYMBFLE,BLOCKS-?2?,RETAIN-J,EXTEND-25« 0x0cc4…0cc5 0x1e 0x0cc5…0cc6 0x86 0x0cc6…0ccc »// RUN« 0x0ccc…0ccd 0x4a 0x0ccd…0cce 0xb2 0x0cce…0d00 »**************************************************« 0x0d00…0d01 0x1e 0x0d01…0d02 0x81 0x0d02…0d03 »*« 0x0d03…0d04 0x30 0x0d04…0d05 0x81 0x0d05…0d06 »*« 0x0d06…0d07 0x1e 0x0d07…0d08 0x81 0x0d08…0d09 »*« 0x0d09…0d0a 0x02 0x0d0a…0d0b 0xab 0x0d0b…0d36 »SORT THE TWO OUTPUT FILES FROM THIS PROGRAM« 0x0d36…0d37 0x03 0x0d37…0d38 0x81 0x0d38…0d39 »*« 0x0d39…0d3a 0x1e 0x0d3a…0d3b 0x81 0x0d3b…0d3c »*« 0x0d3c…0d3d 0x30 0x0d3d…0d3e 0x81 0x0d3e…0d3f »*« 0x0d3f…0d40 0x1e 0x0d40…0d41 0xb2 0x0d41…0d73 »**************************************************« 0x0d73…0d74 0x1e 0x0d74…0d75 0x8e 0x0d75…0d83 »// LOAD #GSORT« 0x0d83…0d84 0x42 0x0d84…0d85 0xa9 0x0d85…0dae »// FILE NAME-INPUT,LABEL-SYMBFLE,RETAIN-J« 0x0dae…0daf 0x27 0x0daf…0db0 0xaa 0x0db0…0dda »// FILE NAME-OUTPUT,LABEL-SYMBFLE,RETAIN-J« 0x0dda…0ddb 0x26 0x0ddb…0ddc 0x86 0x0ddc…0de2 »// RUN« 0x0de2…0de3 0x4a 0x0de3…0de4 0x05 0x0de4…0de5 0x86 0x0de5…0deb »HSORTR« 0x0deb…0dec 0x04 0x0dec…0ded 0x83 0x0ded…0df0 »14A« 0x0df0…0df1 0x08 0x0df1…0df2 0x81 0x0df2…0df3 »3« 0x0df3…0df4 0x03 0x0df4…0df5 0x82 0x0df5…0df7 »24« 0x0df7…0df8 0x03 0x0df8…0df9 0x81 0x0df9…0dfa »N« 0x0dfa…0dfb 0x2c 0x0dfb…0dfc 0x05 0x0dfc…0dfd 0x83 0x0dfd…0e00 »FNC« 0x0e00…0e01 0x03 0x0e01…0e02 0x81 0x0e02…0e03 »1« 0x0e03…0e04 0x02 0x0e04…0e05 0x82 0x0e05…0e07 »10« 0x0e07…0e08 0x17 0x0e08…0e09 0x8e 0x0e09…0e17 »TYPE OF SYMBOL« 0x0e17…0e18 0x1b 0x0e18…0e19 0x05 0x0e19…0e1a 0x83 0x0e1a…0e1d »FNC« 0x0e1d…0e1e 0x02 0x0e1e…0e1f 0x82 0x0e1f…0e21 »15« 0x0e21…0e22 0x02 0x0e22…0e23 0x82 0x0e23…0e25 »18« 0x0e25…0e26 0x17 0x0e26…0e27 0x84 0x0e27…0e2b »STMT« 0x0e2b…0e2c 0x03 0x0e2c…0e2d 0x86 0x0e2d…0e33 »NUMBER« 0x0e33…0e34 0x1c 0x0e34…0e35 0x05 0x0e35…0e36 0x83 0x0e36…0e39 »FDC« 0x0e39…0e3a 0x02 0x0e3a…0e3b 0x82 0x0e3b…0e3d »11« 0x0e3d…0e3e 0x02 0x0e3e…0e3f 0x82 0x0e3f…0e41 »14« 0x0e41…0e42 0x17 0x0e42…0e43 0x85 0x0e43…0e48 »REFER« 0x0e48…0e49 0x02 0x0e49…0e4a 0x93 0x0e4a…0e5d »REFERENCE OF SYMBOL« 0x0e5d…0e5e 0x0f 0x0e5e…0e5f 0x05 0x0e5f…0e60 0x83 0x0e60…0e63 »FDC« 0x0e63…0e64 0x02 0x0e64…0e65 0x82 0x0e65…0e67 »19« 0x0e67…0e68 0x02 0x0e68…0e69 0x82 0x0e69…0e6b »24« 0x0e6b…0e6c 0x17 0x0e6c…0e6d 0x86 0x0e6d…0e73 »SYMBOL« 0x0e73…0e74 0x03 0x0e74…0e75 0x8b 0x0e75…0e80 »INFORMATION« 0x0e80…0e81 0x15 0x0e81…0e82 0x86 0x0e82…0e88 »// END« 0x0e88…0e89 0x4a 0x0e89…0e8a 0x8e 0x0e8a…0e98 »// LOAD #GSORT« 0x0e98…0e99 0x42 0x0e99…0e9a 0xa9 0x0e9a…0ec3 »// FILE NAME-INPUT,LABEL-REFLECT,RETAIN-J« 0x0ec3…0ec4 0x27 0x0ec4…0ec5 0xaa 0x0ec5…0eef »// FILE NAME-OUTPUT,LABEL-REFLECT,RETAIN-J« 0x0eef…0ef0 0x26 0x0ef0…0ef1 0x86 0x0ef1…0ef7 »// RUN« 0x0ef7…0ef8 0x4a 0x0ef8…0ef9 0x05 0x0ef9…0efa 0x86 0x0efa…0f00 »HSORTR« 0x0f00…0f01 0x04 0x0f01…0f02 0x83 0x0f02…0f05 »14A« 0x0f05…0f06 0x08 0x0f06…0f07 0x81 0x0f07…0f08 »3« 0x0f08…0f09 0x03 0x0f09…0f0a 0x82 0x0f0a…0f0c »24« 0x0f0c…0f0d 0x03 0x0f0d…0f0e 0x81 0x0f0e…0f0f »N« 0x0f0f…0f10 0x2c 0x0f10…0f11 0x05 0x0f11…0f12 0x83 0x0f12…0f15 »FNC« 0x0f15…0f16 0x03 0x0f16…0f17 0x81 0x0f17…0f18 »1« 0x0f18…0f19 0x02 0x0f19…0f1a 0x82 0x0f1a…0f1c »10« 0x0f1c…0f1d 0x17 0x0f1d…0f1e 0x8e 0x0f1e…0f2c »TYPE OF SYMBOL« 0x0f2c…0f2d 0x1b 0x0f2d…0f2e 0x05 0x0f2e…0f2f 0x83 0x0f2f…0f32 »FNC« 0x0f32…0f33 0x02 0x0f33…0f34 0x82 0x0f34…0f36 »15« 0x0f36…0f37 0x02 0x0f37…0f38 0x82 0x0f38…0f3a »18« 0x0f3a…0f3b 0x17 0x0f3b…0f3c 0x84 0x0f3c…0f40 »STMT« 0x0f40…0f41 0x03 0x0f41…0f42 0x86 0x0f42…0f48 »NUMBER« 0x0f48…0f49 0x1c 0x0f49…0f4a 0x05 0x0f4a…0f4b 0x83 0x0f4b…0f4e »FDC« 0x0f4e…0f4f 0x02 0x0f4f…0f50 0x82 0x0f50…0f52 »11« 0x0f52…0f53 0x02 0x0f53…0f54 0x82 0x0f54…0f56 »14« 0x0f56…0f57 0x17 0x0f57…0f58 0x85 0x0f58…0f5d »REFER« 0x0f5d…0f5e 0x02 0x0f5e…0f5f 0x93 0x0f5f…0f72 »REFERENCE OF SYMBOL« 0x0f72…0f73 0x0f 0x0f73…0f74 0x05 0x0f74…0f75 0x83 0x0f75…0f78 »FDC« 0x0f78…0f79 0x02 0x0f79…0f7a 0x82 0x0f7a…0f7c »19« 0x0f7c…0f7d 0x02 0x0f7d…0f7e 0x82 0x0f7e…0f80 »24« 0x0f80…0f81 0x17 0x0f81…0f82 0x86 0x0f82…0f88 »SYMBOL« 0x0f88…0f89 0x03 0x0f89…0f8a 0x8b 0x0f8a…0f95 »INFORMATION« 0x0f95…0f96 0x15 0x0f96…0f97 0x86 0x0f97…0f9d »// END« 0x0f9d…0f9e 0x4a 0x0f9e…0f9f 0xb2 0x0f9f…0fd1 »**************************************************« 0x0fd1…0fd2 0x1e 0x0fd2…0fd3 0x81 0x0fd3…0fd4 »*« 0x0fd4…0fd5 0x30 0x0fd5…0fd6 0x81 0x0fd6…0fd7 »*« 0x0fd7…0fd8 0x1e 0x0fd8…0fd9 0x81 0x0fd9…0fda »*« 0x0fda…0fdb 0x02 0x0fdb…0fdc 0xab 0x0fdc…1007 »LOAD THE SECOND RPG CROSS-REFERENCE PROGRAM« 0x1007…1008 0x03 0x1008…1009 0x81 0x1009…100a »*« 0x100a…100b 0x1e 0x100b…100c 0x81 0x100c…100d »*« 0x100d…100e 0x30 0x100e…100f 0x81 0x100f…1010 »*« 0x1010…1011 0x1e 0x1011…1012 0xb2 0x1012…1044 »**************************************************« 0x1044…1045 0x1e 0x1045…1046 0x96 0x1046…105c »// LOAD #RPRF3,#RPGLIB« 0x105c…105d 0x3a 0x105d…105e 0xab 0x105e…1089 »// FILE NAME-SYMBLED,RETAIN-J,LABEL-REFLECT« 0x1089…108a 0x25 0x108a…108b 0x86 0x108b…1091 »// RUN« 0x1091…1092 0x4a 0x1092…1093 0xb2 0x1093…10c5 »**************************************************« 0x10c5…10c6 0x1e 0x10c6…10c7 0x81 0x10c7…10c8 »*« 0x10c8…10c9 0x30 0x10c9…10ca 0x81 0x10ca…10cb »*« 0x10cb…10cc 0x1e 0x10cc…10cd 0x81 0x10cd…10ce »*« 0x10ce…10cf 0x02 0x10cf…10d0 0xaa 0x10d0…10fa »LOAD THE THIRD RPG CROSS-REFERENCE PROGRAM« 0x10fa…10fb 0x04 0x10fb…10fc 0x81 0x10fc…10fd »*« 0x10fd…10fe 0x1e 0x10fe…10ff 0x81 0x10ff…1100 »*« 0x1100…1101 0x30 0x1101…1102 0x81 0x1102…1103 »*« 0x1103…1104 0x1e 0x1104…1105 0xb2 0x1105…1137 »**************************************************« 0x1137…1138 0x1e 0x1138…1139 0x96 0x1139…114f »// LOAD #RPRF2,#RPGLIB« 0x114f…1150 0x3a 0x1150…1151 0x9d 0x1151…116e »// FILE NAME-SYMBFLE,RETAIN-S« 0x116e…116f 0x33 0x116f…1170 0xac 0x1170…119c »// FILE NAME-SYMBFLED,RETAIN-S,LABEL-REFLECT« 0x119c…119d 0x24 0x119d…119e 0x86 0x119e…11a4 »// RUN« 0x11a4…11a5 0x4a 0x11a5…11a6 0x81 0x11a6…11a7 »*« 0x11a7…11a8 0x4f 0x11a8…11a9 0x89 0x11a9…11b2 »// RETURN« 0x11b2…11b3 0x47 0x11b3…11b4 0x81 0x11b4…11b5 »*« 0x11b5…11b6 0x4f 0x11b6…11b7 0xd0 0x11b7…1207 »******************************************************************************* « 0x1207…1208 0x81 0x1208…1209 »*« 0x1209…120a 0x4d 0x120a…120b 0x82 0x120b…120d »* « 0x120d…120e 0x81 0x120e…120f »*« 0x120f…1210 0x03 0x1210…1211 0x99 0x1211…122a »RPGX PGNAME,$SOURCE,INLIB« 0x122a…122b 0x31 0x122b…122c 0x82 0x122c…122e »* « 0x122e…122f 0x81 0x122f…1230 »*« 0x1230…1231 0x4d 0x1231…1232 0x82 0x1232…1234 »* « 0x1234…1235 0x81 0x1235…1236 »*« 0x1236…1237 0x03 0x1237…1238 0xb7 0x1238…126f »THIS PROCEDURE EXECUTES THE RPG CROSS REFERENCE PROGRAM« 0x126f…1270 0x13 0x1270…1271 0x82 0x1271…1273 »* « 0x1273…1274 0x81 0x1274…1275 »*« 0x1275…1276 0x4d 0x1276…1277 0x82 0x1277…1279 »* « 0x1279…127a 0x81 0x127a…127b »*« 0x127b…127c 0x03 0x127c…127d 0xb5 0x127d…12b2 »THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING-« 0x12b2…12b3 0x15 0x12b3…12b4 0x82 0x12b4…12b6 »* « 0x12b6…12b7 0x81 0x12b7…12b8 »*« 0x12b8…12b9 0x06 0x12b9…12ba 0x9f 0x12ba…12d9 »1ST - PROGRAM NAME, (REQUIRED),« 0x12d9…12da 0x28 0x12da…12db 0x82 0x12db…12dd »* « 0x12dd…12de 0x81 0x12de…12df »*« 0x12df…12e0 0x06 0x12e0…12e1 0xad 0x12e1…130e »2ND - # BLOCKS FOR $SOURCE FILE, DEFAULT- 40,« 0x130e…130f 0x1a 0x130f…1310 0x82 0x1310…1312 »* « 0x1312…1313 0x81 0x1313…1314 »*« 0x1314…1315 0x06 0x1315…1316 0xad 0x1316…1343 »3RD - INPUT LIBRARY, DEFAULT- CURRENT LIBRARY« 0x1343…1344 0x1a 0x1344…1345 0x82 0x1345…1347 »* « 0x1347…1348 0x81 0x1348…1349 »*« 0x1349…134a 0x06 0x134a…134b 0xb1 0x134b…137c »4TH - LOCAL OFFSET 169-176, WILL BE '11111111' IF« 0x137c…137d 0x16 0x137d…137e 0x82 0x137e…1380 »* « 0x1380…1381 0x81 0x1381…1382 »*« 0x1382…1383 0x0c 0x1383…1384 0xb0 0x1384…13b4 »THE SOURCE TO BE XREFED IS ALREADY IN THE $WORK2« 0x13b4…13b5 0x11 0x13b5…13b6 0x82 0x13b6…13b8 »* « 0x13b8…13b9 0x81 0x13b9…13ba »*« 0x13ba…13bb 0x0c 0x13bb…13bc 0xb5 0x13bc…13f1 »FILE (IE. RPGX WAS CALLED BY AUTOC AND THE SOURCE WAS« 0x13f1…13f2 0x0c 0x13f2…13f3 0x82 0x13f3…13f5 »* « 0x13f5…13f6 0x81 0x13f6…13f7 »*« 0x13f7…13f8 0x0c 0x13f8…13f9 0xb2 0x13f9…142b »NOT CATALOGED BY #AUTO), OR USED TO TELL RPGX THAT« 0x142b…142c 0x0f 0x142c…142d 0x82 0x142d…142f »* « 0x142f…1430 0x81 0x1430…1431 »*« 0x1431…1432 0x0c 0x1432…1433 0xb4 0x1433…1467 »IT WAS CALLED BY RPGXT (MENU OPTION 4) AND THEREFORE« 0x1467…1468 0x0d 0x1468…1469 0x82 0x1469…146b »* « 0x146b…146c 0x81 0x146c…146d »*« 0x146d…146e 0x0c 0x146e…146f 0x9e 0x146f…148d »PARAMETER MEMORY IS IN EFFECT.« 0x148d…148e 0x23 0x148e…148f 0x82 0x148f…1491 »* « 0x1491…1492 0x81 0x1492…1493 »*« 0x1493…1494 0x4d 0x1494…1495 0x82 0x1495…1497 »* « 0x1497…1498 0x81 0x1498…1499 »*« 0x1499…149a 0x03 0x149a…149b 0x85 0x149b…14a0 »NOTE:« 0x14a0…14a1 0x02 0x14a1…14a2 0xb3 0x14a2…14d5 »THIS PROCEDURE CAN BE CALLED IN THE FOLLOWING WAYS:« 0x14d5…14d6 0x10 0x14d6…14d7 0x82 0x14d7…14d9 »* « 0x14d9…14da 0x81 0x14da…14db »*« 0x14db…14dc 0x4d 0x14dc…14dd 0x82 0x14dd…14df »* « 0x14df…14e0 0x81 0x14e0…14e1 »*« 0x14e1…14e2 0x0a 0x14e2…14e3 0x82 0x14e3…14e5 »1)« 0x14e5…14e6 0x02 0x14e6…14e7 0xaa 0x14e7…1511 »FROM THE RPGP MENU (LOCAL 205-212 = 'RPGXT« 0x1511…1512 0x03 0x1512…1513 0x82 0x1513…1515 »')« 0x1515…1516 0x10 0x1516…1517 0x82 0x1517…1519 »* « 0x1519…151a 0x81 0x151a…151b »*« 0x151b…151c 0x0a 0x151c…151d 0x82 0x151d…151f »2)« 0x151f…1520 0x02 0x1520…1521 0xa4 0x1521…1545 »FROM RPGONL (LOCAL 205-212 = 'RPGONL« 0x1545…1546 0x02 0x1546…1547 0x82 0x1547…1549 »')« 0x1549…154a 0x17 0x154a…154b 0x82 0x154b…154d »* « 0x154d…154e 0x81 0x154e…154f »*« 0x154f…1550 0x0a 0x1550…1551 0x82 0x1551…1553 »3)« 0x1553…1554 0x02 0x1554…1555 0xa0 0x1555…1575 »FROM RPGC (LOCAL 205-212 = 'RPGC« 0x1575…1576 0x04 0x1576…1577 0x82 0x1577…1579 »')« 0x1579…157a 0x19 0x157a…157b 0x82 0x157b…157d »* « 0x157d…157e 0x81 0x157e…157f »*« 0x157f…1580 0x0a 0x1580…1581 0x82 0x1581…1583 »4)« 0x1583…1584 0x02 0x1584…1585 0xa2 0x1585…15a7 »FROM AUTOC (LOCAL 205-212 = 'AUTOC« 0x15a7…15a8 0x03 0x15a8…15a9 0x82 0x15a9…15ab »')« 0x15ab…15ac 0x18 0x15ac…15ad 0x82 0x15ad…15af »* « 0x15af…15b0 0x81 0x15b0…15b1 »*« 0x15b1…15b2 0x4d 0x15b2…15b3 0x82 0x15b3…15b5 »* « 0x15b5…15b6 0xd0 0x15b6…1606 »******************************************************************************* « 0x1606…1607 0x00 0x1607…1620 81 5c 4d 82 5c 40 81 5c 03 99 d9 d7 c7 e7 40 d7 c7 d5 c1 d4 c5 6b 5b e2 d6 ┆a*(b* a* rRPGX PGNAME,$SO┆ 0x1620…1640 e4 d9 c3 c5 6b c9 d5 d3 c9 c2 31 82 5c 40 81 5c 4d 82 5c 40 81 5c 03 b7 e3 c8 c9 e2 40 d7 d9 d6 ┆URCE,INLIB b* a*(b* a* ¼THIS PRO┆ 0x1640…1660 c3 c5 c4 e4 d9 c5 40 c5 e7 c5 c3 e4 e3 c5 e2 40 e3 c8 c5 40 d9 d7 c7 40 c3 d9 d6 e2 e2 40 d9 c5 ┆CEDURE EXECUTES THE RPG CROSS RE┆ 0x1660…1680 c6 c5 d9 c5 d5 c3 c5 40 d7 d9 d6 c7 d9 c1 d4 13 82 5c 40 81 5c 4d 82 5c 40 81 5c 03 b5 e3 c8 c5 ┆FERENCE PROGRAM b* a*(b* a* §THE┆ 0x1680…16a0 40 d7 d6 e2 c9 e3 c9 d6 d5 c1 d3 40 d7 c1 d9 c1 d4 c5 e3 c5 d9 e2 40 c1 e2 40 c9 d5 d7 e4 e3 40 ┆ POSITIONAL PARAMETERS AS INPUT ┆ 0x16a0…16c0 c1 d9 c5 40 e3 c8 c5 40 c6 d6 d3 d3 d6 e6 c9 d5 c7 60 15 82 5c 40 81 5c 06 9f f1 e2 e3 40 60 40 ┆ARE THE FOLLOWING- b* a* ¤1ST - ┆ 0x16c0…16e0 d7 d9 d6 c7 d9 c1 d4 40 d5 c1 d4 c5 6b 40 4d d9 c5 d8 e4 c9 d9 c5 c4 5d 6b 28 82 5c 40 81 5c 06 ┆PROGRAM NAME, (REQUIRED), b* a* ┆ 0x16e0…1700 ad f2 d5 c4 40 60 40 7b 40 c2 d3 d6 c3 d2 e2 40 c6 d6 d9 40 5b e2 d6 e4 d9 c3 c5 40 c6 c9 d3 c5 ┆Ý2ND - # BLOCKS FOR $SOURCE FILE┆