|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2540 (0x9ec)
Types: s3xseg
Names: »SUSER«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SUSER«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SUSER«
* * USER'S O.C.L. DECK * // CALL XRFXRF,R1 COMPILE OR LIST PROGRAM WITH CROSS-REFERENCE // SWITCH 1XXXXX01 AUTO COMPILE XRFXRF // SWITCH 0XXXXX00 RPG COMPILE XRFXRF // SWITCH 0XXXXX10 XREF LISTINGNO /COPIES XRFXRF // SWITCH 1XXXXX10 XREF LISTINGWITH /COPIES XRFXRF // RUN */ REPLACE WITH /* CARD // CALL XRF01,R1 LOAD /COPY MODULES TO 'SLIBRFIL' // RUN // CALL XRF04,R1 LOAD MASTER FILES REFFILE, SOURCEDECK AND PROGRAMS. // SWITCH 0XXXXXXX IF AUTO COPY FILE -SLIBRFIL- IS NOT USED XRF04 // SWITCH 1XXXXXXX IF AUTO COPY FILE -SLIBRFIL- IS BEING USED XRF04 // RUN // CALL XRF07,R1 PROGRAM/FILE CROSS-REF // RUN // CALL XRF09,R1 FILE/PROGRAM CROSS-REF // RUN */ REPLACE WITH /* CARD // CALL XRF11,R1 FILE CONTENT ANALYSIS BY FIELD ENDING POSITION // RUN INCL DISK DISK40 */ REPLACE WITH /* CARD // CALL XRF13,R1 FILE CONTENT ANALYSIS BY FIELD NAME // RUN INCL DISK DISK40 */ REPLACE WITH /* CARD // CALL XRF16,R1 DATA NAME GLOSSARY // SWITCH 1XXXXXXX CREATE REPLACEMENT NAME FILE XRF16 // SWITCH 0XXXXXXX DO NOT CREATE REPLACEMENT NAME FILE XRF16 // RUN // CALL XRF18,R1 FIELD MULTI-FILE USAGE ANALYSIS // RUN // CALL XRF21,R1 AUTO /COPY MODULE CROSS REFERENCE // RUN // CALL XRF31,R1 UPDATE REPLACEMENT NAME FILE // RUN OLDNAMPROGRMNEWNAM */ REPLACE WITH /* CARD // CALL XRF32,R1 FIELD NAME CORRECTION IN 'PROGRAMS' AND RECATALOG PROGRAMS // SWITCH 1XXXXXX1 PRINT AND UPDATE PROGRAMS XRF32 // SWITCH 1XXXXXX0 PRINT ONLY XRF32 // RUN // CALL XRF41,R1 // RUN */ REPLACE WITH /* CARD // CALL XRF43,R1 GENERATE SELECTED OR ALL RECORD LAYOUTS // SWITCH X1XXXXXX CREATE OUTPSN FILE XRF43 // SWITCH X0XXXXXX DO NOT CREATE OUTPSN FILE XRF43 // RUN */ REPLACE WITH /* CARD FILENAME UP TO 5 CARDS WITH DESIRED FILE NAME */ REPLACE WITH /* CARD // CALL XRF48,R1 PRINT DATA NAME DICTIONARY & FILE DICTIONARY // RUN // CALL XRF49,R1 OUTPUT POSITION CORRECTION // SWITCH 1XXXXXXX UPDATE PROGRAMS XRF49 // SWITCH 0XXXXXXX DO NOT UPDATE PROGRAMS XRF49 // RUN // CALL XRF50,R1 RECREATES DIRDESGN AND IDXDESGN FROM RECDESGN // RUN // CALL XRF52,R1 RECREATE RECDESGN FROM DIRDESGN AND IDXDESGN // RUN // CALL XRF60,R1 GENERATE QUERY TABLE CARDS // RUN FILENAME UP TO 5 CARDS WITH DESIRED FILE NAME */ REPLACE WITH /* CARD // CALL XRF61,R1 // RUN FILENAME ENTER UP TO 5 FILE NAMES IN COL 1-8. OMIT TO GET ALL FILES. */ REPLACE WITH /* CARD