|
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: »SXRF30«
└─⟦811594a0b⟧ Bits:30009185 5702-sc1.V16.pgm
└─⟦8223a6838⟧
└─⟦this⟧ »SXRF30«
└─⟦990ba7470⟧ Bits:30009182 5702-PP1
└─⟦efad88270⟧
└─⟦this⟧ »SXRF30«
H C 12 XRF30 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
F* THIS PROGRAM ALLOWS UPDATING OF THE REPLNAM FILE THRU CCP. 0070
F* 0080
FSCREENINIP F 39 39 SPECIAL SUBR92 0090
F KARA 0100
FREPLNAM UD F 360 18L12AI 1 DISK40 0110
FSCREENO O F 51 51 SPECIAL SUBR92 0120
F KARA 0130
E ARA 5 5 6 0140
ISCREENINNS 03 15 C' 0150
I 22 27 FIELDI 04 0160
I 28 33 PROGRI 05 0170
I 22 33 KEY 0180
I 34 39 REPLNI 06 0190
I NS 07 0200
IREPLNAM NS 02 0210
I/COPY R1,AUX078 0220
C* 'FIELD' AND 'REPLACE' MUST BE ENTERED. 0230
C* IF 'PROGRAM' IS ENTERED,CHANGE FIELD NAME IN THAT PROGRAM 0240
C* OTHWISE CHANGE FIELD NAMES IN ALL PROGRAMS. 0250
C* 0260
C SETOF 9192 FOR SUBR92 0270
C 04 NO FIELD 0280
COR 06 GOTO END NO REPLACE 0290
C* 0300
C*PROCESS SCREEN DATA 0310
C* 0320
C SETON 08 UPDATE SCREEN 0330
C EXCPT 0340
C SETOF 08 0350
C EXSR LIMIT 0360
C END TAG 0370
C SETON LR NORMAL E.O.J. 0380
C* 0390
C* CHANGE THE PROGRAMS 0400
C* 0410
C****************************************************** 0420
CLR MOVE '5798-NKG'COIBM 8 0430
CLR MOVE 'COPYRIGH'COIBM 0440
CLR MOVE 'T IBM CO'COIBM 0450
CLR MOVE 'RP. 1977'COIBM 0460
C****************************************************** 0470
CSR LIMIT BEGSR 0480
CSR KEY SETLLREPLNAM 0490
CSR LOOP TAG 0500
CSR READ REPLNAM 11 READ BEYOND FI 0510
CSR SETOF 1215 0520
CSRN11 FIELDI COMP FIELD 15 12 0530
CSRN11 12N05PROGRI COMP PROGRM 12 0540
CSR 12 EXCPT 0550
CSR 12 SETON 13 SUCESSFUL READ 0560
CSR 15 0570
COR 12 05 GOTO LOOP 0580
CSR SETON 14 0590
CSR ENDSR 0600
O* SUCESSFUL EXIT 0610
O* 0620
OSCREENO T LR 13 0630
O 8 ' GB0038' 0640
O 20 '$ZX30A' 0650
O FIELDI 26 0660
O PROGRI 32 0670
O REPLNI 38 0680
O* 0690
O* DATA NOT PROCESSED 0700
O* 0710
OSCREENO T 14N13 0720
O 8 'HGB0033' 0730
O ARA,5 14 0740
O 15 'B' 0750
O 23 'FIELDI1C' 0760
O 31 'ER3 2' 0770
O* 0780
O* REPLACE NOT ENTERED 0790
O* 0800
OSCREENO T 06 0810
O 8 'HGB0033' 0820
O ARA,5 14 0830
O 15 'B' 0840
O 23 'REPLNI1C' 0850
O 31 'ER2 2' 0860
O* 0870
O* FIELD NOT ENTERED 0880
O* 0890
OSCREENO T 04 0900
O 8 'HGB0033' 0910
O ARA,5 14 0920
O 15 'B' 0930
O 23 'FIELDI1C' 0940
O 31 'ER1 2' 0950
O* 0960
O* PROCESSING SCREEN 0970
O* 0980
OSCREENO E 08 0990
O 8 'HGB0051' 1000
O ARA,5 14 1010
O 22 'ER1 5' 1020
O 31 'ER2 5' 1030
O 40 'FD3 1' 1040
O 49 'FD4 5' 1050
OREPLNAM E 02 12N14 1060
O REPLNI 18 1070
** 1070
D 39 1080