DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦3f165cc78⟧

    Length: 15590 (0x3ce6)
    Notes: pts_type(SC)
    Names: »ADM6.SC«

Derivation

└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
    └─⟦this⟧ »OD-KOM/ADM6.SC« 
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
    └─⟦this⟧ »OD-KOM/ADM6.SC« 

PTS(SC)

 IDENT ADM6 831005 EV 
 DDUM KMD08 
 PDIV 
 ENTRY ADM600 
 ENTRY SIGNON 
 ENTRY CHNGDK 
 ENTRY STRTRC 
 ENTRY SENDRC 
 ENTRY TERMIN 
 ENTRY SIGNOF 
 ENTRY EXCHAN 
 ENTRY TRNOK
 ENTRY WJDC 
* 
 EXT SPCLRS 
 EXT SLUTID 
 EXT RAWRIT 
 EXT WRITID 
 EXT LAMPOF 
 EXT ADMRET 
 EXT SPERR
 EXT CLSVOL 
 EXT LAMPON 
 EXT SOPRD
 EXT ASGVOL 
 EXT ASGFIL 
 EXT BCKUP
 EXT RAREAD 
 EXT GETBIT 
 EXT WRITJT 
* 
 INCLUDE EQUATE 
 EJECT
ADM600
 MOVE GSWBIN1,CBIN0 
 DSC1 DCOMM,TRPAR,GSWBIN1 
 SET CCONVFLG 
 CLEAR SPKEYFLG 
 TEST GTKASSE 
 BNZ ADM06RET 
 CMP TTASKNR,CBIN1 MASTER ? 
 BNE ADM06RET NO
 CMP CTASKNR,CBIN0 ALL CLOSED 
 BNE ADM06RET 
 SET SPPROMPT 
 MOVE SPKEY,CBIN2 
 ATTFMT SNDFRM6 
 PERF SPCLRS
 IB SPBINW2,ADM06RET,ADM06RET,ADM0610 
 B ADM600 
ADM0610 
 MOVE GSWBIN1,=X'40'
 DSC1 DCOMM,TRPAR,GSWBIN1 
ADM0611 
 SET SPPROMPT 
 ATTFMT SNDFRM
 PERF SPCLRS
 IB SPBINW2,ADM0612,ADM0612,ADM0615 
 B ADM0611
ADM0612 B ADM600
ADM0615 
 TBT CCONVERT,ADM0613 
 SUB CRECBCD,=D'1'
 PERF SLUTID,CPCKBUF,CRECBCD
 ADD CRECBCD,=D'1'
 PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR
 BNOK ADM600
 PERF WRITID,CPCKBUF,CBIN5,CBIN2 SLUTID ON JOURNAL
ADM0613 
**************************************************
*             BATCH TRANSMISSION
*       1)  SIGNON
*       2)  CHANGE DISK 
*       3)  SEND STARTIDENT 
*       4)  SEND TRANSACTIONS AND SLUTID
*       5)  IN CASE OF ERROR SEND TERMINATE 
*       6)  WHEN ALL TRANSMITTED SEND SIGNOFF 
************************************************* 
 PERF SIGNON
 BNOK ADM06OUT
ADM0620 
 PERF LAMPOF,=W'2047' 
ADM0630 
 PERF CHNGDK CHANGE DISC
 BNOK ADM6SOFF
 PERF STRTRC SEND STARTIDENT
 BNOK ADM0630 IF NOT OK, TRY NEXT 
 PERF SENDRC SEND BATCH 
 BOK ADM0620
			IF NOT OK
 PERF TERMIN SEND TERMINATE 
 PERF LAMPOF,=W'2047' 
 PERF LAMPON,=W'2' LAMP 10, ERROR 
 B ADM0630
ADM6SOFF
 PERF SIGNOF SEND SIGNOFF 
ADM06OUT
 MOVE CTRANBUF,=X'00' CLEAR TR 12 COUNTERS
 MOVE GSWBIN1,CBIN0 
 DSC1 DCOMM,TRPAR,GSWBIN1 
ADM06RET
 CLEAR CCONVFLG 
 SET SPKEYFLG 
 PERF LAMPOF,=W'2047' 
 B ADMRET 
 EJECT
************************************************
* 
*             SIGNON
*    IF NOT OK CR NOT = 0 
* 
************************************************
SIGNON PROC 
 MOVE GSWBIN1,CBIN5 
 MOVE GSWBIN2,=W'50'
 MOVE CTRANBUF,=C' '
 EDIT CTRANBUF,SIGONF 
*                          FIND LENGTH
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,CBLANKS,CBIN0,CBIN2 
 MOVE GSWBIN2,GSWBIN1 
 TBT CTESTFLG,SIGON10 
 PERF EXCHAN EXCHANGE DC
 BNOK SIGON100
 PERF WJDC
 MOVE GSWSTR20,=C'DFH3504'
 MOVE GSWBIN1,CBIN0 
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR20,CBIN0,CBIN7
 BNE SIGON100 
SIGON10 
 EDWRT SCREEN,SNDFRM3 
 CMP CBIN0,CBIN0
 RET
SIGON100
 MOVE SPBINW4,CBIN21
 MOVE GTWBCD2,=D'60'
 MOVE GSWSTR9,=C'TRANSMIT ' 
 MOVE GTWBCD1,=D'16'
 PERF SPERR 
 PERF WRITJT,=W'14' 
 CMP CBIN0,CBIN1
 RET
 PEND 
 EJECT
********************************************* 
* 
*            CHNGDK - CHANGE DISK 
*         STOP SEND PIN 6 
*         CONTINIUE PIN 5 
* 
********************************************* 
CHNGDK PROC 
CHNG000 
 PERF CLSVOL,CBIN2 CLOSE REGSET 
 MOVE CRECNR,CBIN1
 MOVE CRECBCD,=D'1' 
 PERF LAMPON,=W'64' LAMP 5
 PERF LAMPON,=W'32' LAMP 6
 PERF LAMPON,=W'16' LAMP 7
CHNG010 
 PERF SOPRD 
 IB GSWBIN2,		C 
		CHSOP10,CHSOP09,CHSOP08,CHSOP07,CHSOP06,		C 
		CHSOP05,CHSOP04,CHSOP03,CHSOP02,CHSOP01 
CHSOP01 
CHSOP02 
CHSOP03 
CHSOP04 
CHSOP08 
CHSOP09 
 B CHNG010
CHSOP10 
*   ERROR, SIGN ON AGAIN
 PERF LAMPOF,=W'2047' LAMPS OFF 
 PERF LAMPON,=W'2' LAMP 10
 SET SPPROMPT 
 ATTFMT SNDFRM SIGNON FORMAT
 PERF SPCLRS
 IB SPBINW2,CH1010,CH1010,CH1020
CH1010
 B CHNG000
CH1020
 PERF SIGNON
 BNOK CHNG000 
 PERF LAMPOF,=W'2047' 
 B CHNG000
CHSOP05 
 PERF LAMPOF,=W'2047' LAMPS OFF 
 PERF ASGFIL,CBIN2 ASSIGN DISK 2
 BOK CHNG050
 PERF LAMPON,=W'2'
 B CHNG000
CHNG050 
 PERF LAMPON,=W'64' LAMP 5
 CMP CBIN0,CBIN0 SET CR 
 RET
CHSOP06			SOP 6 
 PERF LAMPOF,=W'2047' LAMPS OFF 
 PERF BCKUP,=W'1' WITHOUT BACKUP
 BNOK CHNG000 
 B CHNG130
CHSOP07 
 PERF LAMPOF,=W'2047' LAMPS OFF 
 PERF BCKUP,=W'2' WITH BACKUP 
 BNOK CHNG000 
 B CHNG130
CHNG130 
 PERF LAMPOF,=W'2047' 
 CMP CBIN0,CBIN1 INDICATE ERROR OR END OF TRANS 
 RET
 PEND 
 EJECT
******************************************
* 
*         STRTRC - SEND OF STARTIDENT 
*         AND CHECK REPLY 
* 
******************************************* 
STRTRC PROC 
 PERF LAMPOF,=W'2047' 
 PERF LAMPON,=W'64' 
 MOVE GSWBIN6,CBIN1 
 MOVE GSWBIN1,=W'128' 
 PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 
 BNOK STRTRET 
 CBE GTWBCD1,=D'4',STRTRET RECORD DELETED?
 PERF WRITID,CPCKBUF,CBIN5,CBIN1
 MOVE GSWBIN6,CBIN0 
 MOVE GSWBIN1,=W'40'
 MOVE GSWSTR20,CBLANKS
 COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 
 MOVE CTRANBUF,=C' '
 EDIT CTRANBUF,SNDFRM2
 MOVE GSWBIN2,=W'31' LENGTH 
 PERF EXCHAN EXCHANGE DC
 BNOK STRTRET 
 PERF TRNOK CHECK IF OK 
 BNOK STRTRET 
 CMP CBIN0,CBIN0 SET CR 
 RET
STRTRET 
 CMP CBIN0,CBIN1
 RET
 PEND 
 EJECT
**********************************************
* 
*         SENDRC - SEND BATCH UNTIL SLUTID
* 
**********************************************
SENDRC PROC 
 MOVE CRECNR,CBIN1
SND005
 MOVE GSWBIN3,CBIN0 PACKPOINTER 
SND010
 ADD CRECNR,CBIN1 
 MOVE GSWBIN1,=W'128' 
 PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR
 BNOK SNDERR
 CMP GTWBCD1,=D'4'
 BE SNDERR RECORD DELETED ? 
 MOVE GSWSTR20,=C'SLUTD'
 MOVE GSWBIN5,CBIN0 
 MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 
 BE SNDSLUT 
 MOVE GSWSTR9,=X'7F' FIND LENGTH
SND015
 MOVE GSWBIN4,CBIN0 
 MOVE GSWBIN5,=W'128' 
 MATCH CPCKBUF,GSWBIN4,GSWBIN5,GSWSTR9,CBIN0,CBIN1
 BE SND020
 MOVE GSWSTR9,=X'21'
 B SND015 
SND020
 ADD GSWBIN4,GSWBIN3 SEE IF MORE SPACE
 CBNG GSWBIN4,=W'504',SND030
 SUB CRECNR,CBIN1 NO MORE SPACE 
 B SND040 SEND BUFFER 
