|
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: 1016 (0x3f8)
Types: s3xseg
Names: »PXRF12«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »PXRF12«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »PXRF12«
* XRF12 SORTS SORCDECK FOR XRF13, FILE ANALYSIS BY FIELD NAME // LOAD $DSORT,F1 // FILE NAME-INPUT,LABEL-SORCDECK,UNIT-D1,PACK-D1D1D1 // FILE NAME-OUTPUT,LABEL-ADDROUT,RECORDS-3000,UNIT-R1,PACK-R1R1R1 // RUN 0001 HSORTA 23A 3 3 XRF12 0002 I C 6EQCI INCLUDES JUST FIELD 0003 FNC 7 14 FILE NAME 0004 FNC 53 58 FIELD NAME 0005 FNC 6 PUT INPUT AHEAD OF OUTPUT 0006 FNC 48 51 FIELD'S 'TO' LOCATION 0007 FNC 44 47 INPUT 'FROM' 0008 O C 6NECO OMIT ALL ELSE BUT OUTPUT FIELDS 0009 I C 32NEC INCLUDE IF THERE'S A FIELD NAME 0010 FNC 7 14 FILE NAME 0011 FNC 32 37 FIELD NAME 0012 FNC 6 PUT INPUT AHEAD OF OUTPUT 0013 FNC 40 43 FIELD'S 'END' POSITION 0014 FNC 15 18 DUMMY 'FROM' POSITION 0015 I GETS REST OF OUTPUT WITHOUT EDIT 0016 FNC 7 14 FILE NAME 0017 FNC 46 51 START OF CONSTANT ON OUTPUT 0018 FNC 6 PUTS INPUTS AHEAD OF OUTPUTS 0019 FNC 40 43 FIELD'S 'END' POSITION 0020 FNC 15 18 DUMMY 'FROM' POSITION // END