|
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: 4826 (0x12da)
Types: s3xseg
Names: »SXRFSPL«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRFSPL«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRFSPL«
* * TRANSFER RECDESGN FILE TO UNIT D1. * // LOAD $COPY,F1 // FILE NAME-COPYIN,UNIT-R1,PACK-R1R1R1,LABEL-RECDESGN // FILE NAME-COPYO,UNIT-D1,PACK-D1D1D1,RECORDS-1000,LABEL-RECDESGN // RUN // COPYFILE OUTPUT-DISK // END * * COMPILE ALL PROGRAMS. * // CALL AUTO,R1 // COMPILE SOURCE-XRF01 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF02 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF03 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF04 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF07 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF09 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF11 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF13 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF14 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF16 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF18 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF19 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF21 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF22 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF23 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF25 // RUN // CALL AUTO,R1 COMPILE ONLY FOR CCP USE // COMPILE SOURCE-XRF // COMPILE OBJECT-R1,LINKADD-8000 // RUN // CALL AUTO,R1 COMPILE ONLY FOR CCP USE // COMPILE SOURCE-XRF30 // COMPILE OBJECT-R1,LINKADD-8000 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF31 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF32 // RUN // CALL AUTO,R1 COMPILE ONLY FOR CCP USE // COMPILE SOURCE-XRF40A // COMPILE OBJECT-R1,LINKADD-8000 // RUN // CALL AUTO,R1 COMPILE ONLY FOR CCP USE // COMPILE SOURCE-XRF40B // COMPILE OBJECT-R1,LINKADD-8000 // RUN // CALL AUTO,R1 COMPILE ONLY FOR CCP USE // COMPILE SOURCE-XRF40C // COMPILE OBJECT-R1,LINKADD-8000 // RUN // LOAD $OLINK,F1 // FILE NAME-$SOURCE,UNIT-D1,PACK-D1D1D1,TRACKS-20,RETAIN-S // FILE NAME-$WORK,UNIT-D1,PACK-D1D1D1,TRACKS-20,RETAIN-S // RUN // OPTIONS CORE-Q13K // PHASE NAME-XRF40C,UNIT-R1,RETAIN-R,LINKADD-X'8000' // INCLUDE NAME-XRF40C,UNIT-R1 // END // CALL AUTO,R1 COMPILE ONLY FOR CCP USE // COMPILE SOURCE-XRF40D // COMPILE OBJECT-R1,LINKADD-8000 // RUN // LOAD $OLINK,F1 // FILE NAME-$SOURCE,UNIT-D1,PACK-D1D1D1,TRACKS-20,RETAIN-S // FILE NAME-$WORK,UNIT-D1,PACK-D1D1D1,TRACKS-20,RETAIN-S // RUN // OPTIONS CORE-Q13K // PHASE NAME-XRF40D,UNIT-R1,RETAIN-R,LINKADD-X'8000' // INCLUDE NAME-XRF40D,UNIT-R1 // END // CALL AUTO,R1 // COMPILE SOURCE-XRF42 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF43 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF46 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF48 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF49 // RUN // CALL AUTO,R1 COMPILE ONLY FOR CCP USE // COMPILE SOURCE-XRF50 // RUN // CALL AUTO,R1 COMPILE ONLY FOR CCP USE // COMPILE SOURCE-XRF51 // RUN // CALL AUTO,R1 COMPILE ONLY FOR CCP USE // COMPILE SOURCE-XRF52 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF60 // RUN // CALL AUTO,R1 // COMPILE SOURCE-XRF61 // RUN * * START OF SAMPLE PROBLEM. * // CALL XRF01,R1 LOAD /COPY MODULES TO 'SLIBRFIL' // RUN // CALL XRFXRF,R1 COMPILE OR LIST PROGRAM WITH CROSS-REFERENCE // SWITCH 1XXXXX01 AUTO COMPILE XRFXRF // RUN // COMPILE UNIT-R1,SOURCE-XRF07 */ REPLACE WITH /* CARD // CALL XRF04,R1 LOAD MASTERFILES REFFILE AND SORCDECK // 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 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 XRF43,R1 GENERATE SELECTED OR ALL RECORD LAYOUTS // SWITCH X0XXXXXX DO NOT CREATE OUTPSN FILE XRF43 // RUN */ REPLACE WITH /* CARD RPGIN FIELDS */ REPLACE WITH /* CARD // CALL XRF48,R1 PRINT DATA NAME DICTIONARY & FILE DICTIONARY // RUN // CALL XRF60,R1 GENERATE QUERY TABLE CARDS // RUN RPGIN FIELDS */ REPLACE WITH /* CARD // CALL XRF61,R1 // RUN RPGIN FIELDS */ REPLACE WITH /* CARD