|
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: 2032 (0x7f0)
Types: s3xseg
Names: »SXRF31«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF31«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF31«
H C 12 XRF31 0000
F* THIS PROGRAM UPDATES THE REPLNAM FILE FROM BATCH INPUT 0010
F* 0020
F* 0030
F****************************************************** 0040
F* 5798-NKG COPYRIGHT IBM CORP. 1977. REFER TO * 0050
F* INSTRUCTIONS ON COPYRIGHT NOTICE FORM NO. 120-2083* 0060
F****************************************************** 0070
F* 0080
FINPUT IP F 96 MFCU1 0090
FREPLNAM UD F 360 18L12AI 1 DISK40 0100
FPRINT O F 132 OF PRINTER 0110
IINPUT NS 03 0120
I 1 6 FIELDI 04 0130
I 7 12 PROGRI 05 0140
I 1 12 KEY 0150
I 13 18 REPLNI 06 0160
IREPLNAM NS 02 0170
I/COPY R1,AUX078 0180
C* 'FIELD' AND 'REPLACE' MUST BE ENTERED. 0190
C* IF 'PROGRAM' IS ENTERED,CHANGE FIELD NAME IN THAT PROGRAM 0200
C* OTHWISE CHANGE FIELD NAMES IN ALL PROGRAMS. 0210
C* 0220
C SETOF 111314 0230
C 04 NO FIELD 0240
COR 06 GOTO END NO REPLACE 0250
C* 0260
C*PROCESS INPUT DATA 0270
C* 0280
C EXSR LIMIT 0290
C END TAG 0300
C****************************************************** 0310
CLR MOVE '5798-NKG'COIBM 8 0320
CLR MOVE 'COPYRIGH'COIBM 0330
CLR MOVE 'T IBM CO'COIBM 0340
CLR MOVE 'RP. 1977'COIBM 0350
C****************************************************** 0360
C* 0370
C* CHANGE THE PROGRAMS 0380
C* 0390
CSR LIMIT BEGSR 0400
CSR KEY SETLLREPLNAM 0410
CSR LOOP TAG 0420
CSR READ REPLNAM 11 READ BEYOND FI 0430
CSR SETOF 1215 0440
CSRN11 FIELDI COMP FIELD 15 12 0450
CSRN11 12N05PROGRI COMP PROGRM 12 0460
CSR 12 EXCPT 0470
CSR 12 SETON 13 SUCESSFUL READ 0480
CSR 15 0490
COR 12 05 GOTO LOOP 0500
CSR SETON 14 0510
CSR ENDSR 0520
OPRINT H 201 1P 0530
O OR OF 0540
O 50 'EDIT LIST' 0550
O H 2 1P 0560
O OR OF 0570
O 16 'FIELD PROGRAM' 0580
O 25 'REPLACE' 0590
O D 1 04 0600
O OR 06 0610
O OR 14N13 0620
O FIELDI 6 0630
O PROGRI 15 0640
O REPLNI 24 0650
O 04 39 'FIELD MISSING' 0660
O 06 55 'REPLACE MISSING' 0670
O 14N13 69 'NOT PROCESSED' 0680
OREPLNAM E 02 12N14 0690
O REPLNI 18 0700