|
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: 2304 (0x900)
Notes: MEMBER_P, Member_Text
Names: »AUTOCT «
└─⟦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⟧ ».AUTOCT «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'AUTOCT'************* ************************************************************************ * * * 06/13/83 the screen displayed default value for the # of blocks for * * 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 CC6116 The MRO parameter was added as parameter 21 * * * ************************************************************************ // LOCAL AREA-SYSTEM ********************************************* * IF THE PREVIOUS PROC WAS AN RPG PROC, * * THEN LOCAL 1-3 WILL BE 'RPG'. * * IF SO, DON'T INITIALIZE THE LDA. * ********************************************* // IF '?L'1,3'?'/'RPG' GOTO RETPARMS *************************************** * BLANK THE LDA AND THEN INITIALIZE * * (SEE LDADATA.) * *************************************** // LOCAL OFFSET-1,DATA-' NODSMPRINT NOXREF0 NONEP',BLANK-384,+ AREA-SYSTEM // LOCAL OFFSET-51,DATA-'NOHALTREPLACE LINK NOOBJECTGEN 40 COMP A96',+ AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?CLIB?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-453,DATA-'NOMRO',BLANK-5,AREA-SYSTEM ********************************** * RETRIEVE PARMS FROM LDA * ********************************** // TAG RETPARMS // EVALUATE P1='AUTOC' // EVALUATE P2='?L'435,8'?' P3='?L'419,8'?' P4='?L'89,6'?' P5='?L'14,7'?' + P6='?L'21,6'?' P7='?L'27,2'?' P8='?L'29,5'?' P9='?L'427,8'?' P10='?L'34,8'?' // EVALUATE P11='?L'42,7'?' P12='?L'49,2'?' P13='?L'51,6'?' P14='?L'57,8'?' + P15='?L'65,6'?' P16='?L'71,8'?' P17='?L'161,8'?' P18='?L'79,6'?' P19='?L'85,4'?' // EVALUATE P21='?L'453,5'?' ************* * CALL HELP * ************* // HELP *ALL // RETURN ******************************************************************************* * * * THIS PROCEDURE HAS NO PARAMETERS. IT'S PURPOSE IS TO DO THE MEMORY * * PROCESSING FOR THE AUTOC PROCEDURE. IT IS CALLED IF THE USER CHOOSES * * OPTION 5 FROM THE RPG MENU. * * * *******************************************************************************