|
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 ') *
* *
*******************************************************************************