|
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: 3072 (0xc00)
Notes: MEMBER_P, Member_Text
Names: »RPGSDA «
└─⟦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⟧ ».RPGSDA «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGSDA'******************** ******************************************************************************* * ******** * 06/13/83 the screen displayed default for # of blocks used by the ******** * work files is changed from '0040' to '40'. the default for ******** * mrt maximum is changed from '00' to '0'. this work is ******** * performed under ptr ev70958. ******** * 06/03/84 The MRO default was written to the LDA - NOMRO ******** * ******** ******************************************************************************* // MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB // LOCAL AREA-SYSTEM ************************************************************** * THIS PROCEDURE CANNOT BE RUN FROM THE JOBQ OR BE EVOKED * ************************************************************** // IF JOBQ-NO IF EVOKED-NO GOTO NJOBQ // MSG ?WS?,?M'2100,1,75'? // RETURN // TAG NJOBQ // IF PROC-SDA GOTO SDAOK // #ERR 1063,3,RPG // TAG SDAOK // * 1057 ************************************************************** * IF THE PRECEDING PROC WAS AN RPG PROC * * THEN DO NOT INITIALIZE THE LDA. * ************************************************************** // IF '?L'1,3'?'/'RPG' GOTO STORLDA ************************************************************** * BLANK THE LDA AND THEN INITIALIZE * ************************************************************** // LOCAL OFFSET-1,DATA-' NODSMPRINT NOXREF0 NONEP',BLANK-384,+ AREA-SYSTEM // LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK NOOBJECTGEN 40 COMP R96',+ AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-453,DATA-'NOMRO',BLANK-5,AREA-SYSTEM ***************************************************************************** * STORE THE LDA IN PARAMETERS 58 - 60 (SDA USES THE SAME AREA OF THE LDA) * ***************************************************************************** // TAG STORLDA // LOCAL OFFSET-1,DATA-'RPGSDA ',AREA-SYSTEM // EVALUATE P58='?L'1,128'?' // EVALUATE P59='?L'129,128'?' // EVALUATE P60='?L'257,128'?' ************************************ * CALL SDA * ************************************ SDA ,?CLIB? ************************************ * RESTORE THE LDA * ************************************ // LOCAL OFFSET-1,DATA-'?58?',BLANK-384,AREA-SYSTEM // LOCAL OFFSET-129,DATA-'?59?',AREA-SYSTEM // LOCAL OFFSET-257,DATA-'?60?',AREA-SYSTEM ******************************************************************************* * * THIS PROCEDURE IS THE INTERFACE BETWEEN THE SCREEN DESIGN AID * AND THE RPG MENU. IT IS EXECUTED WHEN THE USER SELECTS OPTION 6 FROM * THE RPG MENU. THIS PROCEDURE HAS NO PARAMETERS. * *******************************************************************************