SND030
 SUB GSWBIN4,GSWBIN3 RESTORE
 ADD GSWBIN4,CBIN1 FILL WITH X'00'
 CBE GSWBIN4,=W'128',SND037 
 MOVE GSWSTR20,=X'00' 
 MOVE GSWBIN5,=W'128' 
SND035
 INSRT CPCKBUF,GSWBIN4,CBIN20,GSWSTR20,CBIN0
 SUB GSWBIN5,CBIN20 
 CBG GSWBIN5,GSWBIN4,SND035 ALL TRAILING FILLED 
SND037
 EDSUB CTRANBUF,GSWBIN3,SNDFRM5 INSERT RECORD 
 B SND010 READ NEXT 
SND040
 MOVE GSWBIN2,GSWBIN3 
 MOVE SPBINW1,=X'0301'
 MOVE TTARKSAV,CRECNR 
 DSC1 SCREEN,POS,SPBINW1
 EDWRT .NW,SCREEN,SNDFRM4 DISPLAY RECNR 
 PERF EXCHAN
 BNOK SNDERR
 PERF TRNOK 
 BNOK SNDERR
 B SND005 
SNDSLUT 
	CBE	GSWBIN3,CBIN0,SND090	REQ.LGTH.=0 ? 
 MOVE GSWBIN2,GSWBIN3 
 PERF EXCHAN EXCHANGE DC
 BNOK SNDERR
 PERF TRNOK 
 BNOK SNDERR
SND090
 MOVE GSWBIN3,CBIN0 
 MOVE CTRANBUF,=C' '
 EDSUB CTRANBUF,GSWBIN3,SNDFRM5 
 MOVE GSWBIN2,CBIN18
 PERF EXCHAN
 BNOK SNDERR
 PERF WRITID,CPCKBUF,CBIN5,CBIN2
 PERF WJDC PRINT ANSWER 
 TBT CTESTFLG,SNDSL10 
 MOVE GSWSTR9,=C'0002'
 MOVE GSWBIN1,CBIN0 
 MOVE GSWBIN2,=W'52'
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN4 
 BNE SNDERR 
SNDSL10 
 CMP CBIN0,CBIN0
 RET
SNDERR
 CMP CBIN1,CBIN0
 RET
 PEND 
 EJECT
********************************************
* 
*         TERMIN - TERMINATE TRANSMISSION IN CASE OF ERROR
* 
********************************************
TERMIN PROC 
 MOVE GSWBIN3,CBIN0 
 MOVE CTRANBUF,=C' '
 MOVE CPCKBUF,=C'TERMINATE '
 MOVE GSWBIN3,CBIN0 
 EDSUB CTRANBUF,GSWBIN3,SNDFRM2 
 MOVE GSWBIN2,CBIN14
 PERF EXCHAN EXCHANGE DC
 BNOK TERMRET 
 PERF WJDC
TERMRET 
 RET
 PEND 
 EJECT
********************************************* 
* 
*         SIGNOFF 
* 
********************************************* 
SIGNOF PROC 
 MOVE GSWBIN3,CBIN0 
 MOVE CTRANBUF,=C' '
 MOVE CPCKBUF,=C'CSSF ' 
 EDSUB CTRANBUF,GSWBIN3,SNDFRM2 
 MOVE GSWBIN2,CBIN9 
 PERF EXCHAN
 BNOK SIGOFRET
 TBT CTESTFLG,SIGOFRT1
 PERF WJDC PRINT ANSWER 
SIGOFRET
 RET
SIGOFRT1
 CMP CBIN0,CBIN0
 RET
 PEND 
 EJECT
********************************************* 
*           EXCHAN - EXCHANGE DC
*         IN CASE OF ERROR ERRORMESSAGE 
*         IS SHOWN ON SCREEN AND JOURNAL
********************************************* 
EXCHAN PROC 
 TBT CTESTFLG,EXCHTEST
EXCH10
 MOVE GSWBIN5,CBIN1 
 MOVE GSWBIN1,=W'504' 
 DCREAD DCOMM,CDUMBUF,GSWBIN1,GSWBIN5 
 BOK EXCH10 IF ANYTIBNG RCVD, THROW AWAY
 MOVE GSWBIN5,=W'900' TIMEOUT 
 DCWRITE DCOMM,CTRANBUF,GSWBIN2,GSWBIN5 
 BNOK EXCHNOK 
 MOVE GSWBIN2,=W'504' 
 MOVE GSWBIN5,=W'900' TIMEOUT 
 DCREAD DCOMM,CTRANBUF,GSWBIN2,GSWBIN5
 BOK EXCHRET
EXCHNOK 
 PERF GETBIT,DCOMM FETCH ERRORCODE
 MOVE SPBINW4,CBIN21
 MOVE GTWBCD2,=D'60'
 MOVE GSWSTR9,=C'TRANSMIT ' 
 PERF SPERR 
 PERF WRITJT,=W'14' 
 CMP CBIN0,CBIN1
 RET
EXCHTEST
 MOVE CTRANBUF,=X'1B3543' 
 DELAY CBIN20 
EXCHRET 
 CMP CBIN0,CBIN0
 RET
 PEND 
 EJECT
********************************************* 
* 
*       TRNOK - CHECK IF MESSAGE CORRECT RECIEVED 
* 
********************************************* 
TRNOK PROC
 MOVE GSWBIN3,CBIN0 
 MOVE GSWSTR9,=X'1B3543' =EBCDIC 27F5C3 
 MATCH CTRANBUF,GSWBIN3,GSWBIN2,GSWSTR9,CBIN0,CBIN3 
 BNE TRNERR 
 MOVE GSWBIN2,CBIN0 
 MOVE CTRANBUF,=C' '
 CMP CBIN0,CBIN0
 RET
TRNERR
 MOVE GTWBCD2,=D'60'
 MOVE GSWSTR9,=C'TRANSMIT ' 
 MOVE GTWBCD1,=D'50'
 PERF SPERR 
 PERF WRITJT,=W'14' 
 CMP CBIN0,CBIN1
 RET
 PEND 
 EJECT
************************************************* 
* 
*    WJDC - PRINT RECEIVED MESSAGE ON JOURNAL 
* 
************************************************* 
WJDC PROC 
 WAIT KTALLY
 CBL GSWBIN2,CBIN1,WJDCRET
 CBG GSWBIN2,=W'504',WJDCRET
 MOVE GSWSTR9,=C'DFH' 
 MOVE GSWBIN1,CBIN0 
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN3 
 BE WJDC100 CICS MESSAGE
* 
*      APLICATION MESSAGE 
* 
 MOVE GSWSTR9,=X'11'
 MOVE GSWBIN1,CBIN0 
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN1 
 BNE WJDCRET
*                       GSWBIN1=START 
 ADD GSWBIN1,CBIN3 BYPASS SBA SEQUENSE
 MOVE GSWBIN4,GSWBIN1 
 SUB GSWBIN2,GSWBIN4 ADJUST LENGTH
 CBL GSWBIN2,CBIN1,WJDCRET
WJDC005 
 MOVE CPCKBUF,=X'00'
 MATCH CTRANBUF,GSWBIN4,GSWBIN2,GSWSTR9,CBIN0,CBIN1 
 BNE WJDC010
 SUB GSWBIN4,GSWBIN1 GSWBIN4 = LENGTH 
 CBNG GSWBIN4,=W'52',WJDC007
 MOVE GSWBIN4,=W'52' MAX 52 CHARS 
 COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1
 EDWRT KJTAPE,WJDCFRM 
 B WJDC008
WJDC007 
 COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1
 EDWRT KJTAPE,WJDCFRM 
 ADD GSWBIN4,CBIN3
WJDC008 
 SUB GSWBIN2,GSWBIN4
 ADD GSWBIN4,GSWBIN1
 MOVE GSWBIN1,GSWBIN4 
 CBG GSWBIN2,CBIN3,WJDC005
 B WJDCRET
WJDC010 
 B WJDC200
WJDCRET 
 RET
* 
WJDC100 
 SUB GSWBIN2,GSWBIN1
 CBL GSWBIN2,=W'52',WJDC200 
 MOVE GSWBIN4,=W'30' FIND BLANK 
 ADD GSWBIN4,GSWBIN1
 MATCH CTRANBUF,GSWBIN4,CBIN22,CBLANKS,CBIN0,CBIN1
 BNE WJDC200
 MOVE CPCKBUF,=X'00'
 SUB GSWBIN4,GSWBIN1
 COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1
 EDWRT KJTAPE,WJDCFRM 
 SUB GSWBIN2,GSWBIN4
 ADD GSWBIN1,GSWBIN4
WJDC200 
 MOVE CPCKBUF,=X'00'
 CBL GSWBIN2,=W'52',WJDC210 
 MOVE GSWBIN2,=W'52'
WJDC210 
 COPY CPCKBUF,CBIN0,GSWBIN2,CTRANBUF,GSWBIN1
 EDWRT KJTAPE,WJDCFRM 
 RET
 PEND 
 EJECT
************************************************
* 
*         FORMATS USED
* 
************************************************
* 
SNDFRM FRMT 
 FSL
 FCOPY =C'DATATRANSMISSION '
 FNL
 FTEXT 'BRUGERNAVN' 
 FKI 12,MINL=1,MAXL=13,ME 
 FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT 
 FNL
 FTEXT 'KENDEORD' 
 FKI 12,MINL=1,MAXL=4,ME
 FMEL 'TTT9',TTARKSAV 
 FMEND
* 
SIGONF FRMT 
 FILLR ' ',2
 FCOPY =X'272020' 
 FTEXT 'CSSN PS=' 
 FMEL '9999',TTARKSAV 
 FTEXT ',NAME=' 
 FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT 
 FMEND
* 
SNDFRM2 FRMT
 FILLR ' ',2
 FCOPY =X'272020' 
 FCOPY CPCKBUF
 FMEND
* 
SNDFRM3 FRMT
 FILLR '1',2
 FCOPY =C'DATATRANSMISSION '
 FMEND
* 
SNDFRM4 FRMT
 FILLR ' ',2
 FTEXT 'ANTAL RECORDS:' 
 FMEL 'ZZZZZ9',TTARKSAV 
 FMEND
* 
SNDFRM5 FRMT
 FBNZ GSWBIN3,SNDLAB10
 FILLR ' ',2
 FCOPY =X'272020' 
SNDLAB10
 FCOPY =X'112020' 
 FCOPY CPCKBUF
 FMEND
