|
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: 5632 (0x1600)
Notes: MEMBER_P, Member_Text
Names: »RPGR «
└─⟦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⟧ ».RPGR «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS RPGR *********************** ******************************************************************************* // MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB // IFF ?1?/ GOTO NAMPRES ********************************************************* * 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 DISPLAY PROMPT SCREEN * ********************************************************* // HELP RPGR,?1?,?2?,?3?,?4'?CLIB?'?,?5?,,?7?,?8? // RETURN * // TAG NAMPRES // IF JOBQ-NO IF EVOKED-NO * 1020 ***************************************** * * * INITIALIZE LOCAL AREA. * * * ***************************************** // LOCAL OFFSET-1,DATA-'RPGR',BLANK-8,AREA-SYSTEM PROC NAME // LOCAL OFFSET-187,DATA-'?WS?',AREA-SYSTEM WSID FOR #RPGEN // LOCAL OFFSET-238,DATA-'0 000000 ',AREA-SYSTEM ************************************************************** * * * USE $MAINT FUNCTION TO COPY THE RPG SOURCE INTO $WORK2 * * FILE SO THAT IT CAN BE PROCESSED BY THE RPG CONSOLE FILE * * FORMAT GENERATOR PROGRAM. IF PARAMETER 9 IS '11111111' * * THEN THE SOURCE IS ALREADY IN $WORK2. THEREFORE DO NOT * * DO THE COPY WITH $MAINT. * * * ************************************************************** // IF ?9?/11111111 GOTO SKIP // LOAD $MAINT // FILE NAME-$WORK2,RETAIN-J,UNIT-F1,BLOCKS-?2'40'?,EXTEND-25 // RUN // COPY FROM-?4'?CLIB?'?,TO-DISK,LIBRARY-S,FILE-$WORK2,RECL-96,NAME-?1? // END // TAG SKIP **************************************************** * * * LOAD THE CONSOLE FILE FORMAT GENERATOR PROGRAM * * * **************************************************** // LOAD #RPGEN,#RPGLIB // FILE NAME-SOURCE,RETAIN-J,UNIT-F1,LABEL-$WORK2 // FILE NAME-WORK,RETAIN-J,UNIT-F1,LABEL-$WORK2 // FILE NAME-SFGR,RETAIN-J,UNIT-F1,BLOCKS-?2?,EXTEND-25 // RUN **************************************************** * * * THIS PROGRAM USES BYTES 243-246 OF THE SYSTEM * * LDA AS ERROR FLAG BYTES. IF ANY OF THESE BYTES * * CONTAIN '1', ISSUE THE APPROPRIATE ERROR. * * RETURN ON ALL MESSAGES EXCEPT 1024. * * * * 1021 - NO CONSOLE FILE EXISTS IN THIS PROGRAM * * 1022 - BLANK FILE NAME IN COLUMNS 7-14 FOR * * CONSOLE DEVICE * * 1023 - INCONSISTENT RECORD ID CODE USAGE ON * * 'OR' LINE * * 1024 - FORMAT FOR CONSOLE FILE DOES NOT FIT ON * * SCREEN * * * **************************************************** // IF ?L'246,1'?/1 * 'RPG-1021' // IF ?L'246,1'?/1 * 1021 // IF ?L'245,1'?/1 * 'RPG-1022' // IF ?L'245,1'?/1 * 1022 // IF ?L'244,1'?/1 * 'RPG-1023' // IF ?L'244,1'?/1 * 1023 // IF ?L'243,1'?/1 * 'RPG-1024' // IF ?L'243,1'?/1 * 1024 // IFF ?L'243,4'?/0000 PAUSE // IFF ?L'244,3'?/000 RETURN ************************************************************ * * * USE $MAINT TO COPY THE OUTPUT FROM THE FORMAT GENERATOR * * PROGRAM BACK INTO A SOURCE MEMBER SO THAT IT CAN BE * * PROCESSED BY $SFGR. * * * ************************************************************ // LOAD $MAINT // FILE NAME-SFGR,RETAIN-J,UNIT-F1 // RUN // IF ?7?/REPLACE COPY FROM-DISK,TO-?4'?CLIB?'?,FILE-SFGR,RETAIN-R // ELSE COPY FROM-DISK,TO-?4'?CLIB?'?,FILE-SFGR // END ********************************************************** * * * USE $SFGR TO CREATE A SCREEN FORMAT LOAD MEMBER FROM * * THE SOURCE CREATED BY #RPGEN. * * * ********************************************************** // LOAD $SFGR // RUN // IF ?7?/REPLACE LOADMBR NAME-?L'249,8'?,REPLACE-YES // ELSE LOADMBR NAME-?L'249,8'? // IF ?8?/NOPRINT INOUT INLIB-?4'?CLIB?'?,OUTLIB-?5'?CLIB?'?,PRINT-NO // ELSE INOUT INLIB-?4'?CLIB?'?,OUTLIB-?5'?CLIB?'?,PRINT-YES // CREATE SOURCE-?L'249,8'?,NUMBER-?L'247,2'? // END // IFF ?3?/NOSAVE RETURN *********************************************************** * * * IF 'SAVE' WAS NOT SPECIFIED, THEN USE $MAINT TO DELETE * * THE SOURCE MEMBER CREATED FROM THE INPUT LIBRARY. * * * *********************************************************** // LOAD $MAINT // RUN // DELETE NAME-?L'249,8'?,LIBRARY-S,LIBRNAME-?4? // END ******************************************************************************* * * * RPGR PGNAME,SOURCE,NOSAVE,INLIB,OUTLIB,GEN,REPLACE,PRINT * * * * THIS PROCEDURE EXECUTES THE CONSOLE SCREEN FORMAT GENERATOR * * TO PRODUCE SFGR SOURCE STATEMENTS DESCRIBING THE SCREEN FORMAT * * FOR THE CONSOLE FILE. * * * * THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING- * * 1ST - PROGRAM NAME, (REQUIRED), * * 2ND - # BLOCKS FOR $SOURCE FILE, DEFAULT- 40, * * 3RD - DON'T SAVE SFGR SOURCE, DEFAULT- SAVE, * * 4TH - INPUT LIBRARY, DEFAULT- CURRENT LIBRARY * * 5TH - OUTPUT LIBRARY, DEFAULT- CURRENT LIBRARY * * 6TH - SCREEN FORMAT SIZE, DEFAULT- GEN -->1920 * * 7TH - AUTOMATICALLY REPLACE DUPLICATE MEMBERS, DEFAULT-REPLACE * * 8TH - PRINT THE SFGR OUTPUT, DEFAULT-PRINT * * 9TH - LOCAL OFFSET 169-176, WILL BE '11111111' IF THE SOURCE * * FOR WHICH FORMATS IS TO GENERATED IS ALREADY IN THE $WORK2 * * FILE (IE. RPGR WAS CALLED BY AUTOC AND THE SOURCE WAS * * NOT CATALOGED BY #AUTO) * * * *******************************************************************************
0x0000…0001 0xd0 0x0001…0051 »*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS RPGR *********************** « 0x0051…0052 0xd0 0x0052…00a2 »******************************************************************************* « 0x00a2…00a3 0xa8 0x00a3…00cb »// MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB« 0x00cb…00cc 0x28 0x00cc…00cd 0x98 0x00cd…00e5 »// IFF ?1?/ GOTO NAMPRES« 0x00e5…00e6 0x38 0x00e6…00e7 0xb9 0x00e7…0120 »*********************************************************« 0x0120…0121 0x17 0x0121…0122 0x81 0x0122…0123 »*« 0x0123…0124 0x02 0x0124…0125 0xb3 0x0125…0158 »IF P1=BLANK AND JOBQ OR EVOKED, ISSUE ERROR MESSAGE« 0x0158…0159 0x02 0x0159…015a 0x81 0x015a…015b »*« 0x015b…015c 0x17 0x015c…015d 0xb9 0x015d…0196 »*********************************************************« 0x0196…0197 0x17 0x0197…0198 0xa5 0x0198…01bd »// IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ« 0x01bd…01be 0x2b 0x01be…01bf 0x9a 0x01bf…01d9 »// MSG ?WS?,?M'2100,1,75'?« 0x01d9…01da 0x36 0x01da…01db 0x89 0x01db…01e4 »// RETURN« 0x01e4…01e5 0x47 0x01e5…01e6 0x8c 0x01e6…01f2 »// TAG NJOBQ« 0x01f2…01f3 0x44 0x01f3…01f4 0xb9 0x01f4…022d »*********************************************************« 0x022d…022e 0x17 0x022e…022f 0x81 0x022f…0230 »*« 0x0230…0231 0x02 0x0231…0232 0x9a 0x0232…024c »ELSE DISPLAY PROMPT SCREEN« 0x024c…024d 0x1b 0x024d…024e 0x81 0x024e…024f »*« 0x024f…0250 0x17 0x0250…0251 0xb9 0x0251…028a »*********************************************************« 0x028a…028b 0x17 0x028b…028c 0xb1 0x028c…02bd »// HELP RPGR,?1?,?2?,?3?,?4'?CLIB?'?,?5?,,?7?,?8?« 0x02bd…02be 0x1f 0x02be…02bf 0x89 0x02bf…02c8 »// RETURN« 0x02c8…02c9 0x47 0x02c9…02ca 0x81 0x02ca…02cb »*« 0x02cb…02cc 0x4f 0x02cc…02cd 0x8e 0x02cd…02db »// TAG NAMPRES« 0x02db…02dc 0x42 0x02dc…02dd 0xa1 0x02dd…02fe »// IF JOBQ-NO IF EVOKED-NO * 1020« 0x02fe…02ff 0x2f 0x02ff…0300 0xa9 0x0300…0329 »*****************************************« 0x0329…032a 0x27 0x032a…032b 0x81 0x032b…032c »*« 0x032c…032d 0x27 0x032d…032e 0x81 0x032e…032f »*« 0x032f…0330 0x27 0x0330…0331 0x81 0x0331…0332 »*« 0x0332…0333 0x05 0x0333…0334 0x96 0x0334…034a »INITIALIZE LOCAL AREA.« 0x034a…034b 0x0c 0x034b…034c 0x81 0x034c…034d »*« 0x034d…034e 0x27 0x034e…034f 0x81 0x034f…0350 »*« 0x0350…0351 0x27 0x0351…0352 0x81 0x0352…0353 »*« 0x0353…0354 0x27 0x0354…0355 0xa9 0x0355…037e »*****************************************« 0x037e…037f 0x27 0x037f…0380 0xb1 0x0380…03b1 »// LOCAL OFFSET-1,DATA-'RPGR',BLANK-8,AREA-SYSTEM« 0x03b1…03b2 0x08 0x03b2…03b3 0x89 0x03b3…03bc »PROC NAME« 0x03bc…03bd 0x0e 0x03bd…03be 0xab 0x03be…03e9 »// LOCAL OFFSET-187,DATA-'?WS?',AREA-SYSTEM« 0x03e9…03ea 0x0e 0x03ea…03eb 0x8f 0x03eb…03fa »WSID FOR #RPGEN« 0x03fa…03fb 0x08 0x03fb…03fc 0x9b 0x03fc…0417 »// LOCAL OFFSET-238,DATA-'0« 0x0417…0418 0x04 0x0418…0419 0x86 0x0419…041f »000000« 0x041f…0420 0x08 0x0420…0421 0x8d 0x0421…042e »',AREA-SYSTEM« 0x042e…042f 0x16 0x042f…0430 0xbe 0x0430…046e »**************************************************************« 0x046e…046f 0x12 0x046f…0470 0x81 0x0470…0471 »*« 0x0471…0472 0x3c 0x0472…0473 0x81 0x0473…0474 »*« 0x0474…0475 0x12 0x0475…0476 0x81 0x0476…0477 »*« 0x0477…0478 0x02 0x0478…0479 0xb6 0x0479…04af »USE $MAINT FUNCTION TO COPY THE RPG SOURCE INTO $WORK2« 0x04af…04b0 0x04 0x04b0…04b1 0x81 0x04b1…04b2 »*« 0x04b2…04b3 0x12 0x04b3…04b4 0x81 0x04b4…04b5 »*« 0x04b5…04b6 0x02 0x04b6…04b7 0xb8 0x04b7…04ef »FILE SO THAT IT CAN BE PROCESSED BY THE RPG CONSOLE FILE« 0x04ef…04f0 0x02 0x04f0…04f1 0x81 0x04f1…04f2 »*« 0x04f2…04f3 0x12 0x04f3…04f4 0x81 0x04f4…04f5 »*« 0x04f5…04f6 0x02 0x04f6…04f7 0x99 0x04f7…0510 »FORMAT GENERATOR PROGRAM.« 0x0510…0511 0x02 0x0511…0512 0x9c 0x0512…052e »IF PARAMETER 9 IS '11111111'« 0x052e…052f 0x03 0x052f…0530 0x81 0x0530…0531 »*« 0x0531…0532 0x12 0x0532…0533 0x81 0x0533…0534 »*« 0x0534…0535 0x02 0x0535…0536 0xa5 0x0536…055b »THEN THE SOURCE IS ALREADY IN $WORK2.« 0x055b…055c 0x02 0x055c…055d 0x90 0x055d…056d »THEREFORE DO NOT« 0x056d…056e 0x03 0x056e…056f 0x81 0x056f…0570 »*« 0x0570…0571 0x12 0x0571…0572 0x81 0x0572…0573 »*« 0x0573…0574 0x02 0x0574…0575 0x98 0x0575…058d »DO THE COPY WITH $MAINT.« 0x058d…058e 0x22 0x058e…058f 0x81 0x058f…0590 »*« 0x0590…0591 0x12 0x0591…0592 0x81 0x0592…0593 »*« 0x0593…0594 0x3c 0x0594…0595 0x81 0x0595…0596 »*« 0x0596…0597 0x12 0x0597…0598 0xbe 0x0598…05d6 »**************************************************************« 0x05d6…05d7 0x12 0x05d7…05d8 0x92 0x05d8…05ea »// IF ?9?/11111111« 0x05ea…05eb 0x02 0x05eb…05ec 0x89 0x05ec…05f5 »GOTO SKIP« 0x05f5…05f6 0x33 0x05f6…05f7 0x8e 0x05f7…0605 »// LOAD $MAINT« 0x0605…0606 0x42 0x0606…0607 0xbd 0x0607…0644 »// FILE NAME-$WORK2,RETAIN-J,UNIT-F1,BLOCKS-?2'40'?,EXTEND-25« 0x0644…0645 0x13 0x0645…0646 0x86 0x0646…064c »// RUN« 0x064c…064d 0x4a 0x064d…064e 0xc7 0x064e…0695 »// COPY FROM-?4'?CLIB?'?,TO-DISK,LIBRARY-S,FILE-$WORK2,RECL-96,NAME-?1?« 0x0695…0696 0x09 0x0696…0697 0x86 0x0697…069d »// END« 0x069d…069e 0x4a 0x069e…069f 0x8b 0x069f…06aa »// TAG SKIP« 0x06aa…06ab 0x45 0x06ab…06ac 0xb4 0x06ac…06e0 »****************************************************« 0x06e0…06e1 0x1c 0x06e1…06e2 0x81 0x06e2…06e3 »*« 0x06e3…06e4 0x32 0x06e4…06e5 0x81 0x06e5…06e6 »*« 0x06e6…06e7 0x1c 0x06e7…06e8 0x81 0x06e8…06e9 »*« 0x06e9…06ea 0x02 0x06ea…06eb 0xae 0x06eb…0719 »LOAD THE CONSOLE FILE FORMAT GENERATOR PROGRAM« 0x0719…071a 0x02 0x071a…071b 0x81 0x071b…071c »*« 0x071c…071d 0x1c 0x071d…071e 0x81 0x071e…071f »*« 0x071f…0720 0x32 0x0720…0721 0x81 0x0721…0722 »*« 0x0722…0723 0x1c 0x0723…0724 0xb4 0x0724…0758 »****************************************************« 0x0758…0759 0x1c 0x0759…075a 0x96 0x075a…0770 »// LOAD #RPGEN,#RPGLIB« 0x0770…0771 0x3a 0x0771…0772 0xb1 0x0772…07a3 »// FILE NAME-SOURCE,RETAIN-J,UNIT-F1,LABEL-$WORK2« 0x07a3…07a4 0x1f 0x07a4…07a5 0xaf 0x07a5…07d4 »// FILE NAME-WORK,RETAIN-J,UNIT-F1,LABEL-$WORK2« 0x07d4…07d5 0x21 0x07d5…07d6 0xb7 0x07d6…080d »// FILE NAME-SFGR,RETAIN-J,UNIT-F1,BLOCKS-?2?,EXTEND-25« 0x080d…080e 0x19 0x080e…080f 0x86 0x080f…0815 »// RUN« 0x0815…0816 0x4a 0x0816…0817 0xb4 0x0817…084b »****************************************************« 0x084b…084c 0x1c 0x084c…084d 0x81 0x084d…084e »*« 0x084e…084f 0x32 0x084f…0850 0x81 0x0850…0851 »*« 0x0851…0852 0x1c 0x0852…0853 0x81 0x0853…0854 »*« 0x0854…0855 0x02 0x0855…0856 0xad 0x0856…0883 »THIS PROGRAM USES BYTES 243-246 OF THE SYSTEM« 0x0883…0884 0x03 0x0884…0885 0x81 0x0885…0886 »*« 0x0886…0887 0x1c 0x0887…0888 0x81 0x0888…0889 »*« 0x0889…088a 0x02 0x088a…088b 0x98 0x088b…08a3 »LDA AS ERROR FLAG BYTES.« 0x08a3…08a4 0x02 0x08a4…08a5 0x97 0x08a5…08bc »IF ANY OF THESE BYTES *« 0x08bc…08bd 0x1c 0x08bd…08be 0x81 0x08be…08bf »*« 0x08bf…08c0 0x02 0x08c0…08c1 0xa9 0x08c1…08ea »CONTAIN '1', ISSUE THE APPROPRIATE ERROR.« 0x08ea…08eb 0x07 0x08eb…08ec 0x81 0x08ec…08ed »*« 0x08ed…08ee 0x1c 0x08ee…08ef 0x81 0x08ef…08f0 »*« 0x08f0…08f1 0x02 0x08f1…08f2 0xa3 0x08f2…0915 »RETURN ON ALL MESSAGES EXCEPT 1024.« 0x0915…0916 0x0d 0x0916…0917 0x81 0x0917…0918 »*« 0x0918…0919 0x1c 0x0919…091a 0x81 0x091a…091b »*« 0x091b…091c 0x32 0x091c…091d 0x81 0x091d…091e »*« 0x091e…091f 0x1c 0x091f…0920 0x81 0x0920…0921 »*« 0x0921…0922 0x02 0x0922…0923 0xad 0x0923…0950 »1021 - NO CONSOLE FILE EXISTS IN THIS PROGRAM« 0x0950…0951 0x03 0x0951…0952 0x81 0x0952…0953 »*« 0x0953…0954 0x1c 0x0954…0955 0x81 0x0955…0956 »*« 0x0956…0957 0x02 0x0957…0958 0xaa 0x0958…0982 »1022 - BLANK FILE NAME IN COLUMNS 7-14 FOR« 0x0982…0983 0x06 0x0983…0984 0x81 0x0984…0985 »*« 0x0985…0986 0x1c 0x0986…0987 0x81 0x0987…0988 »*« 0x0988…0989 0x09 0x0989…098a 0x8e 0x098a…0998 »CONSOLE DEVICE« 0x0998…0999 0x1b 0x0999…099a 0x81 0x099a…099b »*« 0x099b…099c 0x1c 0x099c…099d 0x81 0x099d…099e »*« 0x099e…099f 0x02 0x099f…09a0 0xab 0x09a0…09cb »1023 - INCONSISTENT RECORD ID CODE USAGE ON« 0x09cb…09cc 0x05 0x09cc…09cd 0x81 0x09cd…09ce »*« 0x09ce…09cf 0x1c 0x09cf…09d0 0x81 0x09d0…09d1 »*« 0x09d1…09d2 0x09 0x09d2…09d3 0x89 0x09d3…09dc »'OR' LINE« 0x09dc…09dd 0x20 0x09dd…09de 0x81 0x09de…09df »*« 0x09df…09e0 0x1c 0x09e0…09e1 0x81 0x09e1…09e2 »*« 0x09e2…09e3 0x02 0x09e3…09e4 0xae 0x09e4…0a12 »1024 - FORMAT FOR CONSOLE FILE DOES NOT FIT ON« 0x0a12…0a13 0x02 0x0a13…0a14 0x81 0x0a14…0a15 »*« 0x0a15…0a16 0x1c 0x0a16…0a17 0x81 0x0a17…0a18 »*« 0x0a18…0a19 0x09 0x0a19…0a1a 0x86 0x0a1a…0a20 »SCREEN« 0x0a20…0a21 0x23 0x0a21…0a22 0x81 0x0a22…0a23 »*« 0x0a23…0a24 0x1c 0x0a24…0a25 0x81 0x0a25…0a26 »*« 0x0a26…0a27 0x32 0x0a27…0a28 0x81 0x0a28…0a29 »*« 0x0a29…0a2a 0x1c 0x0a2a…0a2b 0xb4 0x0a2b…0a5f »****************************************************« 0x0a5f…0a60 0x1c 0x0a60…0a61 0x92 0x0a61…0a73 »// IF ?L'246,1'?/1« 0x0a73…0a74 0x02 0x0a74…0a75 0x8c 0x0a75…0a81 »* 'RPG-1021'« 0x0a81…0a82 0x30 0x0a82…0a83 0x92 0x0a83…0a95 »// IF ?L'246,1'?/1« 0x0a95…0a96 0x02 0x0a96…0a97 0x86 0x0a97…0a9d »* 1021« 0x0a9d…0a9e 0x36 0x0a9e…0a9f 0x92 0x0a9f…0ab1 »// IF ?L'245,1'?/1« 0x0ab1…0ab2 0x02 0x0ab2…0ab3 0x8c 0x0ab3…0abf »* 'RPG-1022'« 0x0abf…0ac0 0x30 0x0ac0…0ac1 0x92 0x0ac1…0ad3 »// IF ?L'245,1'?/1« 0x0ad3…0ad4 0x02 0x0ad4…0ad5 0x86 0x0ad5…0adb »* 1022« 0x0adb…0adc 0x36 0x0adc…0add 0x92 0x0add…0aef »// IF ?L'244,1'?/1« 0x0aef…0af0 0x02 0x0af0…0af1 0x8c 0x0af1…0afd »* 'RPG-1023'« 0x0afd…0afe 0x30 0x0afe…0aff 0x92 0x0aff…0b11 »// IF ?L'244,1'?/1« 0x0b11…0b12 0x02 0x0b12…0b13 0x86 0x0b13…0b19 »* 1023« 0x0b19…0b1a 0x36 0x0b1a…0b1b 0x92 0x0b1b…0b2d »// IF ?L'243,1'?/1« 0x0b2d…0b2e 0x02 0x0b2e…0b2f 0x8c 0x0b2f…0b3b »* 'RPG-1024'« 0x0b3b…0b3c 0x30 0x0b3c…0b3d 0x92 0x0b3d…0b4f »// IF ?L'243,1'?/1« 0x0b4f…0b50 0x02 0x0b50…0b51 0x86 0x0b51…0b57 »* 1024« 0x0b57…0b58 0x36 0x0b58…0b59 0x96 0x0b59…0b6f »// IFF ?L'243,4'?/0000« 0x0b6f…0b70 0x03 0x0b70…0b71 0x85 0x0b71…0b76 »PAUSE« 0x0b76…0b77 0x32 0x0b77…0b78 0x95 0x0b78…0b8d »// IFF ?L'244,3'?/000« 0x0b8d…0b8e 0x03 0x0b8e…0b8f 0x86 0x0b8f…0b95 »RETURN« 0x0b95…0b96 0x32 0x0b96…0b97 0xbc 0x0b97…0bd3 »************************************************************« 0x0bd3…0bd4 0x14 0x0bd4…0bd5 0x81 0x0bd5…0bd6 »*« 0x0bd6…0bd7 0x3a 0x0bd7…0bd8 0x81 0x0bd8…0bd9 »*« 0x0bd9…0bda 0x14 0x0bda…0bdb 0x81 0x0bdb…0bdc »*« 0x0bdc…0bdd 0x02 0x0bdd…0bde 0xb9 0x0bde…0c17 »USE $MAINT TO COPY THE OUTPUT FROM THE FORMAT GENERATOR *« 0x0c17…0c18 0x14 0x0c18…0c19 0x81 0x0c19…0c1a »*« 0x0c1a…0c1b 0x02 0x0c1b…0c1c 0xb3 0x0c1c…0c4f »PROGRAM BACK INTO A SOURCE MEMBER SO THAT IT CAN BE« 0x0c4f…0c50 0x05 0x0c50…0c51 0x81 0x0c51…0c52 »*« 0x0c52…0c53 0x14 0x0c53…0c54 0x81 0x0c54…0c55 »*« 0x0c55…0c56 0x02 0x0c56…0c57 0x93 0x0c57…0c6a »PROCESSED BY $SFGR.« 0x0c6a…0c6b 0x25 0x0c6b…0c6c 0x81 0x0c6c…0c6d »*« 0x0c6d…0c6e 0x14 0x0c6e…0c6f 0x81 0x0c6f…0c70 »*« 0x0c70…0c71 0x3a 0x0c71…0c72 0x81 0x0c72…0c73 »*« 0x0c73…0c74 0x14 0x0c74…0c75 0xbc 0x0c75…0cb1 »************************************************************« 0x0cb1…0cb2 0x14 0x0cb2…0cb3 0x8e 0x0cb3…0cc1 »// LOAD $MAINT« 0x0cc1…0cc2 0x42 0x0cc2…0cc3 0xa2 0x0cc3…0ce5 »// FILE NAME-SFGR,RETAIN-J,UNIT-F1« 0x0ce5…0ce6 0x2e 0x0ce6…0ce7 0x86 0x0ce7…0ced »// RUN« 0x0ced…0cee 0x4a 0x0cee…0cef 0xc2 0x0cef…0d31 »// IF ?7?/REPLACE COPY FROM-DISK,TO-?4'?CLIB?'?,FILE-SFGR,RETAIN-R« 0x0d31…0d32 0x0e 0x0d32…0d33 0xaf 0x0d33…0d62 »// ELSE COPY FROM-DISK,TO-?4'?CLIB?'?,FILE-SFGR« 0x0d62…0d63 0x21 0x0d63…0d64 0x86 0x0d64…0d6a »// END« 0x0d6a…0d6b 0x4a 0x0d6b…0d6c 0xba 0x0d6c…0da6 »**********************************************************« 0x0da6…0da7 0x16 0x0da7…0da8 0x81 0x0da8…0da9 »*« 0x0da9…0daa 0x38 0x0daa…0dab 0x81 0x0dab…0dac »*« 0x0dac…0dad 0x16 0x0dad…0dae 0x81 0x0dae…0daf »*« 0x0daf…0db0 0x02 0x0db0…0db1 0xb4 0x0db1…0de5 »USE $SFGR TO CREATE A SCREEN FORMAT LOAD MEMBER FROM« 0x0de5…0de6 0x02 0x0de6…0de7 0x81 0x0de7…0de8 »*« 0x0de8…0de9 0x16 0x0de9…0dea 0x81 0x0dea…0deb »*« 0x0deb…0dec 0x02 0x0dec…0ded 0x9d 0x0ded…0e0a »THE SOURCE CREATED BY #RPGEN.« 0x0e0a…0e0b 0x19 0x0e0b…0e0c 0x81 0x0e0c…0e0d »*« 0x0e0d…0e0e 0x16 0x0e0e…0e0f 0x81 0x0e0f…0e10 »*« 0x0e10…0e11 0x38 0x0e11…0e12 0x81 0x0e12…0e13 »*« 0x0e13…0e14 0x16 0x0e14…0e15 0xba 0x0e15…0e4f »**********************************************************« 0x0e4f…0e50 0x16 0x0e50…0e51 0x8d 0x0e51…0e5e »// LOAD $SFGR« 0x0e5e…0e5f 0x43 0x0e5f…0e60 0x86 0x0e60…0e66 »// RUN« 0x0e66…0e67 0x4a 0x0e67…0e68 0xb5 0x0e68…0e9d »// IF ?7?/REPLACE LOADMBR NAME-?L'249,8'?,REPLACE-YES« 0x0e9d…0e9e 0x1b 0x0e9e…0e9f 0x9f 0x0e9f…0ebe »// ELSE LOADMBR NAME-?L'249,8'?« 0x0ebe…0ebf 0x31 0x0ebf…0ec0 0xc5 0x0ec0…0f05 »// IF ?8?/NOPRINT INOUT INLIB-?4'?CLIB?'?,OUTLIB-?5'?CLIB?'?,PRINT-NO« 0x0f05…0f06 0x0b 0x0f06…0f07 0xbc 0x0f07…0f43 »// ELSE INOUT INLIB-?4'?CLIB?'?,OUTLIB-?5'?CLIB?'?,PRINT-YES« 0x0f43…0f44 0x14 0x0f44…0f45 0xad 0x0f45…0f72 »// CREATE SOURCE-?L'249,8'?,NUMBER-?L'247,2'?« 0x0f72…0f73 0x23 0x0f73…0f74 0x86 0x0f74…0f7a »// END« 0x0f7a…0f7b 0x4a 0x0f7b…0f7c 0x98 0x0f7c…0f94 »// IFF ?3?/NOSAVE RETURN« 0x0f94…0f95 0x38 0x0f95…0f96 0xbb 0x0f96…0fd1 »***********************************************************« 0x0fd1…0fd2 0x15 0x0fd2…0fd3 0x81 0x0fd3…0fd4 »*« 0x0fd4…0fd5 0x39 0x0fd5…0fd6 0x81 0x0fd6…0fd7 »*« 0x0fd7…0fd8 0x15 0x0fd8…0fd9 0x81 0x0fd9…0fda »*« 0x0fda…0fdb 0x02 0x0fdb…0fdc 0xb8 0x0fdc…1014 »IF 'SAVE' WAS NOT SPECIFIED, THEN USE $MAINT TO DELETE *« 0x1014…1015 0x15 0x1015…1016 0x81 0x1016…1017 »*« 0x1017…1018 0x02 0x1018…1019 0xb1 0x1019…104a »THE SOURCE MEMBER CREATED FROM THE INPUT LIBRARY.« 0x104a…104b 0x06 0x104b…104c 0x81 0x104c…104d »*« 0x104d…104e 0x15 0x104e…104f 0x81 0x104f…1050 »*« 0x1050…1051 0x39 0x1051…1052 0x81 0x1052…1053 »*« 0x1053…1054 0x15 0x1054…1055 0xbb 0x1055…1090 »***********************************************************« 0x1090…1091 0x15 0x1091…1092 0x8e 0x1092…10a0 »// LOAD $MAINT« 0x10a0…10a1 0x42 0x10a1…10a2 0x86 0x10a2…10a8 »// RUN« 0x10a8…10a9 0x4a 0x10a9…10aa 0xb0 0x10aa…10da »// DELETE NAME-?L'249,8'?,LIBRARY-S,LIBRNAME-?4?« 0x10da…10db 0x20 0x10db…10dc 0x86 0x10dc…10e2 »// END« 0x10e2…10e3 0x4a 0x10e3…10e4 0xd0 0x10e4…1134 »******************************************************************************* « 0x1134…1135 0x81 0x1135…1136 »*« 0x1136…1137 0x4d 0x1137…1138 0x82 0x1138…113a »* « 0x113a…113b 0x81 0x113b…113c »*« 0x113c…113d 0x03 0x113d…113e 0xb8 0x113e…1176 »RPGR PGNAME,SOURCE,NOSAVE,INLIB,OUTLIB,GEN,REPLACE,PRINT« 0x1176…1177 0x12 0x1177…1178 0x82 0x1178…117a »* « 0x117a…117b 0x81 0x117b…117c »*« 0x117c…117d 0x4d 0x117d…117e 0x82 0x117e…1180 »* « 0x1180…1181 0x81 0x1181…1182 »*« 0x1182…1183 0x03 0x1183…1184 0xbb 0x1184…11bf »THIS PROCEDURE EXECUTES THE CONSOLE SCREEN FORMAT GENERATOR« 0x11bf…11c0 0x0f 0x11c0…11c1 0x82 0x11c1…11c3 »* « 0x11c3…11c4 0x81 0x11c4…11c5 »*« 0x11c5…11c6 0x02 0x11c6…11c7 0xbe 0x11c7…1205 »TO PRODUCE SFGR SOURCE STATEMENTS DESCRIBING THE SCREEN FORMAT« 0x1205…1206 0x0d 0x1206…1207 0x82 0x1207…1209 »* « 0x1209…120a 0x81 0x120a…120b »*« 0x120b…120c 0x02 0x120c…120d 0x95 0x120d…1222 »FOR THE CONSOLE FILE.« 0x1222…1223 0x36 0x1223…1224 0x82 0x1224…1226 »* « 0x1226…1227 0x81 0x1227…1228 »*« 0x1228…1229 0x4d 0x1229…122a 0x82 0x122a…122c »* « 0x122c…122d 0x81 0x122d…122e »*« 0x122e…122f 0x03 0x122f…1230 0xb5 0x1230…1265 »THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING-« 0x1265…1266 0x15 0x1266…1267 0x82 0x1267…1269 »* « 0x1269…126a 0x81 0x126a…126b »*« 0x126b…126c 0x06 0x126c…126d 0x9f 0x126d…128c »1ST - PROGRAM NAME, (REQUIRED),« 0x128c…128d 0x28 0x128d…128e 0x82 0x128e…1290 »* « 0x1290…1291 0x81 0x1291…1292 »*« 0x1292…1293 0x06 0x1293…1294 0xad 0x1294…12c1 »2ND - # BLOCKS FOR $SOURCE FILE, DEFAULT- 40,« 0x12c1…12c2 0x1a 0x12c2…12c3 0x82 0x12c3…12c5 »* « 0x12c5…12c6 0x81 0x12c6…12c7 »*« 0x12c7…12c8 0x06 0x12c8…12c9 0xac 0x12c9…12f5 »3RD - DON'T SAVE SFGR SOURCE, DEFAULT- SAVE,« 0x12f5…12f6 0x1b 0x12f6…12f7 0x82 0x12f7…12f9 »* « 0x12f9…12fa 0x81 0x12fa…12fb »*« 0x12fb…12fc 0x06 0x12fc…12fd 0xad 0x12fd…132a »4TH - INPUT LIBRARY, DEFAULT- CURRENT LIBRARY« 0x132a…132b 0x1a 0x132b…132c 0x82 0x132c…132e »* « 0x132e…132f 0x81 0x132f…1330 »*« 0x1330…1331 0x06 0x1331…1332 0xae 0x1332…1360 »5TH - OUTPUT LIBRARY, DEFAULT- CURRENT LIBRARY« 0x1360…1361 0x19 0x1361…1362 0x82 0x1362…1364 »* « 0x1364…1365 0x81 0x1365…1366 »*« 0x1366…1367 0x06 0x1367…1368 0xae 0x1368…1396 »6TH - SCREEN FORMAT SIZE, DEFAULT- GEN -->1920« 0x1396…1397 0x19 0x1397…1398 0x82 0x1398…139a »* « 0x139a…139b 0x81 0x139b…139c »*« 0x139c…139d 0x06 0x139d…139e 0xbe 0x139e…13dc »7TH - AUTOMATICALLY REPLACE DUPLICATE MEMBERS, DEFAULT-REPLACE« 0x13dc…13dd 0x09 0x13dd…13de 0x82 0x13de…13e0 »* « 0x13e0…13e1 0x81 0x13e1…13e2 »*« 0x13e2…13e3 0x06 0x13e3…13e4 0xaa 0x13e4…140e »8TH - PRINT THE SFGR OUTPUT, DEFAULT-PRINT« 0x140e…140f 0x1d 0x140f…1410 0x82 0x1410…1412 »* « 0x1412…1413 0x81 0x1413…1414 »*« 0x1414…1415 0x06 0x1415…1416 0xbc 0x1416…1452 »9TH - LOCAL OFFSET 169-176, WILL BE '11111111' IF THE SOURCE« 0x1452…1453 0x0b 0x1453…1454 0x82 0x1454…1456 »* « 0x1456…1457 0x81 0x1457…1458 »*« 0x1458…1459 0x0c 0x1459…145a 0xba 0x145a…1494 »FOR WHICH FORMATS IS TO GENERATED IS ALREADY IN THE $WORK2« 0x1494…1495 0x07 0x1495…1496 0x82 0x1496…1498 »* « 0x1498…1499 0x81 0x1499…149a »*« 0x149a…149b 0x0c 0x149b…149c 0xb5 0x149c…14d1 »FILE (IE. RPGR WAS CALLED BY AUTOC AND THE SOURCE WAS« 0x14d1…14d2 0x0c 0x14d2…14d3 0x82 0x14d3…14d5 »* « 0x14d5…14d6 0x81 0x14d6…14d7 »*« 0x14d7…14d8 0x0c 0x14d8…14d9 0x97 0x14d9…14f0 »NOT CATALOGED BY #AUTO)« 0x14f0…14f1 0x2a 0x14f1…14f2 0x82 0x14f2…14f4 »* « 0x14f4…14f5 0x81 0x14f5…14f6 »*« 0x14f6…14f7 0x4d 0x14f7…14f8 0x82 0x14f8…14fa »* « 0x14fa…14fb 0xd0 0x14fb…154b »******************************************************************************* « 0x154b…154c 0x00 0x154c…1560 e4 d9 c3 c5 6b d5 d6 e2 c1 e5 c5 6b c9 d5 d3 c9 c2 6b d6 e4 ┆URCE,NOSAVE,INLIB,OU┆ 0x1560…1580 e3 d3 c9 c2 6b c7 c5 d5 6b d9 c5 d7 d3 c1 c3 c5 6b d7 d9 c9 d5 e3 12 82 5c 40 81 5c 4d 82 5c 40 ┆TLIB,GEN,REPLACE,PRINT b* a*(b* ┆ 0x1580…15a0 81 5c 03 bb e3 c8 c9 e2 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c5 e7 c5 c3 e4 e3 c5 e2 40 e3 c8 c5 40 ┆a* ]THIS PROCEDURE EXECUTES THE ┆ 0x15a0…15c0 c3 d6 d5 e2 d6 d3 c5 40 e2 c3 d9 c5 c5 d5 40 c6 d6 d9 d4 c1 e3 40 c7 c5 d5 c5 d9 c1 e3 d6 d9 0f ┆CONSOLE SCREEN FORMAT GENERATOR ┆ 0x15c0…15e0 82 5c 40 81 5c 02 be e3 d6 40 d7 d9 d6 c4 e4 c3 c5 40 e2 c6 c7 d9 40 e2 d6 e4 d9 c3 c5 40 e2 e3 ┆b* a* ´TO PRODUCE SFGR SOURCE ST┆ 0x15e0…1600 c1 e3 c5 d4 c5 d5 e3 e2 40 c4 c5 e2 c3 d9 c9 c2 c9 d5 c7 40 e3 c8 c5 40 e2 c3 d9 c5 c5 d5 40 c6 ┆ATEMENTS DESCRIBING THE SCREEN F┆