|
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: 2794 (0xaea)
Types: s3xseg
Names: »SXRF61«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF61«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF61«
H C 012 XRF61 0000
F* 0010
F****************************************************** 0020
F* 5798-NKG COPYRIGHT IBM CORP, 1977 REFER TO * 0030
F* INSTRUCTIONS ON COPYRIGHT NOTICE FORM NO. 120-2083* 0040
F****************************************************** 0050
F* 0060
FCARDIN IP F 96 MFCU1 0070
FRECDESGNISE F 960 96 DISK40 0080
FPROGGEN O F 96 MFCU2 0090
FPRINTER O F 132 PRINTER 0100
ICARDIN NS 06 0110
I 1 8 FILEDO 0120
IRECDESGNNS 01 1 CA 0130
I/COPY R1,AUX050 0140
I NS 02 1 CB 0150
I/COPY R1,AUX052 0160
I NS 03 1 CC 0170
I/COPY R1,AUX054 0180
I FLDNM 05
I NS 04 1 C* 0190
I/COPY R1,AUX056 0200
E CODE 26 1 0210
C****************************************************** MAIN LINE 0220
C 06 EXSR LODFIL 0230
C N13 MOVEL'ALL 'FILE,1 0240
C 01 EXSR CHKFIL 0250
C* PREVENT PROCESSING ALL RECORDS ASSOCIATED WITH A 0260
C* FILE WHICH ISN'T TO BE PROCESSED. 0270
C N21 SETOF 010203 0280
C N21 SETOF 04 0290
C 01 FILTP COMP 'IDX' 10 0300
C 01 INDCAT SUB INDCAT INDCAT 20 0310
C 02 INDCAT ADD 1 INDCAT 0320
C 03 PB COMP 'P' 07
C 03N07 PB COMP 'B' 07
C* SEE IF THIS IS A RECORD CODE FIELD 0330
C 03 SETOF 12 0340
C 03 MOVEAFLDDS CODE 0350
C 03 CODE,1 COMP '''' 11 0360
C 03 11 Z-ADD2 A 20 0370
C* IF THE DESCRIPTION STARTS WITH A 'DOES IT HAVE A 0380
C* CLOSING '. 0390
C 03 11 '''' LOKUPCODE,A 12 0400
C MOVE ' ' BLANX 30
C 12 1 ADD A A
C 12 MOVEABLANX CODE,A
C****************************************************** 0410
CLR MOVE '5798-NKG'COIBM 8 0420
CLR MOVE 'COPYRIGH'COIBM 0430
CLR MOVE 'T IBM CO'COIBM 0440
CLR MOVE 'RP. 1977'COIBM 0450
C****************************************************** 0460
C/COPY R1,AUX016 0470
C/COPY R1,AUX017 0480
OPROGGEN D 01 0490
O 6 'F' 0500
O FILNM 14 0510
O 19 'IP F' 0520
O RECLN Z 27 0530
O KEYLN Z 30 0540
O KEYST Z 38 0550
O DEVICE 46 0560
O 10 32 'AI' 0570
O *PRINT
O D 02 0580
O 6 'I' 0590
O FILNM 14 0600
O 16 'NS' 0610
O INDCAT 20 '0 ' 0620
O *PRINT
O D 03N12N05 0630
O 6 'I' 0640
O 07 PB 43 0650
O FLDST 47 0660
O FLDEND 51 0670
O DECPS 52 0680
O FLDNM 58 0690
O *PRINT
O D 03 12N05 0700
O 6 'O' 0710
O CODE 70 0720
O FLDEND 43 0730
O *PRINT
OPRINTER D 202 01 0740
O 6 'F' 0750
O FILNM 14 0760
O 19 'IP F' 0770
O RECLN Z 27 0780
O KEYLN Z 30 0790
O KEYST Z 38 0800
O DEVICE 46 0810
O 10 32 'AI' 0820
O D 11 02 0830
O 6 'I' 0840
O 16 'NS' 0850
O FILNM 14 0860
O INDCAT 20 0870
O D 1 03N12N05 0880
O 6 'I' 0890
O 07 PB 43 0900
O FLDST Z 47 0910
O FLDENDZ 51 0920
O DECPS 52 0930
O FLDNM 58 0940
O D 1 03 12N05 0950
O 6 'O' 0960
O CODE 70 0970
O FLDENDZ 43 0980