* 
SNDFRM6 FRMT
 FSL
 FCOPY ='DATATRANSMISSION ' 
 FILLR '?',1
 FNL
 FKI 1
 FMEL 'B',TSWBCD2 
 FMEND
* 
WJDCFRM FRMT
 FILLR ' ',2
 FCOPY CPCKBUF
 FMEND
* 
 END

HexDump

0x0000…001e (0, 0, 400)  Head {h00=0x001a, h01=0x0050, text=» IDENT ADM6 831005 EV «, t00=0x0000, t01=0x0004}
0x001e…0032              Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0022}
0x0032…0040              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0036}
0x0040…0056              Head {h00=0x0012, h01=0x0050, text=» ENTRY ADM600 «, t00=0x0000, t01=0x0044}
0x0056…006c              Head {h00=0x0012, h01=0x0050, text=» ENTRY SIGNON «, t00=0x0000, t01=0x005a}
0x006c…0082              Head {h00=0x0012, h01=0x0050, text=» ENTRY CHNGDK «, t00=0x0000, t01=0x0070}
0x0082…0098              Head {h00=0x0012, h01=0x0050, text=» ENTRY STRTRC «, t00=0x0000, t01=0x0086}
0x0098…00ae              Head {h00=0x0012, h01=0x0050, text=» ENTRY SENDRC «, t00=0x0000, t01=0x009c}
0x00ae…00c4              Head {h00=0x0012, h01=0x0050, text=» ENTRY TERMIN «, t00=0x0000, t01=0x00b2}
0x00c4…00da              Head {h00=0x0012, h01=0x0050, text=» ENTRY SIGNOF «, t00=0x0000, t01=0x00c8}
0x00da…00f0              Head {h00=0x0012, h01=0x0050, text=» ENTRY EXCHAN «, t00=0x0000, t01=0x00de}
0x00f0…0104              Head {h00=0x0010, h01=0x0050, text=» ENTRY TRNOK«, t00=0x0000, t01=0x00f4}
0x0104…0118              Head {h00=0x0010, h01=0x0050, text=» ENTRY WJDC «, t00=0x0000, t01=0x0108}
0x0118…0122              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…0136              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRS «, t00=0x0000, t01=0x0126}
0x0136…014a              Head {h00=0x0010, h01=0x0050, text=» EXT SLUTID «, t00=0x0000, t01=0x013a}
0x014a…015e              Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x014e}
0x015e…0172              Head {h00=0x0010, h01=0x0050, text=» EXT WRITID «, t00=0x0000, t01=0x0162}
0x0172…0186              Head {h00=0x0010, h01=0x0050, text=» EXT LAMPOF «, t00=0x0000, t01=0x0176}
0x0186…019a              Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0000, t01=0x018a}
0x019a…01ac              Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0001, t01=0x000e}
0x01ac…01c0              Head {h00=0x0010, h01=0x0050, text=» EXT CLSVOL «, t00=0x0001, t01=0x0020}
0x01c0…01d4              Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0001, t01=0x0034}
0x01d4…01e6              Head {h00=0x000e, h01=0x0050, text=» EXT SOPRD«, t00=0x0001, t01=0x0048}
0x01e6…01fa              Head {h00=0x0010, h01=0x0050, text=» EXT ASGVOL «, t00=0x0001, t01=0x005a}
0x01fa…020e              Head {h00=0x0010, h01=0x0050, text=» EXT ASGFIL «, t00=0x0001, t01=0x006e}
0x020e…0220              Head {h00=0x000e, h01=0x0050, text=» EXT BCKUP«, t00=0x0001, t01=0x0082}
0x0220…0234              Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0001, t01=0x0094}
0x0234…0248              Head {h00=0x0010, h01=0x0050, text=» EXT GETBIT «, t00=0x0001, t01=0x00a8}
0x0248…025c              Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x00bc}
0x025c…0266              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d0}
0x0266…027e              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x00da}
0x027e…028c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00f2}
0x028c…029a              Head {h00=0x000a, h01=0x0050, text=»ADM600«, t00=0x0001, t01=0x0100}
0x029a…02b6              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0001, t01=0x010e}
0x02b6…02d8              Head {h00=0x001e, h01=0x0050, text=» DSC1 DCOMM,TRPAR,GSWBIN1 «, t00=0x0001, t01=0x012a}
0x02d8…02ee              Head {h00=0x0012, h01=0x0050, text=» SET CCONVFLG «, t00=0x0001, t01=0x014c}
0x02ee…0306              Head {h00=0x0014, h01=0x0050, text=» CLEAR SPKEYFLG «, t00=0x0001, t01=0x0162}
0x0306…031c              Head {h00=0x0012, h01=0x0050, text=» TEST GTKASSE «, t00=0x0001, t01=0x017a}
0x031c…0332              Head {h00=0x0012, h01=0x0050, text=» BNZ ADM06RET «, t00=0x0001, t01=0x0190}
0x0332…0356              Head {h00=0x0020, h01=0x0050, text=» CMP TTASKNR,CBIN1 MASTER ? «, t00=0x0002, t01=0x0016}
0x0356…036e              Head {h00=0x0014, h01=0x0050, text=» BNE ADM06RET NO«, t00=0x0002, t01=0x003a}
0x036e…0394              Head {h00=0x0022, h01=0x0050, text=» CMP CTASKNR,CBIN0 ALL CLOSED «, t00=0x0002, t01=0x0052}
0x0394…03aa              Head {h00=0x0012, h01=0x0050, text=» BNE ADM06RET «, t00=0x0002, t01=0x0078}
0x03aa…03c0              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0002, t01=0x008e}
0x03c0…03da              Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0002, t01=0x00a4}
0x03da…03f2              Head {h00=0x0014, h01=0x0050, text=» ATTFMT SNDFRM6 «, t00=0x0002, t01=0x00be}
0x03f2…0406              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRS«, t00=0x0002, t01=0x00d6}
0x0406…0434              Head {h00=0x002a, h01=0x0050, text=» IB SPBINW2,ADM06RET,ADM06RET,ADM0610 «, t00=0x0002, t01=0x00ea}
0x0434…0446              Head {h00=0x000e, h01=0x0050, text=» B ADM600 «, t00=0x0002, t01=0x0118}
0x0446…0456              Head {h00=0x000c, h01=0x0050, text=»ADM0610 «, t00=0x0002, t01=0x012a}
0x0456…0472              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=X'40'«, t00=0x0002, t01=0x013a}
0x0472…0494              Head {h00=0x001e, h01=0x0050, text=» DSC1 DCOMM,TRPAR,GSWBIN1 «, t00=0x0002, t01=0x0156}
0x0494…04a4              Head {h00=0x000c, h01=0x0050, text=»ADM0611 «, t00=0x0002, t01=0x0178}
0x04a4…04ba              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0002, t01=0x0188}
0x04ba…04d0              Head {h00=0x0012, h01=0x0050, text=» ATTFMT SNDFRM«, t00=0x0003, t01=0x000e}
0x04d0…04e4              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRS«, t00=0x0003, t01=0x0024}
0x04e4…0510              Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,ADM0612,ADM0612,ADM0615 «, t00=0x0003, t01=0x0038}
0x0510…0522              Head {h00=0x000e, h01=0x0050, text=» B ADM0611«, t00=0x0003, t01=0x0064}
0x0522…053a              Head {h00=0x0014, h01=0x0050, text=»ADM0612 B ADM600«, t00=0x0003, t01=0x0076}
0x053a…054a              Head {h00=0x000c, h01=0x0050, text=»ADM0615 «, t00=0x0003, t01=0x008e}
0x054a…0568              Head {h00=0x001a, h01=0x0050, text=» TBT CCONVERT,ADM0613 «, t00=0x0003, t01=0x009e}
0x0568…0582              Head {h00=0x0016, h01=0x0050, text=» SUB CRECBCD,=D'1'«, t00=0x0003, t01=0x00bc}
0x0582…05a6              Head {h00=0x0020, h01=0x0050, text=» PERF SLUTID,CPCKBUF,CRECBCD«, t00=0x0003, t01=0x00d6}
0x05a6…05c0              Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0003, t01=0x00fa}
0x05c0…05ee              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0003, t01=0x0114}
0x05ee…0602              Head {h00=0x0010, h01=0x0050, text=» BNOK ADM600«, t00=0x0003, t01=0x0142}
0x0602…063c              Head {h00=0x0036, h01=0x0050, text=» PERF WRITID,CPCKBUF,CBIN5,CBIN2 SLUTID ON JOURNAL«, t00=0x0003, t01=0x0156}
0x063c…064c              Head {h00=0x000c, h01=0x0050, text=»ADM0613 «, t00=0x0003, t01=0x0190}
0x064c…0686              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0004, t01=0x0010}
0x0686…06ae              Head {h00=0x0024, h01=0x0050, text=»*             BATCH TRANSMISSION«, t00=0x0004, t01=0x004a}
0x06ae…06c8              Head {h00=0x0016, h01=0x0050, text=»*       1)  SIGNON«, t00=0x0004, t01=0x0072}
0x06c8…06e8              Head {h00=0x001c, h01=0x0050, text=»*       2)  CHANGE DISK «, t00=0x0004, t01=0x008c}
0x06e8…070c              Head {h00=0x0020, h01=0x0050, text=»*       3)  SEND STARTIDENT «, t00=0x0004, t01=0x00ac}
0x070c…073c              Head {h00=0x002c, h01=0x0050, text=»*       4)  SEND TRANSACTIONS AND SLUTID«, t00=0x0004, t01=0x00d0}
0x073c…0770              Head {h00=0x0030, h01=0x0050, text=»*       5)  IN CASE OF ERROR SEND TERMINATE «, t00=0x0004, t01=0x0100}
0x0770…07a6              Head {h00=0x0032, h01=0x0050, text=»*       6)  WHEN ALL TRANSMITTED SEND SIGNOFF «, t00=0x0004, t01=0x0134}
0x07a6…07e0              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0004, t01=0x016a}
0x07e0…07f4              Head {h00=0x0010, h01=0x0050, text=» PERF SIGNON«, t00=0x0005, t01=0x0014}
0x07f4…080a              Head {h00=0x0012, h01=0x0050, text=» BNOK ADM06OUT«, t00=0x0005, t01=0x0028}
0x080a…081a              Head {h00=0x000c, h01=0x0050, text=»ADM0620 «, t00=0x0005, t01=0x003e}
0x081a…0838              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0005, t01=0x004e}
0x0838…0848              Head {h00=0x000c, h01=0x0050, text=»ADM0630 «, t00=0x0005, t01=0x006c}
0x0848…0868              Head {h00=0x001c, h01=0x0050, text=» PERF CHNGDK CHANGE DISC«, t00=0x0005, t01=0x007c}
0x0868…087e              Head {h00=0x0012, h01=0x0050, text=» BNOK ADM6SOFF«, t00=0x0005, t01=0x009c}
0x087e…08a2              Head {h00=0x0020, h01=0x0050, text=» PERF STRTRC SEND STARTIDENT«, t00=0x0005, t01=0x00b2}
0x08a2…08cc              Head {h00=0x0026, h01=0x0050, text=» BNOK ADM0630 IF NOT OK, TRY NEXT «, t00=0x0005, t01=0x00d6}
0x08cc…08ec              Head {h00=0x001c, h01=0x0050, text=» PERF SENDRC SEND BATCH «, t00=0x0005, t01=0x0100}
0x08ec…0900              Head {h00=0x0010, h01=0x0050, text=» BOK ADM0620«, t00=0x0005, t01=0x0120}
0x0900…0914              Head {h00=0x0010, h01=0x0050, text=»   IF NOT OK«, t00=0x0005, t01=0x0134}
0x0914…0938              Head {h00=0x0020, h01=0x0050, text=» PERF TERMIN SEND TERMINATE «, t00=0x0005, t01=0x0148}
0x0938…0956              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0005, t01=0x016c}
0x0956…0980              Head {h00=0x0026, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10, ERROR «, t00=0x0005, t01=0x018a}
0x0980…0992              Head {h00=0x000e, h01=0x0050, text=» B ADM0630«, t00=0x0006, t01=0x0024}
0x0992…09a2              Head {h00=0x000c, h01=0x0050, text=»ADM6SOFF«, t00=0x0006, t01=0x0036}
0x09a2…09c4              Head {h00=0x001e, h01=0x0050, text=» PERF SIGNOF SEND SIGNOFF «, t00=0x0006, t01=0x0046}
0x09c4…09d4              Head {h00=0x000c, h01=0x0050, text=»ADM06OUT«, t00=0x0006, t01=0x0068}
0x09d4…0a06              Head {h00=0x002e, h01=0x0050, text=» MOVE CTRANBUF,=X'00' CLEAR TR 12 COUNTERS«, t00=0x0006, t01=0x0078}
0x0a06…0a22              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0006, t01=0x00aa}
0x0a22…0a44              Head {h00=0x001e, h01=0x0050, text=» DSC1 DCOMM,TRPAR,GSWBIN1 «, t00=0x0006, t01=0x00c6}
0x0a44…0a54              Head {h00=0x000c, h01=0x0050, text=»ADM06RET«, t00=0x0006, t01=0x00e8}
0x0a54…0a6c              Head {h00=0x0014, h01=0x0050, text=» CLEAR CCONVFLG «, t00=0x0006, t01=0x00f8}
0x0a6c…0a82              Head {h00=0x0012, h01=0x0050, text=» SET SPKEYFLG «, t00=0x0006, t01=0x0110}
0x0a82…0aa0              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0006, t01=0x0126}
0x0aa0…0ab2              Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0006, t01=0x0144}
0x0ab2…0ac0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0156}
0x0ac0…0af8              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0006, t01=0x0164}
0x0af8…0b02              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000c}
0x0b02…0b1e              Head {h00=0x0018, h01=0x0050, text=»*             SIGNON«, t00=0x0007, t01=0x0016}
0x0b1e…0b40              Head {h00=0x001e, h01=0x0050, text=»*    IF NOT OK CR NOT = 0 «, t00=0x0007, t01=0x0032}
0x0b40…0b4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0054}
0x0b4a…0b82              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0007, t01=0x005e}
0x0b82…0b96              Head {h00=0x0010, h01=0x0050, text=»SIGNON PROC «, t00=0x0007, t01=0x0096}
0x0b96…0bb2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 «, t00=0x0007, t01=0x00aa}
0x0bb2…0bce              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'50'«, t00=0x0007, t01=0x00c6}
0x0bce…0bea              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x0007, t01=0x00e2}
0x0bea…0c08              Head {h00=0x001a, h01=0x0050, text=» EDIT CTRANBUF,SIGONF «, t00=0x0007, t01=0x00fe}
0x0c08…0c36              Head {h00=0x002a, h01=0x0050, text=»*                          FIND LENGTH«, t00=0x0007, t01=0x011c}
0x0c36…0c72              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x0007, t01=0x014a}
0x0c72…0c90              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN1 «, t00=0x0007, t01=0x0186}
0x0c90…0cae              Head {h00=0x001a, h01=0x0050, text=» TBT CTESTFLG,SIGON10 «, t00=0x0008, t01=0x0014}
0x0cae…0cce              Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0008, t01=0x0032}
0x0cce…0ce4              Head {h00=0x0012, h01=0x0050, text=» BNOK SIGON100«, t00=0x0008, t01=0x0052}
0x0ce4…0cf6              Head {h00=0x000e, h01=0x0050, text=» PERF WJDC«, t00=0x0008, t01=0x0068}
0x0cf6…0d18              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'DFH3504'«, t00=0x0008, t01=0x007a}
0x0d18…0d34              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0008, t01=0x009c}
0x0d34…0d70              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR20,CBIN0,CBIN7«, t00=0x0008, t01=0x00b8}
0x0d70…0d86              Head {h00=0x0012, h01=0x0050, text=» BNE SIGON100 «, t00=0x0008, t01=0x00f4}
0x0d86…0d96              Head {h00=0x000c, h01=0x0050, text=»SIGON10 «, t00=0x0008, t01=0x010a}
0x0d96…0db4              Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,SNDFRM3 «, t00=0x0008, t01=0x011a}
0x0db4…0dcc              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0008, t01=0x0138}
0x0dcc…0dd8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0150}
0x0dd8…0de8              Head {h00=0x000c, h01=0x0050, text=»SIGON100«, t00=0x0008, t01=0x015c}
0x0de8…0e04              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0008, t01=0x016c}
0x0e04…0e20              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'60'«, t00=0x0008, t01=0x0188}
0x0e20…0e44              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TRANSMIT ' «, t00=0x0009, t01=0x0014}
0x0e44…0e60              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'16'«, t00=0x0009, t01=0x0038}
0x0e60…0e74              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x0054}
0x0e74…0e90              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'14' «, t00=0x0009, t01=0x0068}
0x0e90…0ea8              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0009, t01=0x0084}
0x0ea8…0eb4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x009c}
0x0eb4…0ec2              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x00a8}
0x0ec2…0ed0              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00b6}
0x0ed0…0f06              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0009, t01=0x00c4}
0x0f06…0f10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fa}
0x0f10…0f3a              Head {h00=0x0026, h01=0x0050, text=»*            CHNGDK - CHANGE DISK «, t00=0x0009, t01=0x0104}
0x0f3a…0f5c              Head {h00=0x001e, h01=0x0050, text=»*         STOP SEND PIN 6 «, t00=0x0009, t01=0x012e}
0x0f5c…0f7e              Head {h00=0x001e, h01=0x0050, text=»*         CONTINIUE PIN 5 «, t00=0x0009, t01=0x0150}
0x0f7e…0f88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0172}
0x0f88…0fbe              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0009, t01=0x017c}
0x0fbe…0fd2              Head {h00=0x0010, h01=0x0050, text=»CHNGDK PROC «, t00=0x000a, t01=0x0022}
0x0fd2…0fe2              Head {h00=0x000c, h01=0x0050, text=»CHNG000 «, t00=0x000a, t01=0x0036}
0x0fe2…100a              Head {h00=0x0024, h01=0x0050, text=» PERF CLSVOL,CBIN2 CLOSE REGSET «, t00=0x000a, t01=0x0046}
0x100a…1024              Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x000a, t01=0x006e}
0x1024…1040              Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'1' «, t00=0x000a, t01=0x0088}
0x1040…1062              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x000a, t01=0x00a4}
0x1062…1084              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'32' LAMP 6«, t00=0x000a, t01=0x00c6}
0x1084…10a6              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'16' LAMP 7«, t00=0x000a, t01=0x00e8}
0x10a6…10b6              Head {h00=0x000c, h01=0x0050, text=»CHNG010 «, t00=0x000a, t01=0x010a}
0x10b6…10ca              Head {h00=0x0010, h01=0x0050, text=» PERF SOPRD «, t00=0x000a, t01=0x011a}
0x10ca…10e2              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2,  C «, t00=0x000a, t01=0x012e}
0x10e2…1118              Head {h00=0x0032, h01=0x0050, text=»  CHSOP10,CHSOP09,CHSOP08,CHSOP07,CHSOP06,  C «, t00=0x000a, t01=0x0146}
0x1118…114a              Head {h00=0x002e, h01=0x0050, text=»  CHSOP05,CHSOP04,CHSOP03,CHSOP02,CHSOP01 «, t00=0x000a, t01=0x017c}
0x114a…115a              Head {h00=0x000c, h01=0x0050, text=»CHSOP01 «, t00=0x000b, t01=0x001e}
0x115a…116a              Head {h00=0x000c, h01=0x0050, text=»CHSOP02 «, t00=0x000b, t01=0x002e}
0x116a…117a              Head {h00=0x000c, h01=0x0050, text=»CHSOP03 «, t00=0x000b, t01=0x003e}
0x117a…118a              Head {h00=0x000c, h01=0x0050, text=»CHSOP04 «, t00=0x000b, t01=0x004e}
0x118a…119a              Head {h00=0x000c, h01=0x0050, text=»CHSOP08 «, t00=0x000b, t01=0x005e}
0x119a…11aa              Head {h00=0x000c, h01=0x0050, text=»CHSOP09 «, t00=0x000b, t01=0x006e}
0x11aa…11bc              Head {h00=0x000e, h01=0x0050, text=» B CHNG010«, t00=0x000b, t01=0x007e}
0x11bc…11cc              Head {h00=0x000c, h01=0x0050, text=»CHSOP10 «, t00=0x000b, t01=0x0090}
0x11cc…11ec              Head {h00=0x001c, h01=0x0050, text=»*   ERROR, SIGN ON AGAIN«, t00=0x000b, t01=0x00a0}
0x11ec…1214              Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000b, t01=0x00c0}
0x1214…1236              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10«, t00=0x000b, t01=0x00e8}
0x1236…124c              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x000b, t01=0x010a}
0x124c…1270              Head {h00=0x0020, h01=0x0050, text=» ATTFMT SNDFRM SIGNON FORMAT«, t00=0x000b, t01=0x0120}
0x1270…1284              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRS«, t00=0x000b, t01=0x0144}
0x1284…12ac              Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CH1010,CH1010,CH1020«, t00=0x000b, t01=0x0158}
0x12ac…12ba              Head {h00=0x000a, h01=0x0050, text=»CH1010«, t00=0x000b, t01=0x0180}
0x12ba…12cc              Head {h00=0x000e, h01=0x0050, text=» B CHNG000«, t00=0x000b, t01=0x018e}
0x12cc…12da              Head {h00=0x000a, h01=0x0050, text=»CH1020«, t00=0x000c, t01=0x0010}
0x12da…12ee              Head {h00=0x0010, h01=0x0050, text=» PERF SIGNON«, t00=0x000c, t01=0x001e}
0x12ee…1304              Head {h00=0x0012, h01=0x0050, text=» BNOK CHNG000 «, t00=0x000c, t01=0x0032}
0x1304…1322              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x000c, t01=0x0048}
0x1322…1334              Head {h00=0x000e, h01=0x0050, text=» B CHNG000«, t00=0x000c, t01=0x0066}
0x1334…1344              Head {h00=0x000c, h01=0x0050, text=»CHSOP05 «, t00=0x000c, t01=0x0078}
0x1344…136c              Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000c, t01=0x0088}
0x136c…1394              Head {h00=0x0024, h01=0x0050, text=» PERF ASGFIL,CBIN2 ASSIGN DISK 2«, t00=0x000c, t01=0x00b0}
0x1394…13a8              Head {h00=0x0010, h01=0x0050, text=» BOK CHNG050«, t00=0x000c, t01=0x00d8}
0x13a8…13c2              Head {h00=0x0016, h01=0x0050, text=» PERF LAMPON,=W'2'«, t00=0x000c, t01=0x00ec}
0x13c2…13d4              Head {h00=0x000e, h01=0x0050, text=» B CHNG000«, t00=0x000c, t01=0x0106}
0x13d4…13e4              Head {h00=0x000c, h01=0x0050, text=»CHNG050 «, t00=0x000c, t01=0x0118}
0x13e4…1406              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x000c, t01=0x0128}
0x1406…1426              Head {h00=0x001c, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR «, t00=0x000c, t01=0x014a}
0x1426…1432              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x016a}
0x1432…144a              Head {h00=0x0014, h01=0x0050, text=»CHSOP06   SOP 6 «, t00=0x000c, t01=0x0176}
0x144a…1472              Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000c, t01=0x018e}
0x1472…149a              Head {h00=0x0024, h01=0x0050, text=» PERF BCKUP,=W'1' WITHOUT BACKUP«, t00=0x000d, t01=0x0026}
0x149a…14b0              Head {h00=0x0012, h01=0x0050, text=» BNOK CHNG000 «, t00=0x000d, t01=0x004e}
0x14b0…14c2              Head {h00=0x000e, h01=0x0050, text=» B CHNG130«, t00=0x000d, t01=0x0064}
0x14c2…14d2              Head {h00=0x000c, h01=0x0050, text=»CHSOP07 «, t00=0x000d, t01=0x0076}
0x14d2…14fa              Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000d, t01=0x0086}
0x14fa…1520              Head {h00=0x0022, h01=0x0050, text=» PERF BCKUP,=W'2' WITH BACKUP «, t00=0x000d, t01=0x00ae}
0x1520…1536              Head {h00=0x0012, h01=0x0050, text=» BNOK CHNG000 «, t00=0x000d, t01=0x00d4}
0x1536…1548              Head {h00=0x000e, h01=0x0050, text=» B CHNG130«, t00=0x000d, t01=0x00ea}
0x1548…1558              Head {h00=0x000c, h01=0x0050, text=»CHNG130 «, t00=0x000d, t01=0x00fc}
0x1558…1576              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x000d, t01=0x010c}
0x1576…15ae              Head {h00=0x0034, h01=0x0050, text=» CMP CBIN0,CBIN1 INDICATE ERROR OR END OF TRANS «, t00=0x000d, t01=0x012a}
0x15ae…15ba              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x0162}
0x15ba…15c8              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x016e}
0x15c8…15d6              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x017c}
0x15d6…1608              Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x000d, t01=0x018a}
0x1608…1612              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002c}
0x1612…1640              Head {h00=0x002a, h01=0x0050, text=»*         STRTRC - SEND OF STARTIDENT «, t00=0x000e, t01=0x0036}
0x1640…1662              Head {h00=0x001e, h01=0x0050, text=»*         AND CHECK REPLY «, t00=0x000e, t01=0x0064}
0x1662…166c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0086}
0x166c…16a0              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x000e, t01=0x0090}
0x16a0…16b4              Head {h00=0x0010, h01=0x0050, text=»STRTRC PROC «, t00=0x000e, t01=0x00c4}
0x16b4…16d2              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x000e, t01=0x00d8}
0x16d2…16ee              Head {h00=0x0018, h01=0x0050, text=» PERF LAMPON,=W'64' «, t00=0x000e, t01=0x00f6}
0x16ee…170a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN1 «, t00=0x000e, t01=0x0112}
0x170a…1728              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' «, t00=0x000e, t01=0x012e}
0x1728…1760              Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 «, t00=0x000e, t01=0x014c}
0x1760…1776              Head {h00=0x0012, h01=0x0050, text=» BNOK STRTRET «, t00=0x000e, t01=0x0184}
0x1776…17a8              Head {h00=0x002e, h01=0x0050, text=» CBE GTWBCD1,=D'4',STRTRET RECORD DELETED?«, t00=0x000f, t01=0x000a}
0x17a8…17d0              Head {h00=0x0024, h01=0x0050, text=» PERF WRITID,CPCKBUF,CBIN5,CBIN1«, t00=0x000f, t01=0x003c}
0x17d0…17ec              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 «, t00=0x000f, t01=0x0064}
0x17ec…1808              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x000f, t01=0x0080}
0x1808…1826              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,CBLANKS«, t00=0x000f, t01=0x009c}
0x1826…185c              Head {h00=0x0032, h01=0x0050, text=» COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 «, t00=0x000f, t01=0x00ba}
0x185c…1878              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x000f, t01=0x00f0}
0x1878…1896              Head {h00=0x001a, h01=0x0050, text=» EDIT CTRANBUF,SNDFRM2«, t00=0x000f, t01=0x010c}
0x1896…18ba              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN2,=W'31' LENGTH «, t00=0x000f, t01=0x012a}
0x18ba…18da              Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x000f, t01=0x014e}
0x18da…18f0              Head {h00=0x0012, h01=0x0050, text=» BNOK STRTRET «, t00=0x000f, t01=0x016e}
0x18f0…1910              Head {h00=0x001c, h01=0x0050, text=» PERF TRNOK CHECK IF OK «, t00=0x000f, t01=0x0184}
0x1910…1926              Head {h00=0x0012, h01=0x0050, text=» BNOK STRTRET «, t00=0x0010, t01=0x0014}
0x1926…1946              Head {h00=0x001c, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR «, t00=0x0010, t01=0x002a}
0x1946…1952              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x004a}
0x1952…1962              Head {h00=0x000c, h01=0x0050, text=»STRTRET «, t00=0x0010, t01=0x0056}
0x1962…197a              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0010, t01=0x0066}
0x197a…1986              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x007e}
0x1986…1994              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x008a}
0x1994…19a2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0098}
0x19a2…19d8              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0010, t01=0x00a6}
0x19d8…19e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00dc}
0x19e2…1a14              Head {h00=0x002e, h01=0x0050, text=»*         SENDRC - SEND BATCH UNTIL SLUTID«, t00=0x0010, t01=0x00e6}
0x1a14…1a1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0118}
0x1a1e…1a54              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0010, t01=0x0122}
0x1a54…1a68              Head {h00=0x0010, h01=0x0050, text=»SENDRC PROC «, t00=0x0010, t01=0x0158}
0x1a68…1a82              Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x0010, t01=0x016c}
0x1a82…1a90              Head {h00=0x000a, h01=0x0050, text=»SND005«, t00=0x0010, t01=0x0186}
0x1a90…1ab8 (17, 0, 400) Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 PACKPOINTER «, t00=0x0011, t01=0x0004}
0x1ab8…1ac6              Head {h00=0x000a, h01=0x0050, text=»SND010«, t00=0x0011, t01=0x002c}
0x1ac6…1ae0              Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0011, t01=0x003a}
0x1ae0…1afe              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' «, t00=0x0011, t01=0x0054}
0x1afe…1b34              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR«, t00=0x0011, t01=0x0072}
0x1b34…1b48              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0011, t01=0x00a8}
0x1b48…1b62              Head {h00=0x0016, h01=0x0050, text=» CMP GTWBCD1,=D'4'«, t00=0x0011, t01=0x00bc}
0x1b62…1b86              Head {h00=0x0020, h01=0x0050, text=» BE SNDERR RECORD DELETED ? «, t00=0x0011, t01=0x00d6}
0x1b86…1ba6              Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'SLUTD'«, t00=0x0011, t01=0x00fa}
0x1ba6…1bc2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0011, t01=0x011a}
0x1bc2…1bfc              Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 «, t00=0x0011, t01=0x0136}
0x1bfc…1c10              Head {h00=0x0010, h01=0x0050, text=» BE SNDSLUT «, t00=0x0011, t01=0x0170}
0x1c10…1c38              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR9,=X'7F' FIND LENGTH«, t00=0x0011, t01=0x0184}
0x1c38…1c46              Head {h00=0x000a, h01=0x0050, text=»SND015«, t00=0x0012, t01=0x001c}
0x1c46…1c62              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0012, t01=0x002a}
0x1c62…1c80              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0012, t01=0x0046}
0x1c80…1cba              Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN4,GSWBIN5,GSWSTR9,CBIN0,CBIN1«, t00=0x0012, t01=0x0064}
0x1cba…1ccc              Head {h00=0x000e, h01=0x0050, text=» BE SND020«, t00=0x0012, t01=0x009e}
0x1ccc…1ce8              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR9,=X'21'«, t00=0x0012, t01=0x00b0}
0x1ce8…1cfa              Head {h00=0x000e, h01=0x0050, text=» B SND015 «, t00=0x0012, t01=0x00cc}
0x1cfa…1d08              Head {h00=0x000a, h01=0x0050, text=»SND020«, t00=0x0012, t01=0x00de}
0x1d08…1d36              Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,GSWBIN3 SEE IF MORE SPACE«, t00=0x0012, t01=0x00ec}
0x1d36…1d5a              Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,=W'504',SND030«, t00=0x0012, t01=0x011a}
0x1d5a…1d82              Head {h00=0x0024, h01=0x0050, text=» SUB CRECNR,CBIN1 NO MORE SPACE «, t00=0x0012, t01=0x013e}
0x1d82…1da0              Head {h00=0x001a, h01=0x0050, text=» B SND040 SEND BUFFER «, t00=0x0012, t01=0x0166}
0x1da0…1dae              Head {h00=0x000a, h01=0x0050, text=»SND030«, t00=0x0012, t01=0x0184}
0x1dae…1dd2 (19, 0, 400) Head {h00=0x0020, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 RESTORE«, t00=0x0013, t01=0x0004}
0x1dd2…1dfc              Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN4,CBIN1 FILL WITH X'00'«, t00=0x0013, t01=0x0028}
0x1dfc…1e20              Head {h00=0x0020, h01=0x0050, text=» CBE GSWBIN4,=W'128',SND037 «, t00=0x0013, t01=0x0052}
0x1e20…1e3e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,=X'00' «, t00=0x0013, t01=0x0076}
0x1e3e…1e5c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0013, t01=0x0094}
0x1e5c…1e6a              Head {h00=0x000a, h01=0x0050, text=»SND035«, t00=0x0013, t01=0x00b2}
0x1e6a…1e9e              Head {h00=0x0030, h01=0x0050, text=» INSRT CPCKBUF,GSWBIN4,CBIN20,GSWSTR20,CBIN0«, t00=0x0013, t01=0x00c0}
0x1e9e…1eba              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN5,CBIN20 «, t00=0x0013, t01=0x00f4}
0x1eba…1ef2              Head {h00=0x0034, h01=0x0050, text=» CBG GSWBIN5,GSWBIN4,SND035 ALL TRAILING FILLED «, t00=0x0013, t01=0x0110}
0x1ef2…1f00              Head {h00=0x000a, h01=0x0050, text=»SND037«, t00=0x0013, t01=0x0148}
0x1f00…1f36              Head {h00=0x0032, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM5 INSERT RECORD «, t00=0x0013, t01=0x0156}
0x1f36…1f52              Head {h00=0x0018, h01=0x0050, text=» B SND010 READ NEXT «, t00=0x0013, t01=0x018c}
0x1f52…1f60              Head {h00=0x000a, h01=0x0050, text=»SND040«, t00=0x0014, t01=0x0018}
0x1f60…1f7e              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN3 «, t00=0x0014, t01=0x0026}
0x1f7e…1f9c              Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'0301'«, t00=0x0014, t01=0x0044}
0x1f9c…1fba              Head {h00=0x001a, h01=0x0050, text=» MOVE TTARKSAV,CRECNR «, t00=0x0014, t01=0x0062}
0x1fba…1fda              Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,POS,SPBINW1«, t00=0x0014, t01=0x0080}
0x1fda…200a              Head {h00=0x002c, h01=0x0050, text=» EDWRT .NW,SCREEN,SNDFRM4 DISPLAY RECNR «, t00=0x0014, t01=0x00a0}
0x200a…201e              Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0014, t01=0x00d0}
0x201e…2032              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0014, t01=0x00e4}
0x2032…2046              Head {h00=0x0010, h01=0x0050, text=» PERF TRNOK «, t00=0x0014, t01=0x00f8}
0x2046…205a              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0014, t01=0x010c}
0x205a…206c              Head {h00=0x000e, h01=0x0050, text=» B SND005 «, t00=0x0014, t01=0x0120}
0x206c…207c              Head {h00=0x000c, h01=0x0050, text=»SNDSLUT «, t00=0x0014, t01=0x0132}
0x207c…20ac              Head {h00=0x002c, h01=0x0050, text=» CBE GSWBIN3,CBIN0,SND090 REQ.LGTH.=0 ? «, t00=0x0014, t01=0x0142}
0x20ac…20ca              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN3 «, t00=0x0014, t01=0x0172}
0x20ca…20ea              Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0014, t01=0x0190}
0x20ea…20fe              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0015, t01=0x0020}
0x20fe…2112              Head {h00=0x0010, h01=0x0050, text=» PERF TRNOK «, t00=0x0015, t01=0x0034}
0x2112…2126              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0015, t01=0x0048}
0x2126…2134              Head {h00=0x000a, h01=0x0050, text=»SND090«, t00=0x0015, t01=0x005c}
0x2134…2150              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0015, t01=0x006a}
0x2150…216c              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x0015, t01=0x0086}
0x216c…2194              Head {h00=0x0024, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM5 «, t00=0x0015, t01=0x00a2}
0x2194…21b0              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN18«, t00=0x0015, t01=0x00ca}
0x21b0…21c4              Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0015, t01=0x00e6}
0x21c4…21d8              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0015, t01=0x00fa}
0x21d8…2200              Head {h00=0x0024, h01=0x0050, text=» PERF WRITID,CPCKBUF,CBIN5,CBIN2«, t00=0x0015, t01=0x010e}
0x2200…2220              Head {h00=0x001c, h01=0x0050, text=» PERF WJDC PRINT ANSWER «, t00=0x0015, t01=0x0136}
0x2220…223e              Head {h00=0x001a, h01=0x0050, text=» TBT CTESTFLG,SNDSL10 «, t00=0x0015, t01=0x0156}
0x223e…225c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'0002'«, t00=0x0015, t01=0x0174}
0x225c…2278 (22, 0, 400) Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0016, t01=0x0004}
0x2278…2294              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'52'«, t00=0x0016, t01=0x0020}
0x2294…22d0              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN4 «, t00=0x0016, t01=0x003c}
0x22d0…22e4              Head {h00=0x0010, h01=0x0050, text=» BNE SNDERR «, t00=0x0016, t01=0x0078}
0x22e4…22f4              Head {h00=0x000c, h01=0x0050, text=»SNDSL10 «, t00=0x0016, t01=0x008c}
0x22f4…230c              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0016, t01=0x009c}
0x230c…2318              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x00b4}
0x2318…2326              Head {h00=0x000a, h01=0x0050, text=»SNDERR«, t00=0x0016, t01=0x00c0}
0x2326…233e              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0016, t01=0x00ce}
0x233e…234a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x00e6}
0x234a…2358              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x00f2}
0x2358…2366              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0100}
0x2366…239a              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0016, t01=0x010e}
0x239a…23a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0142}
0x23a4…23e6              Head {h00=0x003e, h01=0x0050, text=»*         TERMIN - TERMINATE TRANSMISSION IN CASE OF ERROR«, t00=0x0016, t01=0x014c}
0x23e6…23f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018e}
0x23f0…2424              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0017, t01=0x0008}
0x2424…2438              Head {h00=0x0010, h01=0x0050, text=»TERMIN PROC «, t00=0x0017, t01=0x003c}
0x2438…2454              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0017, t01=0x0050}
0x2454…2470              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x0017, t01=0x006c}
0x2470…2494              Head {h00=0x0020, h01=0x0050, text=» MOVE CPCKBUF,=C'TERMINATE '«, t00=0x0017, t01=0x0088}
0x2494…24b0              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0017, t01=0x00ac}
0x24b0…24d8              Head {h00=0x0024, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM2 «, t00=0x0017, t01=0x00c8}
0x24d8…24f4              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x0017, t01=0x00f0}
0x24f4…2514              Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0017, t01=0x010c}
0x2514…252a              Head {h00=0x0012, h01=0x0050, text=» BNOK TERMRET «, t00=0x0017, t01=0x012c}
0x252a…253c              Head {h00=0x000e, h01=0x0050, text=» PERF WJDC«, t00=0x0017, t01=0x0142}
0x253c…254c              Head {h00=0x000c, h01=0x0050, text=»TERMRET «, t00=0x0017, t01=0x0154}
0x254c…2558              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0164}
0x2558…2566              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x0170}
0x2566…2574              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x017e}
0x2574…25aa              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0017, t01=0x018c}
0x25aa…25b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0032}
0x25b4…25ce              Head {h00=0x0016, h01=0x0050, text=»*         SIGNOFF «, t00=0x0018, t01=0x003c}
0x25ce…25d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0056}
0x25d8…260e              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0018, t01=0x0060}
0x260e…2622              Head {h00=0x0010, h01=0x0050, text=»SIGNOF PROC «, t00=0x0018, t01=0x0096}
0x2622…263e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0018, t01=0x00aa}
0x263e…265a              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x0018, t01=0x00c6}
0x265a…267a              Head {h00=0x001c, h01=0x0050, text=» MOVE CPCKBUF,=C'CSSF ' «, t00=0x0018, t01=0x00e2}
0x267a…26a2              Head {h00=0x0024, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM2 «, t00=0x0018, t01=0x0102}
0x26a2…26be              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN9 «, t00=0x0018, t01=0x012a}
0x26be…26d2              Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0018, t01=0x0146}
0x26d2…26e8              Head {h00=0x0012, h01=0x0050, text=» BNOK SIGOFRET«, t00=0x0018, t01=0x015a}
0x26e8…2706              Head {h00=0x001a, h01=0x0050, text=» TBT CTESTFLG,SIGOFRT1«, t00=0x0018, t01=0x0170}
0x2706…2726              Head {h00=0x001c, h01=0x0050, text=» PERF WJDC PRINT ANSWER «, t00=0x0018, t01=0x018e}
0x2726…2736              Head {h00=0x000c, h01=0x0050, text=»SIGOFRET«, t00=0x0019, t01=0x001e}
0x2736…2742              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x002e}
0x2742…2752              Head {h00=0x000c, h01=0x0050, text=»SIGOFRT1«, t00=0x0019, t01=0x003a}
0x2752…276a              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0019, t01=0x004a}
0x276a…2776              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0062}
0x2776…2784              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x006e}
0x2784…2792              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x007c}
0x2792…27c8              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0019, t01=0x008a}
0x27c8…27f0              Head {h00=0x0024, h01=0x0050, text=»*           EXCHAN - EXCHANGE DC«, t00=0x0019, t01=0x00c0}
0x27f0…2820              Head {h00=0x002c, h01=0x0050, text=»*         IN CASE OF ERROR ERRORMESSAGE «, t00=0x0019, t01=0x00e8}
0x2820…2850              Head {h00=0x002c, h01=0x0050, text=»*         IS SHOWN ON SCREEN AND JOURNAL«, t00=0x0019, t01=0x0118}
0x2850…2886              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0019, t01=0x0148}
0x2886…289a              Head {h00=0x0010, h01=0x0050, text=»EXCHAN PROC «, t00=0x0019, t01=0x017e}
0x289a…28b8 (26, 0, 400) Head {h00=0x001a, h01=0x0050, text=» TBT CTESTFLG,EXCHTEST«, t00=0x001a, t01=0x0004}
0x28b8…28c6              Head {h00=0x000a, h01=0x0050, text=»EXCH10«, t00=0x001a, t01=0x0022}
0x28c6…28e2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN1 «, t00=0x001a, t01=0x0030}
0x28e2…2900              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=W'504' «, t00=0x001a, t01=0x004c}
0x2900…292e              Head {h00=0x002a, h01=0x0050, text=» DCREAD DCOMM,CDUMBUF,GSWBIN1,GSWBIN5 «, t00=0x001a, t01=0x006a}
0x292e…295e              Head {h00=0x002c, h01=0x0050, text=» BOK EXCH10 IF ANYTIBNG RCVD, THROW AWAY«, t00=0x001a, t01=0x0098}
0x295e…2984              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,=W'900' TIMEOUT «, t00=0x001a, t01=0x00c8}
0x2984…29b4              Head {h00=0x002c, h01=0x0050, text=» DCWRITE DCOMM,CTRANBUF,GSWBIN2,GSWBIN5 «, t00=0x001a, t01=0x00ee}
0x29b4…29ca              Head {h00=0x0012, h01=0x0050, text=» BNOK EXCHNOK «, t00=0x001a, t01=0x011e}
0x29ca…29e8              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,=W'504' «, t00=0x001a, t01=0x0134}
0x29e8…2a0e              Head {h00=0x0022, h01=0x0050, text=» MOVE GSWBIN5,=W'900' TIMEOUT «, t00=0x001a, t01=0x0152}
0x2a0e…2a3c              Head {h00=0x002a, h01=0x0050, text=» DCREAD DCOMM,CTRANBUF,GSWBIN2,GSWBIN5«, t00=0x001a, t01=0x0178}
0x2a3c…2a50              Head {h00=0x0010, h01=0x0050, text=» BOK EXCHRET«, t00=0x001b, t01=0x0016}
0x2a50…2a60              Head {h00=0x000c, h01=0x0050, text=»EXCHNOK «, t00=0x001b, t01=0x002a}
0x2a60…2a8a              Head {h00=0x0026, h01=0x0050, text=» PERF GETBIT,DCOMM FETCH ERRORCODE«, t00=0x001b, t01=0x003a}
0x2a8a…2aa6              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x001b, t01=0x0064}
0x2aa6…2ac2              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'60'«, t00=0x001b, t01=0x0080}
0x2ac2…2ae6              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TRANSMIT ' «, t00=0x001b, t01=0x009c}
0x2ae6…2afa              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x001b, t01=0x00c0}
0x2afa…2b16              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'14' «, t00=0x001b, t01=0x00d4}
0x2b16…2b2e              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x001b, t01=0x00f0}
0x2b2e…2b3a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0108}
0x2b3a…2b4a              Head {h00=0x000c, h01=0x0050, text=»EXCHTEST«, t00=0x001b, t01=0x0114}
0x2b4a…2b6c              Head {h00=0x001e, h01=0x0050, text=» MOVE CTRANBUF,=X'1B3543' «, t00=0x001b, t01=0x0124}
0x2b6c…2b82              Head {h00=0x0012, h01=0x0050, text=» DELAY CBIN20 «, t00=0x001b, t01=0x0146}
0x2b82…2b92              Head {h00=0x000c, h01=0x0050, text=»EXCHRET «, t00=0x001b, t01=0x015c}
0x2b92…2baa              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x001b, t01=0x016c}
0x2baa…2bb6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0184}
0x2bb6…2bc4              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0190}
0x2bc4…2bd2              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x000e}
0x2bd2…2c08              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001c, t01=0x001c}
0x2c08…2c12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0052}
0x2c12…2c4c              Head {h00=0x0036, h01=0x0050, text=»*       TRNOK - CHECK IF MESSAGE CORRECT RECIEVED «, t00=0x001c, t01=0x005c}
0x2c4c…2c56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0096}
0x2c56…2c8c              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001c, t01=0x00a0}
0x2c8c…2c9e              Head {h00=0x000e, h01=0x0050, text=»TRNOK PROC«, t00=0x001c, t01=0x00d6}
0x2c9e…2cba              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x001c, t01=0x00e8}
0x2cba…2cea              Head {h00=0x002c, h01=0x0050, text=» MOVE GSWSTR9,=X'1B3543' =EBCDIC 27F5C3 «, t00=0x001c, t01=0x0104}
0x2cea…2d26              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN3,GSWBIN2,GSWSTR9,CBIN0,CBIN3 «, t00=0x001c, t01=0x0134}
0x2d26…2d3a              Head {h00=0x0010, h01=0x0050, text=» BNE TRNERR «, t00=0x001c, t01=0x0170}
0x2d3a…2d56              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x001c, t01=0x0184}
0x2d56…2d72              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=C' '«, t00=0x001d, t01=0x0010}
0x2d72…2d8a              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x001d, t01=0x002c}
0x2d8a…2d96              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x0044}
0x2d96…2da4              Head {h00=0x000a, h01=0x0050, text=»TRNERR«, t00=0x001d, t01=0x0050}
0x2da4…2dc0              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'60'«, t00=0x001d, t01=0x005e}
0x2dc0…2de4              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TRANSMIT ' «, t00=0x001d, t01=0x007a}
0x2de4…2e00              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'50'«, t00=0x001d, t01=0x009e}
0x2e00…2e14              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x001d, t01=0x00ba}
0x2e14…2e30              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'14' «, t00=0x001d, t01=0x00ce}
0x2e30…2e48              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x001d, t01=0x00ea}
0x2e48…2e54              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x0102}
0x2e54…2e62              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x010e}
0x2e62…2e70              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x011c}
0x2e70…2eaa              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001d, t01=0x012a}
0x2eaa…2eb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0164}
0x2eb4…2eea              Head {h00=0x0032, h01=0x0050, text=»*    WJDC - PRINT RECEIVED MESSAGE ON JOURNAL «, t00=0x001d, t01=0x016e}
0x2eea…2ef4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0014}
0x2ef4…2f2e              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001e, t01=0x001e}
0x2f2e…2f40              Head {h00=0x000e, h01=0x0050, text=»WJDC PROC «, t00=0x001e, t01=0x0058}
0x2f40…2f54              Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x001e, t01=0x006a}
0x2f54…2f76              Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN2,CBIN1,WJDCRET«, t00=0x001e, t01=0x007e}
0x2f76…2f9a              Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN2,=W'504',WJDCRET«, t00=0x001e, t01=0x00a0}
0x2f9a…2fb8              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'DFH' «, t00=0x001e, t01=0x00c4}
0x2fb8…2fd4              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x001e, t01=0x00e2}
0x2fd4…3010              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN3 «, t00=0x001e, t01=0x00fe}
0x3010…3030              Head {h00=0x001c, h01=0x0050, text=» BE WJDC100 CICS MESSAGE«, t00=0x001e, t01=0x013a}
0x3030…303a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x015a}
0x303a…305c              Head {h00=0x001e, h01=0x0050, text=»*      APLICATION MESSAGE «, t00=0x001e, t01=0x0164}
0x305c…3066              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0186}
0x3066…3082              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR9,=X'11'«, t00=0x001e, t01=0x0190}
0x3082…309e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x001f, t01=0x001c}
0x309e…30da              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN1 «, t00=0x001f, t01=0x0038}
0x30da…30ee              Head {h00=0x0010, h01=0x0050, text=» BNE WJDCRET«, t00=0x001f, t01=0x0074}
0x30ee…311c              Head {h00=0x002a, h01=0x0050, text=»*                       GSWBIN1=START «, t00=0x001f, t01=0x0088}
0x311c…314a              Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN1,CBIN3 BYPASS SBA SEQUENSE«, t00=0x001f, t01=0x00b6}
0x314a…3168              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBIN1 «, t00=0x001f, t01=0x00e4}
0x3168…3192              Head {h00=0x0026, h01=0x0050, text=» SUB GSWBIN2,GSWBIN4 ADJUST LENGTH«, t00=0x001f, t01=0x0102}
0x3192…31b4              Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN2,CBIN1,WJDCRET«, t00=0x001f, t01=0x012c}
0x31b4…31c4              Head {h00=0x000c, h01=0x0050, text=»WJDC005 «, t00=0x001f, t01=0x014e}
0x31c4…31e0              Head {h00=0x0018, h01=0x0050, text=» MOVE CPCKBUF,=X'00'«, t00=0x001f, t01=0x015e}
0x31e0…321c              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN4,GSWBIN2,GSWSTR9,CBIN0,CBIN1 «, t00=0x001f, t01=0x017a}
0x321c…3230              Head {h00=0x0010, h01=0x0050, text=» BNE WJDC010«, t00=0x0020, t01=0x0026}
0x3230…325e              Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN1 GSWBIN4 = LENGTH «, t00=0x0020, t01=0x003a}
0x325e…3282              Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,=W'52',WJDC007«, t00=0x0020, t01=0x0068}
0x3282…32ac              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN4,=W'52' MAX 52 CHARS «, t00=0x0020, t01=0x008c}
0x32ac…32e0              Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1«, t00=0x0020, t01=0x00b6}
0x32e0…32fe              Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0020, t01=0x00ea}
0x32fe…3310              Head {h00=0x000e, h01=0x0050, text=» B WJDC008«, t00=0x0020, t01=0x0108}
0x3310…3320              Head {h00=0x000c, h01=0x0050, text=»WJDC007 «, t00=0x0020, t01=0x011a}
0x3320…3354              Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1«, t00=0x0020, t01=0x012a}
0x3354…3372              Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0020, t01=0x015e}
0x3372…338c              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN3«, t00=0x0020, t01=0x017c}
0x338c…339c              Head {h00=0x000c, h01=0x0050, text=»WJDC008 «, t00=0x0021, t01=0x0008}
0x339c…33b8              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN4«, t00=0x0021, t01=0x0018}
0x33b8…33d4              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN4,GSWBIN1«, t00=0x0021, t01=0x0034}
0x33d4…33f2              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBIN4 «, t00=0x0021, t01=0x0050}
0x33f2…3414              Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN2,CBIN3,WJDC005«, t00=0x0021, t01=0x006e}
0x3414…3426              Head {h00=0x000e, h01=0x0050, text=» B WJDCRET«, t00=0x0021, t01=0x0090}
0x3426…3436              Head {h00=0x000c, h01=0x0050, text=»WJDC010 «, t00=0x0021, t01=0x00a2}
0x3436…3448              Head {h00=0x000e, h01=0x0050, text=» B WJDC200«, t00=0x0021, t01=0x00b2}
0x3448…3458              Head {h00=0x000c, h01=0x0050, text=»WJDCRET «, t00=0x0021, t01=0x00c4}
0x3458…3464              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x00d4}
0x3464…346e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e0}
0x346e…347e              Head {h00=0x000c, h01=0x0050, text=»WJDC100 «, t00=0x0021, t01=0x00ea}
0x347e…349a              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0021, t01=0x00fa}
0x349a…34be              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN2,=W'52',WJDC200 «, t00=0x0021, t01=0x0116}
0x34be…34e6              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN4,=W'30' FIND BLANK «, t00=0x0021, t01=0x013a}
0x34e6…3502              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN4,GSWBIN1«, t00=0x0021, t01=0x0162}
0x3502…353c              Head {h00=0x0036, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN4,CBIN22,CBLANKS,CBIN0,CBIN1«, t00=0x0021, t01=0x017e}
0x353c…3550              Head {h00=0x0010, h01=0x0050, text=» BNE WJDC200«, t00=0x0022, t01=0x0028}
0x3550…356c              Head {h00=0x0018, h01=0x0050, text=» MOVE CPCKBUF,=X'00'«, t00=0x0022, t01=0x003c}
0x356c…3588              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,GSWBIN1«, t00=0x0022, t01=0x0058}
0x3588…35bc              Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1«, t00=0x0022, t01=0x0074}
0x35bc…35da              Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0022, t01=0x00a8}
0x35da…35f6              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN4«, t00=0x0022, t01=0x00c6}
0x35f6…3612              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN1,GSWBIN4«, t00=0x0022, t01=0x00e2}
0x3612…3622              Head {h00=0x000c, h01=0x0050, text=»WJDC200 «, t00=0x0022, t01=0x00fe}
0x3622…363e              Head {h00=0x0018, h01=0x0050, text=» MOVE CPCKBUF,=X'00'«, t00=0x0022, t01=0x010e}
0x363e…3662              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN2,=W'52',WJDC210 «, t00=0x0022, t01=0x012a}
0x3662…367e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'52'«, t00=0x0022, t01=0x014e}
0x367e…368e              Head {h00=0x000c, h01=0x0050, text=»WJDC210 «, t00=0x0022, t01=0x016a}
0x368e…36c2              Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN2,CTRANBUF,GSWBIN1«, t00=0x0022, t01=0x017a}
0x36c2…36e0              Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0023, t01=0x001e}
0x36e0…36ec              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x003c}
0x36ec…36fa              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x0048}
0x36fa…3708              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0056}
0x3708…3740              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0023, t01=0x0064}
0x3740…374a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009c}
0x374a…3768              Head {h00=0x001a, h01=0x0050, text=»*         FORMATS USED«, t00=0x0023, t01=0x00a6}
0x3768…3772              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c4}
0x3772…37aa              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0023, t01=0x00ce}
0x37aa…37b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0106}
0x37b4…37c8              Head {h00=0x0010, h01=0x0050, text=»SNDFRM FRMT «, t00=0x0023, t01=0x0110}
0x37c8…37d4              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0023, t01=0x0124}
0x37d4…37f8              Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'DATATRANSMISSION '«, t00=0x0023, t01=0x0130}
0x37f8…3804              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0023, t01=0x0154}
0x3804…3820              Head {h00=0x0018, h01=0x0050, text=» FTEXT 'BRUGERNAVN' «, t00=0x0023, t01=0x0160}
0x3820…3842              Head {h00=0x001e, h01=0x0050, text=» FKI 12,MINL=1,MAXL=13,ME «, t00=0x0023, t01=0x017c}
0x3842…3870              Head {h00=0x002a, h01=0x0050, text=» FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT «, t00=0x0024, t01=0x000e}
0x3870…387c              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0024, t01=0x003c}
0x387c…3896              Head {h00=0x0016, h01=0x0050, text=» FTEXT 'KENDEORD' «, t00=0x0024, t01=0x0048}
0x3896…38b6              Head {h00=0x001c, h01=0x0050, text=» FKI 12,MINL=1,MAXL=4,ME«, t00=0x0024, t01=0x0062}
0x38b6…38d4              Head {h00=0x001a, h01=0x0050, text=» FMEL 'TTT9',TTARKSAV «, t00=0x0024, t01=0x0082}
0x38d4…38e2              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x00a0}
0x38e2…38ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ae}
0x38ec…3900              Head {h00=0x0010, h01=0x0050, text=»SIGONF FRMT «, t00=0x0024, t01=0x00b8}
0x3900…3914              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0024, t01=0x00cc}
0x3914…392e              Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'272020' «, t00=0x0024, t01=0x00e0}
0x392e…3948              Head {h00=0x0016, h01=0x0050, text=» FTEXT 'CSSN PS=' «, t00=0x0024, t01=0x00fa}
0x3948…3966              Head {h00=0x001a, h01=0x0050, text=» FMEL '9999',TTARKSAV «, t00=0x0024, t01=0x0114}
0x3966…397e              Head {h00=0x0014, h01=0x0050, text=» FTEXT ',NAME=' «, t00=0x0024, t01=0x0132}
0x397e…39ac              Head {h00=0x002a, h01=0x0050, text=» FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT «, t00=0x0024, t01=0x014a}
0x39ac…39ba              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x0178}
0x39ba…39c4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0186}
0x39c4…39d8              Head {h00=0x0010, h01=0x0050, text=»SNDFRM2 FRMT«, t00=0x0024, t01=0x0190}
0x39d8…39ec              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0025, t01=0x0014}
0x39ec…3a06              Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'272020' «, t00=0x0025, t01=0x0028}
0x3a06…3a1c              Head {h00=0x0012, h01=0x0050, text=» FCOPY CPCKBUF«, t00=0x0025, t01=0x0042}
0x3a1c…3a2a              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x0058}
0x3a2a…3a34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0066}
0x3a34…3a48              Head {h00=0x0010, h01=0x0050, text=»SNDFRM3 FRMT«, t00=0x0025, t01=0x0070}
0x3a48…3a5c              Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0025, t01=0x0084}
0x3a5c…3a80              Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'DATATRANSMISSION '«, t00=0x0025, t01=0x0098}
0x3a80…3a8e              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x00bc}
0x3a8e…3a98              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ca}
0x3a98…3aac              Head {h00=0x0010, h01=0x0050, text=»SNDFRM4 FRMT«, t00=0x0025, t01=0x00d4}
0x3aac…3ac0              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0025, t01=0x00e8}
0x3ac0…3ae0              Head {h00=0x001c, h01=0x0050, text=» FTEXT 'ANTAL RECORDS:' «, t00=0x0025, t01=0x00fc}
0x3ae0…3b00              Head {h00=0x001c, h01=0x0050, text=» FMEL 'ZZZZZ9',TTARKSAV «, t00=0x0025, t01=0x011c}
0x3b00…3b0e              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x013c}
0x3b0e…3b18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x014a}
0x3b18…3b2c              Head {h00=0x0010, h01=0x0050, text=»SNDFRM5 FRMT«, t00=0x0025, t01=0x0154}
0x3b2c…3b4a              Head {h00=0x001a, h01=0x0050, text=» FBNZ GSWBIN3,SNDLAB10«, t00=0x0025, t01=0x0168}
0x3b4a…3b5e              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0025, t01=0x0186}
0x3b5e…3b78              Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'272020' «, t00=0x0026, t01=0x000a}
0x3b78…3b88              Head {h00=0x000c, h01=0x0050, text=»SNDLAB10«, t00=0x0026, t01=0x0024}
0x3b88…3ba2              Head {h00=0x0016, h01=0x0050, text=» FCOPY =X'112020' «, t00=0x0026, t01=0x0034}
0x3ba2…3bb8              Head {h00=0x0012, h01=0x0050, text=» FCOPY CPCKBUF«, t00=0x0026, t01=0x004e}
0x3bb8…3bc6              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0064}
0x3bc6…3bd0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0072}
0x3bd0…3be4              Head {h00=0x0010, h01=0x0050, text=»SNDFRM6 FRMT«, t00=0x0026, t01=0x007c}
0x3be4…3bf0              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0026, t01=0x0090}
0x3bf0…3c14              Head {h00=0x0020, h01=0x0050, text=» FCOPY ='DATATRANSMISSION ' «, t00=0x0026, t01=0x009c}
0x3c14…3c28              Head {h00=0x0010, h01=0x0050, text=» FILLR '?',1«, t00=0x0026, t01=0x00c0}
0x3c28…3c34              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0026, t01=0x00d4}
0x3c34…3c42              Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0026, t01=0x00e0}
0x3c42…3c5c              Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x0026, t01=0x00ee}
0x3c5c…3c6a              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0108}
0x3c6a…3c74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0116}
0x3c74…3c88              Head {h00=0x0010, h01=0x0050, text=»WJDCFRM FRMT«, t00=0x0026, t01=0x0120}
0x3c88…3c9c              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0026, t01=0x0134}
0x3c9c…3cb2              Head {h00=0x0012, h01=0x0050, text=» FCOPY CPCKBUF«, t00=0x0026, t01=0x0148}
0x3cb2…3cc0              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x015e}
0x3cc0…3cca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x016c}
0x3cca…3cd6              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0026, t01=0x0176}
0x3cd6…3cda              Head {h00=0x4004, h01=0x0000}
0x3cda…3cde              00 26 01 82                                                                                                                                                                                                                                       ┆ &  ┆
0x3cde…3ce6 (39, 1, 8)   20 04 00 00 00 27 00 04                                                                                                                                                                                                                           ┆     '  ┆

Reduced view