|
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: 4352 (0x1100)
Notes: MEMBER_P, Member_Text
Names: »RPGSEU «
└─⟦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⟧ ».RPGSEU «
*** THIS PROCEDURE SHOULD EXIST ONLY IN #RPGLIB AS 'RPGS'********************** ******************************************************************************* * * * CHANGE ACTIVITY * * * * 07/06/84 CC6169 Add Full Screen Editor checking * * 03/13/85 P73508 Take out Full Screen Editor checking - * * CJG this procedure should always call SEU, * * even if the Full Screen Editor (DSU) is * * installed on the system * * * ******************************************************************************* // MEMBER USER1-#RP#CPL1,LIBRARY-#RPGLIB ************************************************************* * 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 ***IFF PROC-FSE IFF PROC-SEU #ERR 1064,3,RPG IF FSE/SEU NOT ON SYSTEM // IFF PROC-SEU #ERR 1064,3,RPG IF SEU NOT ON SYSTEM // IFF ?1?/ GOTO PUTPARMS // HELP RPGSEU,?1?,?2'R'?,?3?,?4'96'?,?5'?CLIB?'? // RETURN ***************************************************************************** * THE FOLLOWING OCL CHECKS ALL PAREMETERS 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 RESULTS * * INVALID -----> ISSUE PROPER ERROR VIA * * #ERR WITH 0 AND 3 OPOTIONS. * * 0 RESPONSE MEANS CONTINUE * * WITH DEFAULT SUBSTITUTED * * AND STORED IN LDA. * * VALID -----> STORE IN LDA * * * ***************************************************************************** // TAG PUTPARMS // * 1044 // IFF ?2'R'?/R IFF ?2?/A IFF ?2?/P #ERR 1056,03,RPG ?2F'R'? // IFF ?3?/ IFF LOAD-'?3?,?5'?CLIB?'?' IFF LOAD-'?3?,#LIBRARY' + #ERR 1059,03,RPG ?3F'#SE@XTRA'? // IF ?4?/ GOTO SKIP // IF ?2?/P IFF ?4'120'?>39 #ERR 1058,03,RPG ?4F'120'? // ELSE IF ?2?/P IFF 121>?4'120'? #ERR 1058,03,RPG ?4F'120'? // IFF ?2?/P IFF ?4'96'?>79 #ERR 1047,03,RPG ?4F'96'? // ELSE IFF ?2?/P IFF 97>?4'96'? #ERR 1047,03,RPG ?4F'96'? // TAG SKIP // IFF ?5?/ IFF DATAF1-?5? #ERR 1060,03,RPG ?5F'?CLIB?'? ***************************************************************** * STORE THE PARAMETERS IN THE PROPER AREAS OF THE SYSTEM LDA * ***************************************************************** // LOCAL OFFSET-1,DATA-'RPGSEU',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-435,DATA-'?1?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-95,DATA-'?2?',AREA-SYSTEM // LOCAL OFFSET-129,DATA-'?3?',BLANK-8,AREA-SYSTEM // LOCAL OFFSET-96,DATA-'?4?',BLANK-3,AREA-SYSTEM // LOCAL OFFSET-419,DATA-'?5'?CLIB?'?',BLANK-8,AREA-SYSTEM ************************************************************* * SAVE THE LOCAL AREA IN PARAMETERS 59 AND 60 * ************************************************************* // EVALUATE P58='?L'1,128'?' // EVALUATE P59='?L'129,128'?' // EVALUATE P60='?L'257,128'?' ************************************************************* * DISPLAY MEMBER VIA SEU PROCEDURE * ************************************************************* ***IF PROC-FSE FSE *ALL ***ELSE SEU *ALL SEU *ALL ************************************************************* * RESTORE THE LOCAL AREA * ************************************************************* // LOCAL OFFSET-1,DATA-'?58?',BLANK-384,AREA-SYSTEM // LOCAL OFFSET-129,DATA-'?59?',AREA-SYSTEM // LOCAL OFFSET-257,DATA-'?60?',AREA-SYSTEM // RETURN ******************************************************************************* * * * RPGS NAME,TYPE,FORMAT,LENGTH,INLIB * * * * THIS PROCEDURE ENABLES THE USER TO CREATE OR UPDATE AN RPG/AUTO * * REPORT SOURCE MEMBER VIA SEU. * * * * * * * * * * THE POSITIONAL PARAMETERS AS INPUT ARE THE FOLLOWING: * * * * NAME - SOURCE MEMBER NAME, REQUIRED * * TYPE - LIBRARY MEMBER TYPE, DEFAULT - R * * FORMAT - FORMAT MEMBER NAME, (OPTIONAL) * * LENGTH - SOURCE STATEMENT LENGTH (OPTIONAL), DEFAULT - 96 FOR TYPE R,A * * - 120 FOR TYPE P * * INLIB - INPUT LIBRARY NAME, DEFAULT - CURRENT LIBRARY * * * *******************************************************************************