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

⟦ab8e6427e⟧

    Length: 36716 (0x8f6c)
    Notes: pts_type(SC)
    Names: »DEMODD.SC«

Derivation

└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
    └─⟦this⟧ »DEMO6800/DEMODD.SC« 
    └─⟦this⟧ »HJFORMAT/DEMODD.SC« 
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
    └─⟦this⟧ »DEMO6800/DEMODD.SC« 

PTS(SC)

         IDENT    DEMODD                DATA DIVISION 
 DDIV 
************************************************************************
* *
*          DATA DIVISION FOR THE PTS 6000 DEMO PACKAGE*
**
************************************************************************
* *
*   KEY TO THE VARIABLE NAMES USED.*
**
*   THE FIRST TWO LETTERS OF A VARIABLE NAME INDICATE THE USE AND*
*   TYPE OF THE VARIABLE AS FOLLOWS:*
* *
*   FIRST LETTER:  VARIABLE USAGE; THE VARIABLE BELONGS TO THE*
*                  FOLLOWING GROUP OF VARIABLES.*
* *
*      Y:   SYSTEM RECORD*
*      R:   TERMINAL RECORD*
*      C:   CURRENCY RECORD*
*      O:   OPERATOR RECORD*
*      A:   ACCOUNT RECORD IN UWB UA1*
*      B:   ACCOUNT RECORD IN UWB UA2*
*      T:   TRANSACTION RECORD IN UWB UT1*
*      U:   TRANSACTION RECORD IN UWB UT2*
*      SP:  SCREEN MANAGEMENT VARIABLES (EXCEPTION, 2 LETTERS)*
*      F:   BUFFERS*
*      I:   INTERFACE BETWEEN FUNCTION MODULE, FORMATS AND*
*           SPAPXX-ROUTINES, MAY NOT BE USED BY OTHER ROUTINES*
*      K:   CONSTANTS*
*      N:   NUMERIC VARIABLES, POINTERS, COUNTERS, CALCULATION VAR.*
*      S:   SWITCHES*
*      V:   TEXT VARIABLES*
*      W:   WORKVARIABLES, MAY BE USED BY ALL ROUTINES*
* *
*   SECOND LETTER:  INDICATES THE TYPE OF THE VARIABLE.*
* *
*      B:   BOOLEAN*
*      C:   STRING*
*      D:   BINARY CODED DECIMAL (BCD)*
*      W:   BINARY*
* *
* *
*   FURTHERMORE THE FOLLOWING SHORTHANDS HAVE BEEN USED:*
*      (LENGTH =< 3)*
* *
*      ACT:  ACCOUNT                ADU:  AD85*
*      ALF:  ALPHANUMERIC           AVB:  AVAILABLE*
*      BAL:  BALANCE                BCK:  BACK*
*      BLK:  BLOCK                  BOK:  BOOK*
*      BUY:  BUY(ING)*
*      CCY:  CURRENCY               CDE:  CODE*
*      CFG:  CONFIGURATION          CHK:  CHECK*
*      CHQ:  CHEQUE                 CLS:  CLOSE*
*      CLR:  CLEAR                  CMN:  COMMON*
*      CNT:  CONTINUE               CPY:  COPY*
*      CRD:  CARD                   CUM:  ACCUMULATED*
*      CUR:  CURRENT*
*      DEL:  DELETE 
*      DEP:  DEPOSIT                DI:   INDICATOR DISPLAY*
*      DMO:  DEMONSTRATION          DS:   DATASET*
*      DSK:  DISK                   DY:   DISPLAY*
*      EA:   EXCLUSIVE ACCES        EXC:  EXCHANGE*
*      ERR:  ERROR*
*      FLE:  FILE                   FNC:  FUNCTION*
*      FMT:  FORMAT                 FRM:  FROM*
*      FRT:  FRONT                  FTB:  FORMATTABLE*
*      HRD:  HARD*
*      ID:   IDENTIFICATION         IND:  INDICATOR*
*      INP:  INPUT                  INQ:  INQUIRY *
*      INS:  INSERT                 IX:   INDEX*
*      JRN:  JOURNAL*
*      KB:   KEYBOARD               KTB:  KEYTABLE*
*      KY:   KEY*
*      LAS:  LAST                   LGG:  LANGUAGE*
*      LMT:  LIMIT                  LNE:  LINE*
*      LNG:  LENGTH                 LNS:  LINES*
*      LOG:  LOGICAL                LST:  LIST*
*      LT:   LAST TRANSACTION       LTS:  LAST TRANS. STATM.     *
*      NME:  NAME                   NR:   NUMBER*
*      NUM:  NUMERIC*
*      OFC:  OFFICE                 OPN:  OPEN*
*      OPR:  OPERATOR               OTP:  OUTPUT*
*      PDU:  PLASMA DISPLAY         PRS:  PRESENT*
*      PRT:  PRINT(ER)              PTR:  POINTER*
*      RD:   READ                   RDY:  READY*
*      REC:  RECORD                 RNR:  RECORD NUMBER*
*      RTE:  RATE                   RVS:  REVERSE(AL)*
*      RWR:  REWRITE*
*      SAV:  SAVE, SAVINGS ACCOUNT  SCR:  SCREEN*
*      SEL:  SELL(ING)              SEQ:  SEQUENCE*
*      SHR:  SHARE(D)               SP:   SCREEN MANAGEMENT*
*      SPC:  SPECIFY(ICATION)       STD:  STARTED*
*      STM:  STATEMENT              STT:  START*
*      SYS:  SYSTEM*
*      TAB:  TABLE                  TRF:  TRANSFER*
*      TRM:  TERMINAL               TRS:  TRANSACTION*
*      TST:  TEST                   TXT:  TEXT*
*      TYP:  TYPE*
*      UPD:  UPDATE*
*      VCH:  VOUCHER                VDU:  VIDEO*
*      VOL:  VOLUME*
*      WDR:  WITHDRAWAL             WR:   WRITE*
* *
************************************************************************
	TERM	A0
**********************************************************************
 CWB CW1
 CWB CSY
 TWB TRM
 TWB TSP
 UWB UBF
	UWB	UIF
 UWB UCY
 UWB UOP
 UWB UA1
 UWB UA2
 UWB UT1
 UWB UT2
 CWB CK1
 CWB CK2
	UWB	UQQ
SPDSSCRN DSET FC=50,DEV=DY,BUFL=82
SPDSDYKB DSET FC=20,DEV=KA
DSDI DSET FC=41,DEV=DI
SPDSPRT DSET FC=30,DEV=GP,BUFL=112
DSVCHPRT DSET FC=31,DEV=TV,BUFL=98,BUFDS=SPDSPRT
DS0DR DSET FC=70,DEV=OD,BUFL=43 
DSBCR DSET FC=22,DEV=BC 
DSDBS	DSET	FC=C0,DEV=DL 
DSFMTFLE DSET FC=CA,DEV=DL
DSLNEPRT	DSET	FC=80,DEV=LP,BUFL=110,BUFDS=SPDSPRT 
 FMTCTL INDS=SPDSDYKB,OUTDS=SPDSSCRN
 START AAMAIN 
 STACK 256
 EJECT
* 
CW1 BLK 
* 
VCVOLNR1	STRG	3	DBS-VOLNR 
VCVOLNR2	STRG	3	FMT-VOLNR 
NDLASTRM BCD 4D'100'	LAST TERMINAL NUMBER 
FCPARAM	STRG	102
FCPARAM1	STRG	66
* CHECK TABLE FOR FUNCTION-KEY COMBINATIONS (CDCHKY)
KDCHECKS	BCDI	(11,6),		C
		'1','1','1','1','1','2',	     1:EOI	C	
		'1','1','1','1','1','1',	     2:LIST	C	
		'1','0','1','1','3','1',	     3:OPEN	C	
		'1','1','1','1','0','1',	     4:CLOSE	C	
		'1','1','1','1','0','1',	     5:BLOCK	C	
		'2','1','1','1','0','1',	     6:UPDATE	C	
		'2','1','1','1','0','1',	     7:INQUIRY	C	
		'1','1','1','1','0','1',	     8:DAILY STATEMENTS (D-S)	C	
		'2','1','2','0','2','0',	     9:IN	C	
		'2','2','1','0','2','0',	    10:OUT	C	
		'1','1','1','0','0','1'	    11:TRANSFER		
* COLUMN CODING:*
*          COLUMN 1: CHECK CURRENCY OFF*
*              COLUMN 2: CHECK CHEQUE OFF*
*                  COLUMN 3: CHECK NOBOOK OFF*
*                      COLUMN 4: CHECK REVERSAL OFF*
*                          COLUMN 5: CHECK CARD OFF*
*                              COLUMN 6: CHECK INPUT-FIELD EMPTY*
* IF KDCHECKS(I,J) = 1*
*      THEN FOR FUNCTION I, CHECK J WILL BE PERFORMED*
* IF KDCHECKS(I,J) = 2
*      THEN FOR FUNCTION I, A SPECIFIC VERSION OF CHECK J 
*      WILL BE PERFORMED
************************************************************************
CSY	BLK				
**
************************************************************************
**
* SYSTEM RECORD*
**
************************************************************************
YDSYSRNR	BCD	12	RECORD NUMBER		
YDUMMY	BCD	6			
YDSTATUS BCD 2
*   0 = SYSTEM NOT STARTED*
*   1 = SYSTEM START OR CLOSE PROGRESSING 
*   2 = SYSTEM STARTED*
*   3 = SYSTEM CLOSED 
YCCCY	STRGI	(4)4	CURRENCIES		
YDSYSLGG	BCD	2	SYSTEM LANGUAGE		
YDMLPINT	BCD	2	LINE PRINTER INTEGRATED		
YCTEXT	STRG	25	DEMO TEXT		
YDLASSAV	BCD 	12	LAST SAVINGS ACCOUNT NUMBER		
YDLASCHQ	BCD	12	LAST CHEQUE ACCOUNT NUMBER		
YDLASCRD	BCD	6	LAST DUMMY CARD NUMBER		
YDLASSEQ	BCD	12	LAST TRANSACTION SEQUENCE NR.		
************************************************************************
* 
* TWB VARIABLES 
* 
************************************************************************
TRM	BLK				
**
SBKEY1	BOOL	TRUE			
SBKEY2	BOOL	FALSE			
SBCANCEL	BOOL	FALSE			
SB34KB	BOOL	FALSE	6231 OR 6234 TYPE KEYBOARD		
SBTRMBLK BOOL FALSE	TERMINAL BLOCKED
SBFT80	BOOL	FALSE 
SBMSU	BOOL	FALSE	MAGNETIC STRIPE UNIT 
NWUWBNR	BIN		UWB-NUMBER		
NDTRMLGG BCD 2	TERMINAL LANGUAGE
NDTRMNR	BCD	4	TERMINAL NUMBER 
************************************************************************
**
* TERMINAL RECORD*
**
************************************************************************
RDTRMRNR	BCD	12	RECORD NUMBER		
RDUMMY	BCD	6			
RCTRMNME	STRG	20	TERMINAL NAME		
RDSTATUS	BCD	2			
*   0 = TERMINAL NOT SPECIFIED*
*   1 = TERMINAL SPECIFIED*
*   2 = TERMINAL STARTED*
*   3 = OPERATOR LOGGED ON*
RDSCRLNS	BCD	4D'1'	NUMBER OF AVAILABLE LINES
RDALFKB	BCD	2D'0'	ALPHANUMERIC KEYBOARD 		
RDSHRPRT	BCD	2D'0'	SHARED PRINTER		
RDPRTTYP	BCD	2D'0'	PRINTER TYPE		
RDBCR	BCD	2D'0'	BADGE CARD READER		
RDODR	BCD	2D'0'	OPTICAL DOCUMENT READER		
RDOPRNR	BCD	6	OPERATOR NUMBER 
************************************************************************
* 
* SCREEN-MANAGEMENT VARAIBLES AND WORKVARIABLES 
* 
************************************************************************
TSP BLK 
* 
* SCREEN-MANAGEMENT VARIABLES 
SPPROMPT BOOL TRUE
SPCHANGE BOOL FALSE 
SPBINW1 BIN W'0'
SPBINW2 BIN W'0'
SPBINW3 BIN W'0'
SPBINW4 BIN W'0'
* WORKFIELDS, MAY BE USED BY ALL ROUTINES 
WW1 BIN 
WW2 BIN 
WWINDEX1 BIN
WWINDEX2 BIN
WWCOUNT BIN 
WDEC1	BCD	12
WDEC2	BCD	12
* MORE SCREEN-MANAGEMENT VARIABLES
SPINPUT STRG 32 
SPLSTLNE	BCD	4D'1'	LAST LINE ON THE SCREEN
************************************************************************
**
* MISCELANEOUS RESERVED VARIABLES AND I/O-BUFFERS 
**
************************************************************************
UBF BLK 
* 
SBUSEDWB BOOL FALSE	UWB USED
* RESERVED VARIABLES FOR XBFMT
NWTOTBYT	BIN		BYTES TO BE PROCESSED (XBFMT) 
NWPTR	BIN		MATCH POINTER (XBFMT)
* RESERVED VARIABLES FOR BESELF 
NWKTBIX	BIN		KEYTABLE INDEX (BESELF)
* SWITCHES USED BY BESELF 
SWCCY	BIN		CURRENCY SWITCH (BESELF) 
SBCHEQUE	BOOL	FALSE 
SBNOBOOK	BOOL	FALSE 
SBRVS	BOOL	FALSE	REVERSAL SWITCH (BESELF) 
SBCARD	BOOL	FALSE 
SBFLDEMP	BOOL	FALSE	INPUT FIELD EMPTY (BESELF)
SBOPRCLS	BOOL	FALSE	OPERATOR CLOSE (BESELF) 
* VARIABLES RESERVED FOR THE PRINT ROUTINES 
SBFIL24	BOOL	FALSE	)CONTROL POSITIONING OF
SBFIL20	BOOL	FALSE	) PRINT LINES ON 
SBVCH	BOOL	FALSE	) VOUCHER (PCVCH)
NDNEWLNE	BCD	4	NEXT FREE LINE (PRINT ROUT'S)
NDPRTTRS	BCD	12	NEXT TRS. FOR PRINT (PRT RT'S)
VCDOCPAR	STRG	22	TP71-DOCUMENT PARAMETER
SBFIL1	BOOL	FALSE	***************** 
SBFIL2	BOOL	FALSE	FILLERSIZE IN 
SBFIL3	BOOL	FALSE	TITLE LINE OF 
SBFIL4	BOOL	FALSE	TP71 DEMONSTATION 
SBFIL5	BOOL	FALSE	***************** 
* WORKFIELDS, MAY BE USED BY ALL ROUTINES 
WCSTRG6	STRG	6
WC1STRG8	STRG	8 
WC2STRG8	STRG	8 
WCSTRG12	STRG	12
WCSTRG25	STRG	25
************************************************************************
* 
* I/O-BUFFERS 
* 
************************************************************************
**
*   BUFFER USAGE:*
*   IN XBFMT 'FCFMTBUF' IS FIRST USED TO READ A FORMAT INTO THE *
*   BUFFER 'FCFORMAT'.*
*   IF THEN THE FORMAT MUST BE SPLIT INTO PARTS 'FCFMTBUF' IS USED*
*   AGAIN.*
*   SO WHEN IN SCREEN MANAGEMENT THESE TWO BUFFERS MAY NOT BE USED!!!*
*   'FCBUFFER' CAN BE USED TO READ RECORDS FROM THE DATABASE,*
*   TO READ ERRORS AND MESSAGES FROM THE FORMAT FILE OR TO*
*   READ PRINT FORMATS FROM THE FORMAT FILE.*
* *
FCBUFFER STRG 399	BUFFER FOR DATABASE AND MSG'S 
FCFMTBUF STRG 255	FORMAT BUFFER 
FCFORMAT STRG 800	FORMAT STORAGE
FCFIELD	STRG	10	INPUT-FIELD IN FUNCTION CHOISE
************************************************************************
UIF	BLK				
*   *
************************************************************************
**
* INTERFACES BETWEEN FUNCTION MODULE, FORMAT AND SPAPPL*
**
************************************************************************
SBSTTO	BOOL	FALSE	START OPERATOR		
SBOACT	BOOL	FALSE	OPEN ACCOUNT		
SBCACT	BOOL	FALSE	CLOSE ACCOUNT		
SBBACT	BOOL	FALSE	BLOCK ACCOUNT		
SBDACT	BOOL	FALSE	DEBLOCK ACCOUNT		
SBUACT	BOOL	FALSE	UPDATE ACCOUNT		
SBUCCY	BOOL	FALSE	UPDATE CURRENCY		
SBQACT	BOOL 	FALSE	INQUIRY ACCOUNT 		
SBDSTM	BOOL	FALSE	DAYLY STATEMENTS		
SBCOPR	BOOL	FALSE	OPERATOR CLOSE		
SBCSYS	BOOL	FALSE	SYSTEM CLOSE		
SBECCY	BOOL	FALSE	CURRENCY EXCHANGE		
SBQCCY	BOOL	FALSE	CURRENCY INQUIRY		
SBLACT	BOOL	FALSE	LIST ACCOUNTS		
SBWDR	BOOL	FALSE
IWINDEX1	BIN				
IDACTNR1	BCD	12			
IDACTNR2	BCD	12			
IDAMT1	BCD	12			
IDAMT2	BCD	20			
IDNR1	BCD	12			
IDNR2	BCD	12
IDNR3	BCD	12
IDNR4	BCD	12
ICSTRG1	STRG	1
ICTEXT1	STRG	6
ICTEXT2	STRG	25 
ICTEXT3	STRG	4
ICDUMMY	STRG	5			
************************************************************************
UCY BLK 
* 
************************************************************************
**
* CURRENCY RECORD*
**
************************************************************************
CDCCYRNR BCD 12	RECORD NUMBER 
CDUMMY BCD 6
CCCCYNME STRG 20	CURRENCY NAME
CCCCYCDE STRG 4	CURRENCY CODE 
CDBUY1 BCD 8	BUYING RATE 1
CDBUY2 BCD 8	BUYING RATE 2
CDSEL1 BCD 8	SELLING RATE 1 
CDSEL2 BCD 8	SELLING RATE 2 
CDLIMIT BCD 12	LIMIT OF RATE 1
CDRELAT BCD 6	RELATION
************************************************************************
UOP	BLK				
**
************************************************************************
**
* OPERATOR RECORD*
**
************************************************************************
ODOPRRNR	BCD	12	RECORD NUMBER		
ODUMMY	BCD	6			
OCPASS	STRG	6	PASSWORD		
OCNAME	STRG	18	OPERATOR NAME		
ODSTATUS	BCD	2			
*   0 = OPERATOR NOT IN USE*
*   1 = OPERATOR INITIALISED*
*   2 = OPERATOR LOGGED ON*
ODTRMNR	BCD	4	TERMINAL NUMBER		 
ODOPRLGG	BCD	2	LANGUAGE USED BY OPERATOR		
ODCASH	BCDI	(3,5)12	BALANCES AND ACCUMULATORS		
* USAGE AS FOLLOWS:*
*   1,1 : BALANCE CURRENCY 1*
*   1,2 : BALANCE CURRENCY 2*
*   1,3 : BALANCE CURRENCY 3*
*   1,4 : BALANCE CASH*
*   1,5 : UNUSED*
*   2,1 : ACCUMULATED CHEQUES*
*   2,2 : ACCUMULATED TRANSFERS*
*   2,3 : ACCUMULATED DEPOSITS *
*   2,4 : ACCUMULATED WITHDRAWALS*
*   2,5 : UNUSED*
*   3,1 : ACCUMULATED CURRENCY 1 - BOUGHT AND SOLD*
*   3,2 : ACCUMULATED CURRENCY 2 - BOUGHT AND SOLD*
*   3,3 : ACCUMULATED CURRENCY 3 - BOUGHT AND SOLD*
*   3,4 : ACCUMULATED CURRENCY SOLD - LOCAL VALUE *
*   3,5 : ACCUMULATED CURRENCY BOUGHT - LOCAL VALUE *
************************************************************************
UA1 BLK					
**
SBCHQACT	BOOL	FALSE	IS ACCOUNT A CHEQUE ACC 
************************************************************************
**
* ACCOUNT RECORD 1*
**
************************************************************************
ADACTRNR	BCD	12	RECORD NUMBER		
ADCARDNR	BCD	6	CARD NUMBER		
ACNAME	STRG  	20			
ACADDRES	STRG	20			
ACTOWN	STRG	20			
ACPASS	STRG	6	PASSWORD		
ADSTATUS	BCD	2			
*   0 = DEBLOCKED*
*   1 = BLOCKED*
*   2 = CLOSED WITHOUT STATEMENT*
*   3 = CLOSED WITH STATEMENT*
ADBAL	BCD	12 	BALANCE		
ADLIMBOK	BCD	12	CREDIT LIMIT/BOOK BALANCE		
ADLASTRS	BCD	12	LAST TRANSACTION		
ADSTMTRS	BCD	12	LAST TRANSACTION STATEMENTED		
ADLNENR	BCD	4	LAST USED LINE IN BOOK
ADDEPCUM	BCD	12	ACCUMULATED DEPOSITS		
ADWDRCUM	BCD	12	ACCUMULATED WITHDRAWALS		
ADLASSEQ	BCD	12	LAST TRANSACTION SEQUENCE NR. 
ACRECNR	STRG	3	INDEX 2 FOR DATABASE 
************************************************************************
UA2 BLK					
**
************************************************************************
**
* ACCOUNT RECORD 2*
**
************************************************************************
BDACTRNR	BCD	12	RECORD NUMBER		
BDCARDNR	BCD	6	CARD NUMBER		
BCNAME	STRG  	20			
BCADDRES	STRG	20			
BCTOWN	STRG	20			
BCPASS	STRG	6	PASSWORD		
BDSTATUS	BCD	2			
*   0 = DEBLOCKED*
*   1 = BLOCKED*
*   2 = CLOSED WITHOUT STATEMENT*
*   3 = CLOSED WITH STATEMENT*
BDBAL	BCD	12 	BALANCE		
BDLIMBOK	BCD	12	CREDIT LIMIT/BOOK BALANCE		
BDLASTRS	BCD	12	LAST TRANSACTION		
BDSTMTRS	BCD	12	LAST TRANSACTION STATEMENTED		
BDLNENR	BCD	4	FIRST FREE LINE IN BOOK		
BDDEPCUM	BCD	12	ACCUMULATED DEPOSITS		
BDWDRCUM	BCD	12	ACCUMULATED WITHDRAWALS		
BDLASSEQ	BCD	12	LAST TRANSACTION SEQUENCE NR. 
************************************************************************
UT1	BLK				
**
************************************************************************
**
* TRANSACTION RECORD 1*
**
************************************************************************
TDTRSRNR	BCD	12	RECORD NUMBER		
TDUMMY	BCD	6			
TDTRSCDE	BCD	4	TRANSACTION CODE		
TDDATE	BCD	8	TRANSACTION DATE		
TDTRMNR	BCD	12	TERMINAL NUMBER OF ISSUE		
TDOPRNR	BCD	12	OPERATOR NUMBER		
TDTRSSEQ	BCD	12	SEQUENCE NUMBER		
TDAMOUNT	BCD 	12			
TDNEWBAL	BCD	12	NEW BALANCE		
TDACTFRM	BCD	12	ACCOUNT FROM    		
TDCHQNR	BCD	8	CHEQUE NUMBER		
TCTEXT	STRG	20			
************************************************************************
UT2	BLK				
**
************************************************************************
**
* TRANSACTION RECORD 2*
**
************************************************************************
UDTRSRNR	BCD	12	RECORD NUMBER		
UDUMMY	BCD	6			
UDTRSCDE	BCD	4	TRANSACTION CODE		
UDDATE	BCD	8	TRANSACTION DATE		
UDTRMNR	BCD	12	TERMINAL NUMBER OF ISSUE		
UDOPRNR	BCD	12	OPERATOR NUMBER		
UDTRSSEQ	BCD	12	SEQUENCE NUMBER		
UDAMOUNT	BCD 	12			
UDNEWBAL	BCD	12	NEW BALANCE		
UDACTFRM	BCD	12	ACCOUNT FROM    		
UDCHQNR	BCD	8	CHEQUE NUMBER		
UCTEXT	STRG	20			
************************************************************************
* 
* COMMON WORK-BLOCK CONTAINING CONSTANTS
* 
************************************************************************
CK1 BLK 
* 
KW0 BIN W'0'
KW1 BIN W'1'
KW2 BIN W'2'
KW3 BIN W'3'
KW4 BIN W'4'
KW5	BIN	W'5'
KW6	BIN	W'6'
KWFMTLNG	BIN	W'255'	FORMATRECORD LENGTH 
KWNRFMT	BIN	W'100'	NUMBER OF FORMATS
KD1	BCD	2D'1' 
KDMAXLGG	BCD	2D'4'	NUMBER OF LANGUAGES
KDSHIFT BCD D'100'	SHIFT TO GET RECORD NUMBER 
NDDATE BCD 8
NDTIME BCD 8
VCTIME STRG 6 
************************************************************************
* 
* COMMON WORK-BLOCK CONTAINING CONSTANTS
* 
************************************************************************
CK2 BLK 
* 
* INDICES IN THE FUNCTION KEYTABLE 'FNCKTB' 
KWSTART BIN W'3'
KWEND	BIN	W'4'
KWEOI	BIN	W'1'
KWCONT	BIN	W'20'
KWCANCEL	BIN	W'19'
KWCLEAR	BIN	W'21' 
* LENGTH OF THE FUNCTION KEYTABLE 'FNCKTB'
KWAPLKTB BIN W'22'	LENGTH OF FUNCTION KEYTABLE
* INDICES IN THE SCREEN-MANAGEMENT KEYTABLES
KWSPEOI BIN W'3'
KWSPCANC BIN W'4' 
KWSPCONT BIN W'17'
KWSPCLR	BIN	W'1'
* LENGTHS OF THE SCREEN-MANAGEMENT KEYTABLES
KWSPKTB BIN W'21'	LENGTH OF SPKTAB1/2 
KWSPKTB3 BIN W'12'	LENGTH OF SPKTAB3
* 6371 PRINTER PARAMETERS FOR DEMO TP71 
KCPRTPAR	STRGI	(21),		C 
		4X'9066',4X'9266',4X'9366',4X'9466',4X'9566',		C
		4X'9666',4X'9766',4X'9966',4X'9866',4X'8066',		C
		4X'9166',4X'8066',4X'8055',4X'8044',4X'8044',		C
		4X'9044',4X'9055',4X'9055',4X'9066',4X'9044',		C
		4X'9A66'
************************************************************************
* 
* MISCELANEOUS RESERVED VARIABLES 
* 
************************************************************************
UQQ	BLK 
* 
* VARIABLES RESERVED FOR SPAPPL 
NWRETCDE	BIN	W'0'	RETURN CODE (SPAPPL)
* SWITCHES USED BY XAKBIN 
SBNOWAIT	BOOL	FALSE	NOWAIT OPTION (XAKBIN)
* SWITCHES USED BY DPECCY 
SBEOI	BOOL	FALSE	AMT. QUOTED IN SY.CCY (DPECCY) 
SBCCYIN	BOOL	FALSE	CURRENCY BUYING (DPECCY) 
SBCCYKTB	BOOL	FALSE	USE CCY KEYTABLE (DPECCY) 
* SWITCHES USED BY DKDSTM 
SBFIRST	BOOL	FALSE	DISPLAY TRANS. DATE (DKDSTM) 
SBDSDEP	BOOL	FALSE	TRANS. IS A DEPOSIT (DKDSTM) 
SBDSWDR	BOOL	FALSE	TRANS. IS A WITHDRAW. (DKDSTM) 
SBDSRVS	BOOL	FALSE	TRANS. IS A REVERSAL (DKDSTM)
SBDSTRF	BOOL	FALSE	TRANS. IS A TRANSFER (DKDSTM)
* VARIABLES USED BY ZDSCIO
NWXSTAT	BIN		EXTENDED STATUS CODE 
NWRECLNG	BIN		RECORD LENGTH (ZDSCIO)
NDLRN1	BCD	12	LOGICAL RECORD NUMBER (ZDSCIO)
NDLRN2	BCD	12	LOGICAL RECORD NUMBER (ZDSCIO)
NDLRN3	BCD	12	LOGICAL REC.NR. (ZDSCIO)
SBNOCOPY	BOOL	FALSE	COPY NOT FROM/TO UWB (ZDSCIO) 
SBRECAVB	BOOL	FALSE	REC.AVAIL. AFTER READ (ZDSCIO)
************************************************************************
 PDIV 
* 
* 
 END

HexDump

0x0000…003e (0, 0, 400)  Head {h00=0x003a, h01=0x0050, text=»         IDENT    DEMODD                DATA DIVISION «, t00=0x0000, t01=0x0004}
0x003e…004c              Head {h00=0x000a, h01=0x0005, text=» DDIV «, t00=0x0000, t01=0x0042}
0x004c…009c              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0050}
0x009c…00ec              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0000, t01=0x00a0}
0x00ec…013c              Head {h00=0x004c, h01=0x0050, text=»*          DATA DIVISION FOR THE PTS 6000 DEMO PACKAGE                 *«, t00=0x0000, t01=0x00f0}
0x013c…018c              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0000, t01=0x0140}
0x018c…01dc              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0190}
0x01dc…022c              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0001, t01=0x0050}
0x022c…027c              Head {h00=0x004c, h01=0x0050, text=»*   KEY TO THE VARIABLE NAMES USED.                                    *«, t00=0x0001, t01=0x00a0}
0x027c…02cc              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0001, t01=0x00f0}
0x02cc…031c              Head {h00=0x004c, h01=0x0050, text=»*   THE FIRST TWO LETTERS OF A VARIABLE NAME INDICATE THE USE AND      *«, t00=0x0001, t01=0x0140}
0x031c…036c              Head {h00=0x004c, h01=0x0050, text=»*   TYPE OF THE VARIABLE AS FOLLOWS:                                   *«, t00=0x0001, t01=0x0190}
0x036c…03bc              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0002, t01=0x0050}
0x03bc…040c              Head {h00=0x004c, h01=0x0050, text=»*   FIRST LETTER:  VARIABLE USAGE; THE VARIABLE BELONGS TO THE         *«, t00=0x0002, t01=0x00a0}
0x040c…045c              Head {h00=0x004c, h01=0x0050, text=»*                  FOLLOWING GROUP OF VARIABLES.                       *«, t00=0x0002, t01=0x00f0}
0x045c…04ac              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0002, t01=0x0140}
0x04ac…04fc              Head {h00=0x004c, h01=0x0050, text=»*      Y:   SYSTEM RECORD                                              *«, t00=0x0002, t01=0x0190}
0x04fc…054c              Head {h00=0x004c, h01=0x0050, text=»*      R:   TERMINAL RECORD                                            *«, t00=0x0003, t01=0x0050}
0x054c…059c              Head {h00=0x004c, h01=0x0050, text=»*      C:   CURRENCY RECORD                                            *«, t00=0x0003, t01=0x00a0}
0x059c…05ec              Head {h00=0x004c, h01=0x0050, text=»*      O:   OPERATOR RECORD                                            *«, t00=0x0003, t01=0x00f0}
0x05ec…063c              Head {h00=0x004c, h01=0x0050, text=»*      A:   ACCOUNT RECORD IN UWB UA1                                  *«, t00=0x0003, t01=0x0140}
0x063c…068c              Head {h00=0x004c, h01=0x0050, text=»*      B:   ACCOUNT RECORD IN UWB UA2                                  *«, t00=0x0003, t01=0x0190}
0x068c…06dc              Head {h00=0x004c, h01=0x0050, text=»*      T:   TRANSACTION RECORD IN UWB UT1                              *«, t00=0x0004, t01=0x0050}
0x06dc…072c              Head {h00=0x004c, h01=0x0050, text=»*      U:   TRANSACTION RECORD IN UWB UT2                              *«, t00=0x0004, t01=0x00a0}
0x072c…077c              Head {h00=0x004c, h01=0x0050, text=»*      SP:  SCREEN MANAGEMENT VARIABLES (EXCEPTION, 2 LETTERS)         *«, t00=0x0004, t01=0x00f0}
0x077c…07cc              Head {h00=0x004c, h01=0x0050, text=»*      F:   BUFFERS                                                    *«, t00=0x0004, t01=0x0140}
0x07cc…081c              Head {h00=0x004c, h01=0x0050, text=»*      I:   INTERFACE BETWEEN FUNCTION MODULE, FORMATS AND             *«, t00=0x0004, t01=0x0190}
0x081c…086c              Head {h00=0x004c, h01=0x0050, text=»*           SPAPXX-ROUTINES, MAY NOT BE USED BY OTHER ROUTINES         *«, t00=0x0005, t01=0x0050}
0x086c…08bc              Head {h00=0x004c, h01=0x0050, text=»*      K:   CONSTANTS                                                  *«, t00=0x0005, t01=0x00a0}
0x08bc…090c              Head {h00=0x004c, h01=0x0050, text=»*      N:   NUMERIC VARIABLES, POINTERS, COUNTERS, CALCULATION VAR.    *«, t00=0x0005, t01=0x00f0}
0x090c…095c              Head {h00=0x004c, h01=0x0050, text=»*      S:   SWITCHES                                                   *«, t00=0x0005, t01=0x0140}
0x095c…09ac              Head {h00=0x004c, h01=0x0050, text=»*      V:   TEXT VARIABLES                                             *«, t00=0x0005, t01=0x0190}
0x09ac…09fc              Head {h00=0x004c, h01=0x0050, text=»*      W:   WORKVARIABLES, MAY BE USED BY ALL ROUTINES                 *«, t00=0x0006, t01=0x0050}
0x09fc…0a4c              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0006, t01=0x00a0}
0x0a4c…0a9c              Head {h00=0x004c, h01=0x0050, text=»*   SECOND LETTER:  INDICATES THE TYPE OF THE VARIABLE.                *«, t00=0x0006, t01=0x00f0}
0x0a9c…0aec              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0006, t01=0x0140}
0x0aec…0b3c              Head {h00=0x004c, h01=0x0050, text=»*      B:   BOOLEAN                                                    *«, t00=0x0006, t01=0x0190}
0x0b3c…0b8c              Head {h00=0x004c, h01=0x0050, text=»*      C:   STRING                                                     *«, t00=0x0007, t01=0x0050}
0x0b8c…0bdc              Head {h00=0x004c, h01=0x0050, text=»*      D:   BINARY CODED DECIMAL (BCD)                                 *«, t00=0x0007, t01=0x00a0}
0x0bdc…0c2c              Head {h00=0x004c, h01=0x0050, text=»*      W:   BINARY                                                     *«, t00=0x0007, t01=0x00f0}
0x0c2c…0c7c              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0007, t01=0x0140}
0x0c7c…0ccc              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0007, t01=0x0190}
0x0ccc…0d1c              Head {h00=0x004c, h01=0x0050, text=»*   FURTHERMORE THE FOLLOWING SHORTHANDS HAVE BEEN USED:               *«, t00=0x0008, t01=0x0050}
0x0d1c…0d6c              Head {h00=0x004c, h01=0x0050, text=»*      (LENGTH =< 3)                                                   *«, t00=0x0008, t01=0x00a0}
0x0d6c…0dbc              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0008, t01=0x00f0}
0x0dbc…0e0c              Head {h00=0x004c, h01=0x0050, text=»*      ACT:  ACCOUNT                ADU:  AD85                         *«, t00=0x0008, t01=0x0140}
0x0e0c…0e5c              Head {h00=0x004c, h01=0x0050, text=»*      ALF:  ALPHANUMERIC           AVB:  AVAILABLE                    *«, t00=0x0008, t01=0x0190}
0x0e5c…0eac              Head {h00=0x004c, h01=0x0050, text=»*      BAL:  BALANCE                BCK:  BACK                         *«, t00=0x0009, t01=0x0050}
0x0eac…0efc              Head {h00=0x004c, h01=0x0050, text=»*      BLK:  BLOCK                  BOK:  BOOK                         *«, t00=0x0009, t01=0x00a0}
0x0efc…0f4c              Head {h00=0x004c, h01=0x0050, text=»*      BUY:  BUY(ING)                                                  *«, t00=0x0009, t01=0x00f0}
0x0f4c…0f9c              Head {h00=0x004c, h01=0x0050, text=»*      CCY:  CURRENCY               CDE:  CODE                         *«, t00=0x0009, t01=0x0140}
0x0f9c…0fec              Head {h00=0x004c, h01=0x0050, text=»*      CFG:  CONFIGURATION          CHK:  CHECK                        *«, t00=0x0009, t01=0x0190}
0x0fec…103c              Head {h00=0x004c, h01=0x0050, text=»*      CHQ:  CHEQUE                 CLS:  CLOSE                        *«, t00=0x000a, t01=0x0050}
0x103c…108c              Head {h00=0x004c, h01=0x0050, text=»*      CLR:  CLEAR                  CMN:  COMMON                       *«, t00=0x000a, t01=0x00a0}
0x108c…10dc              Head {h00=0x004c, h01=0x0050, text=»*      CNT:  CONTINUE               CPY:  COPY                         *«, t00=0x000a, t01=0x00f0}
0x10dc…112c              Head {h00=0x004c, h01=0x0050, text=»*      CRD:  CARD                   CUM:  ACCUMULATED                  *«, t00=0x000a, t01=0x0140}
0x112c…117c              Head {h00=0x004c, h01=0x0050, text=»*      CUR:  CURRENT                                                   *«, t00=0x000a, t01=0x0190}
0x117c…1198              Head {h00=0x0018, h01=0x0050, text=»*      DEL:  DELETE «, t00=0x000b, t01=0x0050}
0x1198…11e8              Head {h00=0x004c, h01=0x0050, text=»*      DEP:  DEPOSIT                DI:   INDICATOR DISPLAY            *«, t00=0x000b, t01=0x006c}
0x11e8…1238              Head {h00=0x004c, h01=0x0050, text=»*      DMO:  DEMONSTRATION          DS:   DATASET                      *«, t00=0x000b, t01=0x00bc}
0x1238…1288              Head {h00=0x004c, h01=0x0050, text=»*      DSK:  DISK                   DY:   DISPLAY                      *«, t00=0x000b, t01=0x010c}
0x1288…12d8              Head {h00=0x004c, h01=0x0050, text=»*      EA:   EXCLUSIVE ACCES        EXC:  EXCHANGE                     *«, t00=0x000b, t01=0x015c}
0x12d8…1328              Head {h00=0x004c, h01=0x0050, text=»*      ERR:  ERROR                                                     *«, t00=0x000c, t01=0x001c}
0x1328…1378              Head {h00=0x004c, h01=0x0050, text=»*      FLE:  FILE                   FNC:  FUNCTION                     *«, t00=0x000c, t01=0x006c}
0x1378…13c8              Head {h00=0x004c, h01=0x0050, text=»*      FMT:  FORMAT                 FRM:  FROM                         *«, t00=0x000c, t01=0x00bc}
0x13c8…1418              Head {h00=0x004c, h01=0x0050, text=»*      FRT:  FRONT                  FTB:  FORMATTABLE                  *«, t00=0x000c, t01=0x010c}
0x1418…1468              Head {h00=0x004c, h01=0x0050, text=»*      HRD:  HARD                                                      *«, t00=0x000c, t01=0x015c}
0x1468…14b8              Head {h00=0x004c, h01=0x0050, text=»*      ID:   IDENTIFICATION         IND:  INDICATOR                    *«, t00=0x000d, t01=0x001c}
0x14b8…1508              Head {h00=0x004c, h01=0x0050, text=»*      INP:  INPUT                  INQ:  INQUIRY                      *«, t00=0x000d, t01=0x006c}
0x1508…1558              Head {h00=0x004c, h01=0x0050, text=»*      INS:  INSERT                 IX:   INDEX                        *«, t00=0x000d, t01=0x00bc}
0x1558…15a8              Head {h00=0x004c, h01=0x0050, text=»*      JRN:  JOURNAL                                                   *«, t00=0x000d, t01=0x010c}
0x15a8…15f8              Head {h00=0x004c, h01=0x0050, text=»*      KB:   KEYBOARD               KTB:  KEYTABLE                     *«, t00=0x000d, t01=0x015c}
0x15f8…1648              Head {h00=0x004c, h01=0x0050, text=»*      KY:   KEY                                                       *«, t00=0x000e, t01=0x001c}
0x1648…1698              Head {h00=0x004c, h01=0x0050, text=»*      LAS:  LAST                   LGG:  LANGUAGE                     *«, t00=0x000e, t01=0x006c}
0x1698…16e8              Head {h00=0x004c, h01=0x0050, text=»*      LMT:  LIMIT                  LNE:  LINE                         *«, t00=0x000e, t01=0x00bc}
0x16e8…1738              Head {h00=0x004c, h01=0x0050, text=»*      LNG:  LENGTH                 LNS:  LINES                        *«, t00=0x000e, t01=0x010c}
0x1738…1788              Head {h00=0x004c, h01=0x0050, text=»*      LOG:  LOGICAL                LST:  LIST                         *«, t00=0x000e, t01=0x015c}
0x1788…17d8              Head {h00=0x004c, h01=0x0050, text=»*      LT:   LAST TRANSACTION       LTS:  LAST TRANS. STATM.           *«, t00=0x000f, t01=0x001c}
0x17d8…1828              Head {h00=0x004c, h01=0x0050, text=»*      NME:  NAME                   NR:   NUMBER                       *«, t00=0x000f, t01=0x006c}
0x1828…1878              Head {h00=0x004c, h01=0x0050, text=»*      NUM:  NUMERIC                                                   *«, t00=0x000f, t01=0x00bc}
0x1878…18c8              Head {h00=0x004c, h01=0x0050, text=»*      OFC:  OFFICE                 OPN:  OPEN                         *«, t00=0x000f, t01=0x010c}
0x18c8…1918              Head {h00=0x004c, h01=0x0050, text=»*      OPR:  OPERATOR               OTP:  OUTPUT                       *«, t00=0x000f, t01=0x015c}
0x1918…1968              Head {h00=0x004c, h01=0x0050, text=»*      PDU:  PLASMA DISPLAY         PRS:  PRESENT                      *«, t00=0x0010, t01=0x001c}
0x1968…19b8              Head {h00=0x004c, h01=0x0050, text=»*      PRT:  PRINT(ER)              PTR:  POINTER                      *«, t00=0x0010, t01=0x006c}
0x19b8…1a08              Head {h00=0x004c, h01=0x0050, text=»*      RD:   READ                   RDY:  READY                        *«, t00=0x0010, t01=0x00bc}
0x1a08…1a58              Head {h00=0x004c, h01=0x0050, text=»*      REC:  RECORD                 RNR:  RECORD NUMBER                *«, t00=0x0010, t01=0x010c}
0x1a58…1aa8              Head {h00=0x004c, h01=0x0050, text=»*      RTE:  RATE                   RVS:  REVERSE(AL)                  *«, t00=0x0010, t01=0x015c}
0x1aa8…1af8              Head {h00=0x004c, h01=0x0050, text=»*      RWR:  REWRITE                                                   *«, t00=0x0011, t01=0x001c}
0x1af8…1b48              Head {h00=0x004c, h01=0x0050, text=»*      SAV:  SAVE, SAVINGS ACCOUNT  SCR:  SCREEN                       *«, t00=0x0011, t01=0x006c}
0x1b48…1b98              Head {h00=0x004c, h01=0x0050, text=»*      SEL:  SELL(ING)              SEQ:  SEQUENCE                     *«, t00=0x0011, t01=0x00bc}
0x1b98…1be8              Head {h00=0x004c, h01=0x0050, text=»*      SHR:  SHARE(D)               SP:   SCREEN MANAGEMENT            *«, t00=0x0011, t01=0x010c}
0x1be8…1c38              Head {h00=0x004c, h01=0x0050, text=»*      SPC:  SPECIFY(ICATION)       STD:  STARTED                      *«, t00=0x0011, t01=0x015c}
0x1c38…1c88              Head {h00=0x004c, h01=0x0050, text=»*      STM:  STATEMENT              STT:  START                        *«, t00=0x0012, t01=0x001c}
0x1c88…1cd8              Head {h00=0x004c, h01=0x0050, text=»*      SYS:  SYSTEM                                                    *«, t00=0x0012, t01=0x006c}
0x1cd8…1d28              Head {h00=0x004c, h01=0x0050, text=»*      TAB:  TABLE                  TRF:  TRANSFER                     *«, t00=0x0012, t01=0x00bc}
0x1d28…1d78              Head {h00=0x004c, h01=0x0050, text=»*      TRM:  TERMINAL               TRS:  TRANSACTION                  *«, t00=0x0012, t01=0x010c}
0x1d78…1dc8              Head {h00=0x004c, h01=0x0050, text=»*      TST:  TEST                   TXT:  TEXT                         *«, t00=0x0012, t01=0x015c}
0x1dc8…1e18              Head {h00=0x004c, h01=0x0050, text=»*      TYP:  TYPE                                                      *«, t00=0x0013, t01=0x001c}
0x1e18…1e68              Head {h00=0x004c, h01=0x0050, text=»*      UPD:  UPDATE                                                    *«, t00=0x0013, t01=0x006c}
0x1e68…1eb8              Head {h00=0x004c, h01=0x0050, text=»*      VCH:  VOUCHER                VDU:  VIDEO                        *«, t00=0x0013, t01=0x00bc}
0x1eb8…1f08              Head {h00=0x004c, h01=0x0050, text=»*      VOL:  VOLUME                                                    *«, t00=0x0013, t01=0x010c}
0x1f08…1f58              Head {h00=0x004c, h01=0x0050, text=»*      WDR:  WITHDRAWAL             WR:   WRITE                        *«, t00=0x0013, t01=0x015c}
0x1f58…1fa8              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0014, t01=0x001c}
0x1fa8…1ff8              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0014, t01=0x006c}
0x1ff8…2008              Head {h00=0x000c, h01=0x0050, text=» TERM A0«, t00=0x0014, t01=0x00bc}
0x2008…2056              Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0014, t01=0x00cc}
0x2056…2066              Head {h00=0x000c, h01=0x0008, text=» CWB CW1«, t00=0x0014, t01=0x011a}
0x2066…2076              Head {h00=0x000c, h01=0x0050, text=» CWB CSY«, t00=0x0014, t01=0x012a}
0x2076…2086              Head {h00=0x000c, h01=0x0050, text=» TWB TRM«, t00=0x0014, t01=0x013a}
0x2086…2096              Head {h00=0x000c, h01=0x0050, text=» TWB TSP«, t00=0x0014, t01=0x014a}
0x2096…20a6              Head {h00=0x000c, h01=0x0050, text=» UWB UBF«, t00=0x0014, t01=0x015a}
0x20a6…20b6              Head {h00=0x000c, h01=0x0050, text=» UWB UIF«, t00=0x0014, t01=0x016a}
0x20b6…20c6              Head {h00=0x000c, h01=0x0050, text=» UWB UCY«, t00=0x0014, t01=0x017a}
0x20c6…20d6              Head {h00=0x000c, h01=0x0050, text=» UWB UOP«, t00=0x0014, t01=0x018a}
0x20d6…20e6              Head {h00=0x000c, h01=0x0050, text=» UWB UA1«, t00=0x0015, t01=0x000a}
0x20e6…20f6              Head {h00=0x000c, h01=0x0050, text=» UWB UA2«, t00=0x0015, t01=0x001a}
0x20f6…2106              Head {h00=0x000c, h01=0x0050, text=» UWB UT1«, t00=0x0015, t01=0x002a}
0x2106…2116              Head {h00=0x000c, h01=0x0050, text=» UWB UT2«, t00=0x0015, t01=0x003a}
0x2116…2126              Head {h00=0x000c, h01=0x0050, text=» CWB CK1«, t00=0x0015, t01=0x004a}
0x2126…2136              Head {h00=0x000c, h01=0x0050, text=» CWB CK2«, t00=0x0015, t01=0x005a}
0x2136…2146              Head {h00=0x000c, h01=0x0050, text=» UWB UQQ«, t00=0x0015, t01=0x006a}
0x2146…2170              Head {h00=0x0026, h01=0x0050, text=»SPDSSCRN DSET FC=50,DEV=DY,BUFL=82«, t00=0x0015, t01=0x007a}
0x2170…2192              Head {h00=0x001e, h01=0x0050, text=»SPDSDYKB DSET FC=20,DEV=KA«, t00=0x0015, t01=0x00a4}
0x2192…21b0              Head {h00=0x001a, h01=0x0050, text=»DSDI DSET FC=41,DEV=DI«, t00=0x0015, t01=0x00c6}
0x21b0…21da              Head {h00=0x0026, h01=0x0050, text=»SPDSPRT DSET FC=30,DEV=GP,BUFL=112«, t00=0x0015, t01=0x00e4}
0x21da…2212              Head {h00=0x0034, h01=0x0050, text=»DSVCHPRT DSET FC=31,DEV=TV,BUFL=98,BUFDS=SPDSPRT«, t00=0x0015, t01=0x010e}
0x2212…223a              Head {h00=0x0024, h01=0x0050, text=»DS0DR DSET FC=70,DEV=OD,BUFL=43 «, t00=0x0015, t01=0x0146}
0x223a…225a              Head {h00=0x001c, h01=0x0050, text=»DSBCR DSET FC=22,DEV=BC «, t00=0x0015, t01=0x016e}
0x225a…227a              Head {h00=0x001c, h01=0x0050, text=»DSDBS DSET FC=C0,DEV=DL «, t00=0x0015, t01=0x018e}
0x227a…229c              Head {h00=0x001e, h01=0x0050, text=»DSFMTFLE DSET FC=CA,DEV=DL«, t00=0x0016, t01=0x001e}
0x229c…22d6              Head {h00=0x0036, h01=0x0050, text=»DSLNEPRT DSET FC=80,DEV=LP,BUFL=110,BUFDS=SPDSPRT «, t00=0x0016, t01=0x0040}
0x22d6…2302              Head {h00=0x0028, h01=0x0024, text=» FMTCTL INDS=SPDSDYKB,OUTDS=SPDSSCRN«, t00=0x0016, t01=0x007a}
0x2302…2318              Head {h00=0x0012, h01=0x0050, text=» START AAMAIN «, t00=0x0016, t01=0x00a6}
0x2318…232a              Head {h00=0x000e, h01=0x0050, text=» STACK 256«, t00=0x0016, t01=0x00bc}
0x232a…2338              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00ce}
0x2338…2342              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00dc}
0x2342…2352              Head {h00=0x000c, h01=0x0050, text=»CW1 BLK «, t00=0x0016, t01=0x00e6}
0x2352…235c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f6}
0x235c…237e              Head {h00=0x001e, h01=0x0050, text=»VCVOLNR1 STRG 3 DBS-VOLNR «, t00=0x0016, t01=0x0100}
0x237e…23a0              Head {h00=0x001e, h01=0x0050, text=»VCVOLNR2 STRG 3 FMT-VOLNR «, t00=0x0016, t01=0x0122}
0x23a0…23d2              Head {h00=0x002e, h01=0x0050, text=»NDLASTRM BCD 4D'100' LAST TERMINAL NUMBER «, t00=0x0016, t01=0x0144}
0x23d2…23ea              Head {h00=0x0014, h01=0x0050, text=»FCPARAM STRG 102«, t00=0x0016, t01=0x0176}
0x23ea…2402              Head {h00=0x0014, h01=0x0050, text=»FCPARAM1 STRG 66«, t00=0x0016, t01=0x018e}
0x2402…243e              Head {h00=0x0038, h01=0x0050, text=»* CHECK TABLE FOR FUNCTION-KEY COMBINATIONS (CDCHKY)«, t00=0x0017, t01=0x0016}
0x243e…245e              Head {h00=0x001c, h01=0x0050, text=»KDCHECKS BCDI (11,6),  C«, t00=0x0017, t01=0x0052}
0x245e…24ae              Head {h00=0x004c, h01=0x0050, text=»  '1','1','1','1','1','2',      1:EOI C                                 «, t00=0x0017, t01=0x0072}
0x24ae…24fe              Head {h00=0x004c, h01=0x0050, text=»  '1','1','1','1','1','1',      2:LIST C                                «, t00=0x0017, t01=0x00c2}
0x24fe…254e              Head {h00=0x004c, h01=0x0050, text=»  '1','0','1','1','3','1',      3:OPEN C                                «, t00=0x0017, t01=0x0112}
0x254e…259e              Head {h00=0x004c, h01=0x0050, text=»  '1','1','1','1','0','1',      4:CLOSE C                               «, t00=0x0017, t01=0x0162}
0x259e…25ee              Head {h00=0x004c, h01=0x0050, text=»  '1','1','1','1','0','1',      5:BLOCK C                               «, t00=0x0018, t01=0x0022}
0x25ee…263e              Head {h00=0x004c, h01=0x0050, text=»  '2','1','1','1','0','1',      6:UPDATE C                              «, t00=0x0018, t01=0x0072}
0x263e…268e              Head {h00=0x004c, h01=0x0050, text=»  '2','1','1','1','0','1',      7:INQUIRY C                             «, t00=0x0018, t01=0x00c2}
0x268e…26de              Head {h00=0x004c, h01=0x0050, text=»  '1','1','1','1','0','1',      8:DAILY STATEMENTS (D-S) C              «, t00=0x0018, t01=0x0112}
0x26de…272e              Head {h00=0x004c, h01=0x0050, text=»  '2','1','2','0','2','0',      9:IN C                                  «, t00=0x0018, t01=0x0162}
0x272e…277e              Head {h00=0x004c, h01=0x0050, text=»  '2','2','1','0','2','0',     10:OUT C                                 «, t00=0x0019, t01=0x0022}
0x277e…27ce              Head {h00=0x004c, h01=0x0050, text=»  '1','1','1','0','0','1'     11:TRANSFER                               «, t00=0x0019, t01=0x0072}
0x27ce…281e              Head {h00=0x004c, h01=0x0050, text=»* COLUMN CODING:                                                       *«, t00=0x0019, t01=0x00c2}
0x281e…286e              Head {h00=0x004c, h01=0x0050, text=»*          COLUMN 1: CHECK CURRENCY OFF                                *«, t00=0x0019, t01=0x0112}
0x286e…28be              Head {h00=0x004c, h01=0x0050, text=»*              COLUMN 2: CHECK CHEQUE OFF                              *«, t00=0x0019, t01=0x0162}
0x28be…290e              Head {h00=0x004c, h01=0x0050, text=»*                  COLUMN 3: CHECK NOBOOK OFF                          *«, t00=0x001a, t01=0x0022}
0x290e…295e              Head {h00=0x004c, h01=0x0050, text=»*                      COLUMN 4: CHECK REVERSAL OFF                    *«, t00=0x001a, t01=0x0072}
0x295e…29ae              Head {h00=0x004c, h01=0x0050, text=»*                          COLUMN 5: CHECK CARD OFF                    *«, t00=0x001a, t01=0x00c2}
0x29ae…29fe              Head {h00=0x004c, h01=0x0050, text=»*                              COLUMN 6: CHECK INPUT-FIELD EMPTY       *«, t00=0x001a, t01=0x0112}
0x29fe…2a4e              Head {h00=0x004c, h01=0x0050, text=»* IF KDCHECKS(I,J) = 1                                                 *«, t00=0x001a, t01=0x0162}
0x2a4e…2a9e              Head {h00=0x004c, h01=0x0050, text=»*      THEN FOR FUNCTION I, CHECK J WILL BE PERFORMED                  *«, t00=0x001b, t01=0x0022}
0x2a9e…2abc              Head {h00=0x001a, h01=0x0050, text=»* IF KDCHECKS(I,J) = 2«, t00=0x001b, t01=0x0072}
0x2abc…2afe              Head {h00=0x003e, h01=0x0050, text=»*      THEN FOR FUNCTION I, A SPECIFIC VERSION OF CHECK J «, t00=0x001b, t01=0x0090}
0x2afe…2b1e              Head {h00=0x001c, h01=0x0050, text=»*      WILL BE PERFORMED«, t00=0x001b, t01=0x00d2}
0x2b1e…2b6e              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x00f2}
0x2b6e…2bbe              Head {h00=0x004c, h01=0x0050, text=»CSY BLK                                                                 «, t00=0x001b, t01=0x0142}
0x2bbe…2c0e (28, 0, 400) Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x001c, t01=0x0004}
0x2c0e…2c5e              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001c, t01=0x0054}
0x2c5e…2cae              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x001c, t01=0x00a4}
0x2cae…2cfe              Head {h00=0x004c, h01=0x0050, text=»* SYSTEM RECORD                                                        *«, t00=0x001c, t01=0x00f4}
0x2cfe…2d4e              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x001c, t01=0x0144}
0x2d4e…2d9e (29, 0, 400) Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001d, t01=0x0004}
0x2d9e…2dee              Head {h00=0x004c, h01=0x0050, text=»YDSYSRNR BCD 12 RECORD NUMBER                                           «, t00=0x001d, t01=0x0054}
0x2dee…2e3e              Head {h00=0x004c, h01=0x0050, text=»YDUMMY BCD 6                                                            «, t00=0x001d, t01=0x00a4}
0x2e3e…2e54              Head {h00=0x0012, h01=0x0050, text=»YDSTATUS BCD 2«, t00=0x001d, t01=0x00f4}
0x2e54…2ea4              Head {h00=0x004c, h01=0x0050, text=»*   0 = SYSTEM NOT STARTED                                             *«, t00=0x001d, t01=0x010a}
0x2ea4…2ed6              Head {h00=0x002e, h01=0x0050, text=»*   1 = SYSTEM START OR CLOSE PROGRESSING «, t00=0x001d, t01=0x015a}
0x2ed6…2f26              Head {h00=0x004c, h01=0x0050, text=»*   2 = SYSTEM STARTED                                                 *«, t00=0x001d, t01=0x018c}
0x2f26…2f44              Head {h00=0x001a, h01=0x0050, text=»*   3 = SYSTEM CLOSED «, t00=0x001e, t01=0x004c}
0x2f44…2f94              Head {h00=0x004c, h01=0x0050, text=»YCCCY STRGI (4)4 CURRENCIES                                             «, t00=0x001e, t01=0x006a}
0x2f94…2fe4              Head {h00=0x004c, h01=0x0050, text=»YDSYSLGG BCD 2 SYSTEM LANGUAGE                                          «, t00=0x001e, t01=0x00ba}
0x2fe4…3034              Head {h00=0x004c, h01=0x0050, text=»YDMLPINT BCD 2 LINE PRINTER INTEGRATED                                  «, t00=0x001e, t01=0x010a}
0x3034…3084              Head {h00=0x004c, h01=0x0050, text=»YCTEXT STRG 25 DEMO TEXT                                                «, t00=0x001e, t01=0x015a}
0x3084…30d4              Head {h00=0x004c, h01=0x0050, text=»YDLASSAV BCD  12 LAST SAVINGS ACCOUNT NUMBER                            «, t00=0x001f, t01=0x001a}
0x30d4…3124              Head {h00=0x004c, h01=0x0050, text=»YDLASCHQ BCD 12 LAST CHEQUE ACCOUNT NUMBER                              «, t00=0x001f, t01=0x006a}
0x3124…3174              Head {h00=0x004c, h01=0x0050, text=»YDLASCRD BCD 6 LAST DUMMY CARD NUMBER                                   «, t00=0x001f, t01=0x00ba}
0x3174…31c4              Head {h00=0x004c, h01=0x0050, text=»YDLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR.                           «, t00=0x001f, t01=0x010a}
0x31c4…3214              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001f, t01=0x015a}
0x3214…321e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x001a}
0x321e…3236              Head {h00=0x0014, h01=0x0050, text=»* TWB VARIABLES «, t00=0x0020, t01=0x0024}
0x3236…3240              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003c}
0x3240…3290              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x0046}
0x3290…32e0              Head {h00=0x004c, h01=0x0050, text=»TRM BLK                                                                 «, t00=0x0020, t01=0x0096}
0x32e0…3330              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0020, t01=0x00e6}
0x3330…3380              Head {h00=0x004c, h01=0x0050, text=»SBKEY1 BOOL TRUE                                                        «, t00=0x0020, t01=0x0136}
0x3380…33d0              Head {h00=0x004c, h01=0x0050, text=»SBKEY2 BOOL FALSE                                                       «, t00=0x0020, t01=0x0186}
0x33d0…3420              Head {h00=0x004c, h01=0x0050, text=»SBCANCEL BOOL FALSE                                                     «, t00=0x0021, t01=0x0046}
0x3420…3470              Head {h00=0x004c, h01=0x0050, text=»SB34KB BOOL FALSE 6231 OR 6234 TYPE KEYBOARD                            «, t00=0x0021, t01=0x0096}
0x3470…349c              Head {h00=0x0028, h01=0x0050, text=»SBTRMBLK BOOL FALSE TERMINAL BLOCKED«, t00=0x0021, t01=0x00e6}
0x349c…34b6              Head {h00=0x0016, h01=0x0050, text=»SBFT80 BOOL FALSE «, t00=0x0021, t01=0x0112}
0x34b6…34e4              Head {h00=0x002a, h01=0x0050, text=»SBMSU BOOL FALSE MAGNETIC STRIPE UNIT «, t00=0x0021, t01=0x012c}
0x34e4…3534              Head {h00=0x004c, h01=0x0050, text=»NWUWBNR BIN  UWB-NUMBER                                                 «, t00=0x0021, t01=0x015a}
0x3534…355c              Head {h00=0x0024, h01=0x0050, text=»NDTRMLGG BCD 2 TERMINAL LANGUAGE«, t00=0x0022, t01=0x001a}
0x355c…3582              Head {h00=0x0022, h01=0x0050, text=»NDTRMNR BCD 4 TERMINAL NUMBER «, t00=0x0022, t01=0x0042}
0x3582…35d2              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0022, t01=0x0068}
0x35d2…3622              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0022, t01=0x00b8}
0x3622…3672              Head {h00=0x004c, h01=0x0050, text=»* TERMINAL RECORD                                                      *«, t00=0x0022, t01=0x0108}
0x3672…36c2              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0022, t01=0x0158}
0x36c2…3712              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0023, t01=0x0018}
0x3712…3762              Head {h00=0x004c, h01=0x0050, text=»RDTRMRNR BCD 12 RECORD NUMBER                                           «, t00=0x0023, t01=0x0068}
0x3762…37b2              Head {h00=0x004c, h01=0x0050, text=»RDUMMY BCD 6                                                            «, t00=0x0023, t01=0x00b8}
0x37b2…3802              Head {h00=0x004c, h01=0x0050, text=»RCTRMNME STRG 20 TERMINAL NAME                                          «, t00=0x0023, t01=0x0108}
0x3802…3852              Head {h00=0x004c, h01=0x0050, text=»RDSTATUS BCD 2                                                          «, t00=0x0023, t01=0x0158}
0x3852…38a2              Head {h00=0x004c, h01=0x0050, text=»*   0 = TERMINAL NOT SPECIFIED                                         *«, t00=0x0024, t01=0x0018}
0x38a2…38f2              Head {h00=0x004c, h01=0x0050, text=»*   1 = TERMINAL SPECIFIED                                             *«, t00=0x0024, t01=0x0068}
0x38f2…3942              Head {h00=0x004c, h01=0x0050, text=»*   2 = TERMINAL STARTED                                               *«, t00=0x0024, t01=0x00b8}
0x3942…3992              Head {h00=0x004c, h01=0x0050, text=»*   3 = OPERATOR LOGGED ON                                             *«, t00=0x0024, t01=0x0108}
0x3992…39c6              Head {h00=0x0030, h01=0x0050, text=»RDSCRLNS BCD 4D'1' NUMBER OF AVAILABLE LINES«, t00=0x0024, t01=0x0158}
0x39c6…3a16              Head {h00=0x004c, h01=0x0050, text=»RDALFKB BCD 2D'0' ALPHANUMERIC KEYBOARD                                 «, t00=0x0024, t01=0x018c}
0x3a16…3a66              Head {h00=0x004c, h01=0x0050, text=»RDSHRPRT BCD 2D'0' SHARED PRINTER                                       «, t00=0x0025, t01=0x004c}
0x3a66…3ab6              Head {h00=0x004c, h01=0x0050, text=»RDPRTTYP BCD 2D'0' PRINTER TYPE                                         «, t00=0x0025, t01=0x009c}
0x3ab6…3b06              Head {h00=0x004c, h01=0x0050, text=»RDBCR BCD 2D'0' BADGE CARD READER                                       «, t00=0x0025, t01=0x00ec}
0x3b06…3b56              Head {h00=0x004c, h01=0x0050, text=»RDODR BCD 2D'0' OPTICAL DOCUMENT READER                                 «, t00=0x0025, t01=0x013c}
0x3b56…3b7c              Head {h00=0x0022, h01=0x0050, text=»RDOPRNR BCD 6 OPERATOR NUMBER «, t00=0x0025, t01=0x018c}
0x3b7c…3bcc              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x0022}
0x3bcc…3bd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0072}
0x3bd6…3c0e              Head {h00=0x0034, h01=0x0050, text=»* SCREEN-MANAGEMENT VARAIBLES AND WORKVARIABLES «, t00=0x0026, t01=0x007c}
0x3c0e…3c18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b4}
0x3c18…3c68              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x00be}
0x3c68…3c78              Head {h00=0x000c, h01=0x0050, text=»TSP BLK «, t00=0x0026, t01=0x010e}
0x3c78…3c82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x011e}
0x3c82…3ca8              Head {h00=0x0022, h01=0x0050, text=»* SCREEN-MANAGEMENT VARIABLES «, t00=0x0026, t01=0x0128}
0x3ca8…3cc2              Head {h00=0x0016, h01=0x0050, text=»SPPROMPT BOOL TRUE«, t00=0x0026, t01=0x014e}
0x3cc2…3cde              Head {h00=0x0018, h01=0x0050, text=»SPCHANGE BOOL FALSE «, t00=0x0026, t01=0x0168}
0x3cde…3cf6              Head {h00=0x0014, h01=0x0050, text=»SPBINW1 BIN W'0'«, t00=0x0026, t01=0x0184}
0x3cf6…3d0e              Head {h00=0x0014, h01=0x0050, text=»SPBINW2 BIN W'0'«, t00=0x0027, t01=0x000c}
0x3d0e…3d26              Head {h00=0x0014, h01=0x0050, text=»SPBINW3 BIN W'0'«, t00=0x0027, t01=0x0024}
0x3d26…3d3e              Head {h00=0x0014, h01=0x0050, text=»SPBINW4 BIN W'0'«, t00=0x0027, t01=0x003c}
0x3d3e…3d70              Head {h00=0x002e, h01=0x0050, text=»* WORKFIELDS, MAY BE USED BY ALL ROUTINES «, t00=0x0027, t01=0x0054}
0x3d70…3d80              Head {h00=0x000c, h01=0x0050, text=»WW1 BIN «, t00=0x0027, t01=0x0086}
0x3d80…3d90              Head {h00=0x000c, h01=0x0050, text=»WW2 BIN «, t00=0x0027, t01=0x0096}
0x3d90…3da4              Head {h00=0x0010, h01=0x0050, text=»WWINDEX1 BIN«, t00=0x0027, t01=0x00a6}
0x3da4…3db8              Head {h00=0x0010, h01=0x0050, text=»WWINDEX2 BIN«, t00=0x0027, t01=0x00ba}
0x3db8…3dcc              Head {h00=0x0010, h01=0x0050, text=»WWCOUNT BIN «, t00=0x0027, t01=0x00ce}
0x3dcc…3de0              Head {h00=0x0010, h01=0x0050, text=»WDEC1 BCD 12«, t00=0x0027, t01=0x00e2}
0x3de0…3df4              Head {h00=0x0010, h01=0x0050, text=»WDEC2 BCD 12«, t00=0x0027, t01=0x00f6}
0x3df4…3e1e              Head {h00=0x0026, h01=0x0050, text=»* MORE SCREEN-MANAGEMENT VARIABLES«, t00=0x0027, t01=0x010a}
0x3e1e…3e36              Head {h00=0x0014, h01=0x0050, text=»SPINPUT STRG 32 «, t00=0x0027, t01=0x0134}
0x3e36…3e68              Head {h00=0x002e, h01=0x0050, text=»SPLSTLNE BCD 4D'1' LAST LINE ON THE SCREEN«, t00=0x0027, t01=0x014c}
0x3e68…3eb8              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x017e}
0x3eb8…3f08              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0028, t01=0x003e}
0x3f08…3f42              Head {h00=0x0036, h01=0x0050, text=»* MISCELANEOUS RESERVED VARIABLES AND I/O-BUFFERS «, t00=0x0028, t01=0x008e}
0x3f42…3f92              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0028, t01=0x00c8}
0x3f92…3fe2              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0028, t01=0x0118}
0x3fe2…3ff2              Head {h00=0x000c, h01=0x0050, text=»UBF BLK «, t00=0x0028, t01=0x0168}
0x3ff2…3ffc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0178}
0x3ffc…4020              Head {h00=0x0020, h01=0x0050, text=»SBUSEDWB BOOL FALSE UWB USED«, t00=0x0028, t01=0x0182}
0x4020…4046              Head {h00=0x0022, h01=0x0050, text=»* RESERVED VARIABLES FOR XBFMT«, t00=0x0029, t01=0x0016}
0x4046…407a              Head {h00=0x0030, h01=0x0050, text=»NWTOTBYT BIN  BYTES TO BE PROCESSED (XBFMT) «, t00=0x0029, t01=0x003c}
0x407a…40a2              Head {h00=0x0024, h01=0x0050, text=»NWPTR BIN  MATCH POINTER (XBFMT)«, t00=0x0029, t01=0x0070}
0x40a2…40ca              Head {h00=0x0024, h01=0x0050, text=»* RESERVED VARIABLES FOR BESELF «, t00=0x0029, t01=0x0098}
0x40ca…40f6              Head {h00=0x0028, h01=0x0050, text=»NWKTBIX BIN  KEYTABLE INDEX (BESELF)«, t00=0x0029, t01=0x00c0}
0x40f6…4118              Head {h00=0x001e, h01=0x0050, text=»* SWITCHES USED BY BESELF «, t00=0x0029, t01=0x00ec}
0x4118…4144              Head {h00=0x0028, h01=0x0050, text=»SWCCY BIN  CURRENCY SWITCH (BESELF) «, t00=0x0029, t01=0x010e}
0x4144…4160              Head {h00=0x0018, h01=0x0050, text=»SBCHEQUE BOOL FALSE «, t00=0x0029, t01=0x013a}
0x4160…417c              Head {h00=0x0018, h01=0x0050, text=»SBNOBOOK BOOL FALSE «, t00=0x0029, t01=0x0156}
0x417c…41ae              Head {h00=0x002e, h01=0x0050, text=»SBRVS BOOL FALSE REVERSAL SWITCH (BESELF) «, t00=0x0029, t01=0x0172}
0x41ae…41c8              Head {h00=0x0016, h01=0x0050, text=»SBCARD BOOL FALSE «, t00=0x002a, t01=0x0014}
0x41c8…41fe              Head {h00=0x0032, h01=0x0050, text=»SBFLDEMP BOOL FALSE INPUT FIELD EMPTY (BESELF)«, t00=0x002a, t01=0x002e}
0x41fe…4232              Head {h00=0x0030, h01=0x0050, text=»SBOPRCLS BOOL FALSE OPERATOR CLOSE (BESELF) «, t00=0x002a, t01=0x0064}
0x4232…4266              Head {h00=0x0030, h01=0x0050, text=»* VARIABLES RESERVED FOR THE PRINT ROUTINES «, t00=0x002a, t01=0x0098}
0x4266…4298              Head {h00=0x002e, h01=0x0050, text=»SBFIL24 BOOL FALSE )CONTROL POSITIONING OF«, t00=0x002a, t01=0x00cc}
0x4298…42c4              Head {h00=0x0028, h01=0x0050, text=»SBFIL20 BOOL FALSE ) PRINT LINES ON «, t00=0x002a, t01=0x00fe}
0x42c4…42ee              Head {h00=0x0026, h01=0x0050, text=»SBVCH BOOL FALSE ) VOUCHER (PCVCH)«, t00=0x002a, t01=0x012a}
0x42ee…4322              Head {h00=0x0030, h01=0x0050, text=»NDNEWLNE BCD 4 NEXT FREE LINE (PRINT ROUT'S)«, t00=0x002a, t01=0x0154}
0x4322…4358              Head {h00=0x0032, h01=0x0050, text=»NDPRTTRS BCD 12 NEXT TRS. FOR PRINT (PRT RT'S)«, t00=0x002a, t01=0x0188}
0x4358…4388              Head {h00=0x002c, h01=0x0050, text=»VCDOCPAR STRG 22 TP71-DOCUMENT PARAMETER«, t00=0x002b, t01=0x002e}
0x4388…43b4              Head {h00=0x0028, h01=0x0050, text=»SBFIL1 BOOL FALSE ***************** «, t00=0x002b, t01=0x005e}
0x43b4…43dc              Head {h00=0x0024, h01=0x0050, text=»SBFIL2 BOOL FALSE FILLERSIZE IN «, t00=0x002b, t01=0x008a}
0x43dc…4404              Head {h00=0x0024, h01=0x0050, text=»SBFIL3 BOOL FALSE TITLE LINE OF «, t00=0x002b, t01=0x00b2}
0x4404…4430              Head {h00=0x0028, h01=0x0050, text=»SBFIL4 BOOL FALSE TP71 DEMONSTATION «, t00=0x002b, t01=0x00da}
0x4430…445c              Head {h00=0x0028, h01=0x0050, text=»SBFIL5 BOOL FALSE ***************** «, t00=0x002b, t01=0x0106}
0x445c…448e              Head {h00=0x002e, h01=0x0050, text=»* WORKFIELDS, MAY BE USED BY ALL ROUTINES «, t00=0x002b, t01=0x0132}
0x448e…44a4              Head {h00=0x0012, h01=0x0050, text=»WCSTRG6 STRG 6«, t00=0x002b, t01=0x0164}
0x44a4…44bc              Head {h00=0x0014, h01=0x0050, text=»WC1STRG8 STRG 8 «, t00=0x002b, t01=0x017a}
0x44bc…44d4 (44, 0, 400) Head {h00=0x0014, h01=0x0050, text=»WC2STRG8 STRG 8 «, t00=0x002c, t01=0x0004}
0x44d4…44ec              Head {h00=0x0014, h01=0x0050, text=»WCSTRG12 STRG 12«, t00=0x002c, t01=0x001c}
0x44ec…4504              Head {h00=0x0014, h01=0x0050, text=»WCSTRG25 STRG 25«, t00=0x002c, t01=0x0034}
0x4504…4554              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002c, t01=0x004c}
0x4554…455e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x009c}
0x455e…4574              Head {h00=0x0012, h01=0x0050, text=»* I/O-BUFFERS «, t00=0x002c, t01=0x00a6}
0x4574…457e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00bc}
0x457e…45ce              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002c, t01=0x00c6}
0x45ce…461e              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x002c, t01=0x0116}
0x461e…466e              Head {h00=0x004c, h01=0x0050, text=»*   BUFFER USAGE:                                                      *«, t00=0x002c, t01=0x0166}
0x466e…46be              Head {h00=0x004c, h01=0x0050, text=»*   IN XBFMT 'FCFMTBUF' IS FIRST USED TO READ A FORMAT INTO THE        *«, t00=0x002d, t01=0x0026}
0x46be…470e              Head {h00=0x004c, h01=0x0050, text=»*   BUFFER 'FCFORMAT'.                                                 *«, t00=0x002d, t01=0x0076}
0x470e…475e              Head {h00=0x004c, h01=0x0050, text=»*   IF THEN THE FORMAT MUST BE SPLIT INTO PARTS 'FCFMTBUF' IS USED     *«, t00=0x002d, t01=0x00c6}
0x475e…47ae              Head {h00=0x004c, h01=0x0050, text=»*   AGAIN.                                                             *«, t00=0x002d, t01=0x0116}
0x47ae…47fe              Head {h00=0x004c, h01=0x0050, text=»*   SO WHEN IN SCREEN MANAGEMENT THESE TWO BUFFERS MAY NOT BE USED!!!  *«, t00=0x002d, t01=0x0166}
0x47fe…484e              Head {h00=0x004c, h01=0x0050, text=»*   'FCBUFFER' CAN BE USED TO READ RECORDS FROM THE DATABASE,          *«, t00=0x002e, t01=0x0026}
0x484e…489e              Head {h00=0x004c, h01=0x0050, text=»*   TO READ ERRORS AND MESSAGES FROM THE FORMAT FILE OR TO             *«, t00=0x002e, t01=0x0076}
0x489e…48ee              Head {h00=0x004c, h01=0x0050, text=»*   READ PRINT FORMATS FROM THE FORMAT FILE.                           *«, t00=0x002e, t01=0x00c6}
0x48ee…493e              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x002e, t01=0x0116}
0x493e…4976              Head {h00=0x0034, h01=0x0050, text=»FCBUFFER STRG 399 BUFFER FOR DATABASE AND MSG'S «, t00=0x002e, t01=0x0166}
0x4976…499e              Head {h00=0x0024, h01=0x0050, text=»FCFMTBUF STRG 255 FORMAT BUFFER «, t00=0x002f, t01=0x000e}
0x499e…49c6              Head {h00=0x0024, h01=0x0050, text=»FCFORMAT STRG 800 FORMAT STORAGE«, t00=0x002f, t01=0x0036}
0x49c6…49fc              Head {h00=0x0032, h01=0x0050, text=»FCFIELD STRG 10 INPUT-FIELD IN FUNCTION CHOISE«, t00=0x002f, t01=0x005e}
0x49fc…4a4c              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002f, t01=0x0094}
0x4a4c…4a9c              Head {h00=0x004c, h01=0x0050, text=»UIF BLK                                                                 «, t00=0x002f, t01=0x00e4}
0x4a9c…4aec              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x002f, t01=0x0134}
0x4aec…4b3c              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002f, t01=0x0184}
0x4b3c…4b8c              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0030, t01=0x0044}
0x4b8c…4bdc              Head {h00=0x004c, h01=0x0050, text=»* INTERFACES BETWEEN FUNCTION MODULE, FORMAT AND SPAPPL                *«, t00=0x0030, t01=0x0094}
0x4bdc…4c2c              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0030, t01=0x00e4}
0x4c2c…4c7c              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0030, t01=0x0134}
0x4c7c…4ccc              Head {h00=0x004c, h01=0x0050, text=»SBSTTO BOOL FALSE START OPERATOR                                        «, t00=0x0030, t01=0x0184}
0x4ccc…4d1c              Head {h00=0x004c, h01=0x0050, text=»SBOACT BOOL FALSE OPEN ACCOUNT                                          «, t00=0x0031, t01=0x0044}
0x4d1c…4d6c              Head {h00=0x004c, h01=0x0050, text=»SBCACT BOOL FALSE CLOSE ACCOUNT                                         «, t00=0x0031, t01=0x0094}
0x4d6c…4dbc              Head {h00=0x004c, h01=0x0050, text=»SBBACT BOOL FALSE BLOCK ACCOUNT                                         «, t00=0x0031, t01=0x00e4}
0x4dbc…4e0c              Head {h00=0x004c, h01=0x0050, text=»SBDACT BOOL FALSE DEBLOCK ACCOUNT                                       «, t00=0x0031, t01=0x0134}
0x4e0c…4e5c              Head {h00=0x004c, h01=0x0050, text=»SBUACT BOOL FALSE UPDATE ACCOUNT                                        «, t00=0x0031, t01=0x0184}
0x4e5c…4eac              Head {h00=0x004c, h01=0x0050, text=»SBUCCY BOOL FALSE UPDATE CURRENCY                                       «, t00=0x0032, t01=0x0044}
0x4eac…4efc              Head {h00=0x004c, h01=0x0050, text=»SBQACT BOOL  FALSE INQUIRY ACCOUNT                                      «, t00=0x0032, t01=0x0094}
0x4efc…4f4c              Head {h00=0x004c, h01=0x0050, text=»SBDSTM BOOL FALSE DAYLY STATEMENTS                                      «, t00=0x0032, t01=0x00e4}
0x4f4c…4f9c              Head {h00=0x004c, h01=0x0050, text=»SBCOPR BOOL FALSE OPERATOR CLOSE                                        «, t00=0x0032, t01=0x0134}
0x4f9c…4fec              Head {h00=0x004c, h01=0x0050, text=»SBCSYS BOOL FALSE SYSTEM CLOSE                                          «, t00=0x0032, t01=0x0184}
0x4fec…503c              Head {h00=0x004c, h01=0x0050, text=»SBECCY BOOL FALSE CURRENCY EXCHANGE                                     «, t00=0x0033, t01=0x0044}
0x503c…508c              Head {h00=0x004c, h01=0x0050, text=»SBQCCY BOOL FALSE CURRENCY INQUIRY                                      «, t00=0x0033, t01=0x0094}
0x508c…50dc              Head {h00=0x004c, h01=0x0050, text=»SBLACT BOOL FALSE LIST ACCOUNTS                                         «, t00=0x0033, t01=0x00e4}
0x50dc…50f4              Head {h00=0x0014, h01=0x0050, text=»SBWDR BOOL FALSE«, t00=0x0033, t01=0x0134}
0x50f4…5144              Head {h00=0x004c, h01=0x0050, text=»IWINDEX1 BIN                                                            «, t00=0x0033, t01=0x014c}
0x5144…5194              Head {h00=0x004c, h01=0x0050, text=»IDACTNR1 BCD 12                                                         «, t00=0x0034, t01=0x000c}
0x5194…51e4              Head {h00=0x004c, h01=0x0050, text=»IDACTNR2 BCD 12                                                         «, t00=0x0034, t01=0x005c}
0x51e4…5234              Head {h00=0x004c, h01=0x0050, text=»IDAMT1 BCD 12                                                           «, t00=0x0034, t01=0x00ac}
0x5234…5284              Head {h00=0x004c, h01=0x0050, text=»IDAMT2 BCD 20                                                           «, t00=0x0034, t01=0x00fc}
0x5284…52d4              Head {h00=0x004c, h01=0x0050, text=»IDNR1 BCD 12                                                            «, t00=0x0034, t01=0x014c}
0x52d4…52e8              Head {h00=0x0010, h01=0x0050, text=»IDNR2 BCD 12«, t00=0x0035, t01=0x000c}
0x52e8…52fc              Head {h00=0x0010, h01=0x0050, text=»IDNR3 BCD 12«, t00=0x0035, t01=0x0020}
0x52fc…5310              Head {h00=0x0010, h01=0x0050, text=»IDNR4 BCD 12«, t00=0x0035, t01=0x0034}
0x5310…5326              Head {h00=0x0012, h01=0x0050, text=»ICSTRG1 STRG 1«, t00=0x0035, t01=0x0048}
0x5326…533c              Head {h00=0x0012, h01=0x0050, text=»ICTEXT1 STRG 6«, t00=0x0035, t01=0x005e}
0x533c…5354              Head {h00=0x0014, h01=0x0050, text=»ICTEXT2 STRG 25 «, t00=0x0035, t01=0x0074}
0x5354…536a              Head {h00=0x0012, h01=0x0050, text=»ICTEXT3 STRG 4«, t00=0x0035, t01=0x008c}
0x536a…53ba              Head {h00=0x004c, h01=0x0050, text=»ICDUMMY STRG 5                                                          «, t00=0x0035, t01=0x00a2}
0x53ba…540a              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0035, t01=0x00f2}
0x540a…541a              Head {h00=0x000c, h01=0x0050, text=»UCY BLK «, t00=0x0035, t01=0x0142}
0x541a…5424              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0152}
0x5424…5474              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0035, t01=0x015c}
0x5474…54c4              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0036, t01=0x001c}
0x54c4…5514              Head {h00=0x004c, h01=0x0050, text=»* CURRENCY RECORD                                                      *«, t00=0x0036, t01=0x006c}
0x5514…5564              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0036, t01=0x00bc}
0x5564…55b4              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0036, t01=0x010c}
0x55b4…55da              Head {h00=0x0022, h01=0x0050, text=»CDCCYRNR BCD 12 RECORD NUMBER «, t00=0x0036, t01=0x015c}
0x55da…55ee              Head {h00=0x0010, h01=0x0050, text=»CDUMMY BCD 6«, t00=0x0036, t01=0x0182}
0x55ee…5614              Head {h00=0x0022, h01=0x0050, text=»CCCCYNME STRG 20 CURRENCY NAME«, t00=0x0037, t01=0x0008}
0x5614…563a              Head {h00=0x0022, h01=0x0050, text=»CCCCYCDE STRG 4 CURRENCY CODE «, t00=0x0037, t01=0x002e}
0x563a…565c              Head {h00=0x001e, h01=0x0050, text=»CDBUY1 BCD 8 BUYING RATE 1«, t00=0x0037, t01=0x0054}
0x565c…567e              Head {h00=0x001e, h01=0x0050, text=»CDBUY2 BCD 8 BUYING RATE 2«, t00=0x0037, t01=0x0076}
0x567e…56a2              Head {h00=0x0020, h01=0x0050, text=»CDSEL1 BCD 8 SELLING RATE 1 «, t00=0x0037, t01=0x0098}
0x56a2…56c6              Head {h00=0x0020, h01=0x0050, text=»CDSEL2 BCD 8 SELLING RATE 2 «, t00=0x0037, t01=0x00bc}
0x56c6…56ec              Head {h00=0x0022, h01=0x0050, text=»CDLIMIT BCD 12 LIMIT OF RATE 1«, t00=0x0037, t01=0x00e0}
0x56ec…570a              Head {h00=0x001a, h01=0x0050, text=»CDRELAT BCD 6 RELATION«, t00=0x0037, t01=0x0106}
0x570a…575a              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0037, t01=0x0124}
0x575a…57aa              Head {h00=0x004c, h01=0x0050, text=»UOP BLK                                                                 «, t00=0x0037, t01=0x0174}
0x57aa…57fa              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0038, t01=0x0034}
0x57fa…584a              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0038, t01=0x0084}
0x584a…589a              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0038, t01=0x00d4}
0x589a…58ea              Head {h00=0x004c, h01=0x0050, text=»* OPERATOR RECORD                                                      *«, t00=0x0038, t01=0x0124}
0x58ea…593a              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0038, t01=0x0174}
0x593a…598a              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0039, t01=0x0034}
0x598a…59da              Head {h00=0x004c, h01=0x0050, text=»ODOPRRNR BCD 12 RECORD NUMBER                                           «, t00=0x0039, t01=0x0084}
0x59da…5a2a              Head {h00=0x004c, h01=0x0050, text=»ODUMMY BCD 6                                                            «, t00=0x0039, t01=0x00d4}
0x5a2a…5a7a              Head {h00=0x004c, h01=0x0050, text=»OCPASS STRG 6 PASSWORD                                                  «, t00=0x0039, t01=0x0124}
0x5a7a…5aca              Head {h00=0x004c, h01=0x0050, text=»OCNAME STRG 18 OPERATOR NAME                                            «, t00=0x0039, t01=0x0174}
0x5aca…5b1a              Head {h00=0x004c, h01=0x0050, text=»ODSTATUS BCD 2                                                          «, t00=0x003a, t01=0x0034}
0x5b1a…5b6a              Head {h00=0x004c, h01=0x0050, text=»*   0 = OPERATOR NOT IN USE                                            *«, t00=0x003a, t01=0x0084}
0x5b6a…5bba              Head {h00=0x004c, h01=0x0050, text=»*   1 = OPERATOR INITIALISED                                           *«, t00=0x003a, t01=0x00d4}
0x5bba…5c0a              Head {h00=0x004c, h01=0x0050, text=»*   2 = OPERATOR LOGGED ON                                             *«, t00=0x003a, t01=0x0124}
0x5c0a…5c5a              Head {h00=0x004c, h01=0x0050, text=»ODTRMNR BCD 4 TERMINAL NUMBER                                           «, t00=0x003a, t01=0x0174}
0x5c5a…5caa              Head {h00=0x004c, h01=0x0050, text=»ODOPRLGG BCD 2 LANGUAGE USED BY OPERATOR                                «, t00=0x003b, t01=0x0034}
0x5caa…5cfa              Head {h00=0x004c, h01=0x0050, text=»ODCASH BCDI (3,5)12 BALANCES AND ACCUMULATORS                           «, t00=0x003b, t01=0x0084}
0x5cfa…5d4a              Head {h00=0x004c, h01=0x0050, text=»* USAGE AS FOLLOWS:                                                    *«, t00=0x003b, t01=0x00d4}
0x5d4a…5d9a              Head {h00=0x004c, h01=0x0050, text=»*   1,1 : BALANCE CURRENCY 1                                           *«, t00=0x003b, t01=0x0124}
0x5d9a…5dea              Head {h00=0x004c, h01=0x0050, text=»*   1,2 : BALANCE CURRENCY 2                                           *«, t00=0x003b, t01=0x0174}
0x5dea…5e3a              Head {h00=0x004c, h01=0x0050, text=»*   1,3 : BALANCE CURRENCY 3                                           *«, t00=0x003c, t01=0x0034}
0x5e3a…5e8a              Head {h00=0x004c, h01=0x0050, text=»*   1,4 : BALANCE CASH                                                 *«, t00=0x003c, t01=0x0084}
0x5e8a…5eda              Head {h00=0x004c, h01=0x0050, text=»*   1,5 : UNUSED                                                       *«, t00=0x003c, t01=0x00d4}
0x5eda…5f2a              Head {h00=0x004c, h01=0x0050, text=»*   2,1 : ACCUMULATED CHEQUES                                          *«, t00=0x003c, t01=0x0124}
0x5f2a…5f7a              Head {h00=0x004c, h01=0x0050, text=»*   2,2 : ACCUMULATED TRANSFERS                                        *«, t00=0x003c, t01=0x0174}
0x5f7a…5fca              Head {h00=0x004c, h01=0x0050, text=»*   2,3 : ACCUMULATED DEPOSITS                                         *«, t00=0x003d, t01=0x0034}
0x5fca…601a              Head {h00=0x004c, h01=0x0050, text=»*   2,4 : ACCUMULATED WITHDRAWALS                                      *«, t00=0x003d, t01=0x0084}
0x601a…606a              Head {h00=0x004c, h01=0x0050, text=»*   2,5 : UNUSED                                                       *«, t00=0x003d, t01=0x00d4}
0x606a…60ba              Head {h00=0x004c, h01=0x0050, text=»*   3,1 : ACCUMULATED CURRENCY 1 - BOUGHT AND SOLD                     *«, t00=0x003d, t01=0x0124}
0x60ba…610a              Head {h00=0x004c, h01=0x0050, text=»*   3,2 : ACCUMULATED CURRENCY 2 - BOUGHT AND SOLD                     *«, t00=0x003d, t01=0x0174}
0x610a…615a              Head {h00=0x004c, h01=0x0050, text=»*   3,3 : ACCUMULATED CURRENCY 3 - BOUGHT AND SOLD                     *«, t00=0x003e, t01=0x0034}
0x615a…61aa              Head {h00=0x004c, h01=0x0050, text=»*   3,4 : ACCUMULATED CURRENCY SOLD - LOCAL VALUE                      *«, t00=0x003e, t01=0x0084}
0x61aa…61fa              Head {h00=0x004c, h01=0x0050, text=»*   3,5 : ACCUMULATED CURRENCY BOUGHT - LOCAL VALUE                    *«, t00=0x003e, t01=0x00d4}
0x61fa…624a              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003e, t01=0x0124}
0x624a…629a              Head {h00=0x004c, h01=0x0050, text=»UA1 BLK                                                                 «, t00=0x003e, t01=0x0174}
0x629a…62ea              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x003f, t01=0x0034}
0x62ea…631e              Head {h00=0x0030, h01=0x0050, text=»SBCHQACT BOOL FALSE IS ACCOUNT A CHEQUE ACC «, t00=0x003f, t01=0x0084}
0x631e…636e              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003f, t01=0x00b8}
0x636e…63be              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x003f, t01=0x0108}
0x63be…640e              Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT RECORD 1                                                     *«, t00=0x003f, t01=0x0158}
0x640e…645e              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0040, t01=0x0018}
0x645e…64ae              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0040, t01=0x0068}
0x64ae…64fe              Head {h00=0x004c, h01=0x0050, text=»ADACTRNR BCD 12 RECORD NUMBER                                           «, t00=0x0040, t01=0x00b8}
0x64fe…654e              Head {h00=0x004c, h01=0x0050, text=»ADCARDNR BCD 6 CARD NUMBER                                              «, t00=0x0040, t01=0x0108}
0x654e…659e              Head {h00=0x004c, h01=0x0050, text=»ACNAME STRG   20                                                        «, t00=0x0040, t01=0x0158}
0x659e…65ee              Head {h00=0x004c, h01=0x0050, text=»ACADDRES STRG 20                                                        «, t00=0x0041, t01=0x0018}
0x65ee…663e              Head {h00=0x004c, h01=0x0050, text=»ACTOWN STRG 20                                                          «, t00=0x0041, t01=0x0068}
0x663e…668e              Head {h00=0x004c, h01=0x0050, text=»ACPASS STRG 6 PASSWORD                                                  «, t00=0x0041, t01=0x00b8}
0x668e…66de              Head {h00=0x004c, h01=0x0050, text=»ADSTATUS BCD 2                                                          «, t00=0x0041, t01=0x0108}
0x66de…672e              Head {h00=0x004c, h01=0x0050, text=»*   0 = DEBLOCKED                                                      *«, t00=0x0041, t01=0x0158}
0x672e…677e              Head {h00=0x004c, h01=0x0050, text=»*   1 = BLOCKED                                                        *«, t00=0x0042, t01=0x0018}
0x677e…67ce              Head {h00=0x004c, h01=0x0050, text=»*   2 = CLOSED WITHOUT STATEMENT                                       *«, t00=0x0042, t01=0x0068}
0x67ce…681e              Head {h00=0x004c, h01=0x0050, text=»*   3 = CLOSED WITH STATEMENT                                          *«, t00=0x0042, t01=0x00b8}
0x681e…686e              Head {h00=0x004c, h01=0x0050, text=»ADBAL BCD 12  BALANCE                                                   «, t00=0x0042, t01=0x0108}
0x686e…68be              Head {h00=0x004c, h01=0x0050, text=»ADLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE                               «, t00=0x0042, t01=0x0158}
0x68be…690e              Head {h00=0x004c, h01=0x0050, text=»ADLASTRS BCD 12 LAST TRANSACTION                                        «, t00=0x0043, t01=0x0018}
0x690e…695e              Head {h00=0x004c, h01=0x0050, text=»ADSTMTRS BCD 12 LAST TRANSACTION STATEMENTED                            «, t00=0x0043, t01=0x0068}
0x695e…698a              Head {h00=0x0028, h01=0x0050, text=»ADLNENR BCD 4 LAST USED LINE IN BOOK«, t00=0x0043, t01=0x00b8}
0x698a…69da              Head {h00=0x004c, h01=0x0050, text=»ADDEPCUM BCD 12 ACCUMULATED DEPOSITS                                    «, t00=0x0043, t01=0x00e4}
0x69da…6a2a              Head {h00=0x004c, h01=0x0050, text=»ADWDRCUM BCD 12 ACCUMULATED WITHDRAWALS                                 «, t00=0x0043, t01=0x0134}
0x6a2a…6a60              Head {h00=0x0032, h01=0x0050, text=»ADLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. «, t00=0x0043, t01=0x0184}
0x6a60…6a8c              Head {h00=0x0028, h01=0x0050, text=»ACRECNR STRG 3 INDEX 2 FOR DATABASE «, t00=0x0044, t01=0x002a}
0x6a8c…6adc              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0044, t01=0x0056}
0x6adc…6b2c              Head {h00=0x004c, h01=0x0050, text=»UA2 BLK                                                                 «, t00=0x0044, t01=0x00a6}
0x6b2c…6b7c              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0044, t01=0x00f6}
0x6b7c…6bcc              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0044, t01=0x0146}
0x6bcc…6c1c              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0045, t01=0x0008}
0x6c1c…6c6c              Head {h00=0x004c, h01=0x0050, text=»* ACCOUNT RECORD 2                                                     *«, t00=0x0045, t01=0x0058}
0x6c6c…6cbc              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0045, t01=0x00a8}
0x6cbc…6d0c              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0045, t01=0x00f8}
0x6d0c…6d5c              Head {h00=0x004c, h01=0x0050, text=»BDACTRNR BCD 12 RECORD NUMBER                                           «, t00=0x0045, t01=0x0148}
0x6d5c…6dac              Head {h00=0x004c, h01=0x0050, text=»BDCARDNR BCD 6 CARD NUMBER                                              «, t00=0x0046, t01=0x0008}
0x6dac…6dfc              Head {h00=0x004c, h01=0x0050, text=»BCNAME STRG   20                                                        «, t00=0x0046, t01=0x0058}
0x6dfc…6e4c              Head {h00=0x004c, h01=0x0050, text=»BCADDRES STRG 20                                                        «, t00=0x0046, t01=0x00a8}
0x6e4c…6e9c              Head {h00=0x004c, h01=0x0050, text=»BCTOWN STRG 20                                                          «, t00=0x0046, t01=0x00f8}
0x6e9c…6eec              Head {h00=0x004c, h01=0x0050, text=»BCPASS STRG 6 PASSWORD                                                  «, t00=0x0046, t01=0x0148}
0x6eec…6f3c              Head {h00=0x004c, h01=0x0050, text=»BDSTATUS BCD 2                                                          «, t00=0x0047, t01=0x0008}
0x6f3c…6f8c              Head {h00=0x004c, h01=0x0050, text=»*   0 = DEBLOCKED                                                      *«, t00=0x0047, t01=0x0058}
0x6f8c…6fdc              Head {h00=0x004c, h01=0x0050, text=»*   1 = BLOCKED                                                        *«, t00=0x0047, t01=0x00a8}
0x6fdc…702c              Head {h00=0x004c, h01=0x0050, text=»*   2 = CLOSED WITHOUT STATEMENT                                       *«, t00=0x0047, t01=0x00f8}
0x702c…707c              Head {h00=0x004c, h01=0x0050, text=»*   3 = CLOSED WITH STATEMENT                                          *«, t00=0x0047, t01=0x0148}
0x707c…70cc              Head {h00=0x004c, h01=0x0050, text=»BDBAL BCD 12  BALANCE                                                   «, t00=0x0048, t01=0x0008}
0x70cc…711c              Head {h00=0x004c, h01=0x0050, text=»BDLIMBOK BCD 12 CREDIT LIMIT/BOOK BALANCE                               «, t00=0x0048, t01=0x0058}
0x711c…716c              Head {h00=0x004c, h01=0x0050, text=»BDLASTRS BCD 12 LAST TRANSACTION                                        «, t00=0x0048, t01=0x00a8}
0x716c…71bc              Head {h00=0x004c, h01=0x0050, text=»BDSTMTRS BCD 12 LAST TRANSACTION STATEMENTED                            «, t00=0x0048, t01=0x00f8}
0x71bc…720c              Head {h00=0x004c, h01=0x0050, text=»BDLNENR BCD 4 FIRST FREE LINE IN BOOK                                   «, t00=0x0048, t01=0x0148}
0x720c…725c              Head {h00=0x004c, h01=0x0050, text=»BDDEPCUM BCD 12 ACCUMULATED DEPOSITS                                    «, t00=0x0049, t01=0x0008}
0x725c…72ac              Head {h00=0x004c, h01=0x0050, text=»BDWDRCUM BCD 12 ACCUMULATED WITHDRAWALS                                 «, t00=0x0049, t01=0x0058}
0x72ac…72e2              Head {h00=0x0032, h01=0x0050, text=»BDLASSEQ BCD 12 LAST TRANSACTION SEQUENCE NR. «, t00=0x0049, t01=0x00a8}
0x72e2…7332              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0049, t01=0x00de}
0x7332…7382              Head {h00=0x004c, h01=0x0050, text=»UT1 BLK                                                                 «, t00=0x0049, t01=0x012e}
0x7382…73d2              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x0049, t01=0x017e}
0x73d2…7422              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004a, t01=0x003e}
0x7422…7472              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x004a, t01=0x008e}
0x7472…74c2              Head {h00=0x004c, h01=0x0050, text=»* TRANSACTION RECORD 1                                                 *«, t00=0x004a, t01=0x00de}
0x74c2…7512              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x004a, t01=0x012e}
0x7512…7562              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004a, t01=0x017e}
0x7562…75b2              Head {h00=0x004c, h01=0x0050, text=»TDTRSRNR BCD 12 RECORD NUMBER                                           «, t00=0x004b, t01=0x003e}
0x75b2…7602              Head {h00=0x004c, h01=0x0050, text=»TDUMMY BCD 6                                                            «, t00=0x004b, t01=0x008e}
0x7602…7652              Head {h00=0x004c, h01=0x0050, text=»TDTRSCDE BCD 4 TRANSACTION CODE                                         «, t00=0x004b, t01=0x00de}
0x7652…76a2              Head {h00=0x004c, h01=0x0050, text=»TDDATE BCD 8 TRANSACTION DATE                                           «, t00=0x004b, t01=0x012e}
0x76a2…76f2              Head {h00=0x004c, h01=0x0050, text=»TDTRMNR BCD 12 TERMINAL NUMBER OF ISSUE                                 «, t00=0x004b, t01=0x017e}
0x76f2…7742              Head {h00=0x004c, h01=0x0050, text=»TDOPRNR BCD 12 OPERATOR NUMBER                                          «, t00=0x004c, t01=0x003e}
0x7742…7792              Head {h00=0x004c, h01=0x0050, text=»TDTRSSEQ BCD 12 SEQUENCE NUMBER                                         «, t00=0x004c, t01=0x008e}
0x7792…77e2              Head {h00=0x004c, h01=0x0050, text=»TDAMOUNT BCD  12                                                        «, t00=0x004c, t01=0x00de}
0x77e2…7832              Head {h00=0x004c, h01=0x0050, text=»TDNEWBAL BCD 12 NEW BALANCE                                             «, t00=0x004c, t01=0x012e}
0x7832…7882              Head {h00=0x004c, h01=0x0050, text=»TDACTFRM BCD 12 ACCOUNT FROM                                            «, t00=0x004c, t01=0x017e}
0x7882…78d2              Head {h00=0x004c, h01=0x0050, text=»TDCHQNR BCD 8 CHEQUE NUMBER                                             «, t00=0x004d, t01=0x003e}
0x78d2…7922              Head {h00=0x004c, h01=0x0050, text=»TCTEXT STRG 20                                                          «, t00=0x004d, t01=0x008e}
0x7922…7972              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004d, t01=0x00de}
0x7972…79c2              Head {h00=0x004c, h01=0x0050, text=»UT2 BLK                                                                 «, t00=0x004d, t01=0x012e}
0x79c2…7a12              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x004d, t01=0x017e}
0x7a12…7a62              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004e, t01=0x003e}
0x7a62…7ab2              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x004e, t01=0x008e}
0x7ab2…7b02              Head {h00=0x004c, h01=0x0050, text=»* TRANSACTION RECORD 2                                                 *«, t00=0x004e, t01=0x00de}
0x7b02…7b52              Head {h00=0x004c, h01=0x0050, text=»*                                                                      *«, t00=0x004e, t01=0x012e}
0x7b52…7ba2              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004e, t01=0x017e}
0x7ba2…7bf2              Head {h00=0x004c, h01=0x0050, text=»UDTRSRNR BCD 12 RECORD NUMBER                                           «, t00=0x004f, t01=0x003e}
0x7bf2…7c42              Head {h00=0x004c, h01=0x0050, text=»UDUMMY BCD 6                                                            «, t00=0x004f, t01=0x008e}
0x7c42…7c92              Head {h00=0x004c, h01=0x0050, text=»UDTRSCDE BCD 4 TRANSACTION CODE                                         «, t00=0x004f, t01=0x00de}
0x7c92…7ce2              Head {h00=0x004c, h01=0x0050, text=»UDDATE BCD 8 TRANSACTION DATE                                           «, t00=0x004f, t01=0x012e}
0x7ce2…7d32              Head {h00=0x004c, h01=0x0050, text=»UDTRMNR BCD 12 TERMINAL NUMBER OF ISSUE                                 «, t00=0x004f, t01=0x017e}
0x7d32…7d82              Head {h00=0x004c, h01=0x0050, text=»UDOPRNR BCD 12 OPERATOR NUMBER                                          «, t00=0x0050, t01=0x003e}
0x7d82…7dd2              Head {h00=0x004c, h01=0x0050, text=»UDTRSSEQ BCD 12 SEQUENCE NUMBER                                         «, t00=0x0050, t01=0x008e}
0x7dd2…7e22              Head {h00=0x004c, h01=0x0050, text=»UDAMOUNT BCD  12                                                        «, t00=0x0050, t01=0x00de}
0x7e22…7e72              Head {h00=0x004c, h01=0x0050, text=»UDNEWBAL BCD 12 NEW BALANCE                                             «, t00=0x0050, t01=0x012e}
0x7e72…7ec2              Head {h00=0x004c, h01=0x0050, text=»UDACTFRM BCD 12 ACCOUNT FROM                                            «, t00=0x0050, t01=0x017e}
0x7ec2…7f12              Head {h00=0x004c, h01=0x0050, text=»UDCHQNR BCD 8 CHEQUE NUMBER                                             «, t00=0x0051, t01=0x003e}
0x7f12…7f62              Head {h00=0x004c, h01=0x0050, text=»UCTEXT STRG 20                                                          «, t00=0x0051, t01=0x008e}
0x7f62…7fb2              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0051, t01=0x00de}
0x7fb2…7fbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x012e}
0x7fbc…7fec              Head {h00=0x002c, h01=0x0050, text=»* COMMON WORK-BLOCK CONTAINING CONSTANTS«, t00=0x0051, t01=0x0138}
0x7fec…7ff6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0168}
0x7ff6…8046              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0051, t01=0x0172}
0x8046…8056              Head {h00=0x000c, h01=0x0050, text=»CK1 BLK «, t00=0x0052, t01=0x0032}
0x8056…8060              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0042}
0x8060…8074              Head {h00=0x0010, h01=0x0050, text=»KW0 BIN W'0'«, t00=0x0052, t01=0x004c}
0x8074…8088              Head {h00=0x0010, h01=0x0050, text=»KW1 BIN W'1'«, t00=0x0052, t01=0x0060}
0x8088…809c              Head {h00=0x0010, h01=0x0050, text=»KW2 BIN W'2'«, t00=0x0052, t01=0x0074}
0x809c…80b0              Head {h00=0x0010, h01=0x0050, text=»KW3 BIN W'3'«, t00=0x0052, t01=0x0088}
0x80b0…80c4              Head {h00=0x0010, h01=0x0050, text=»KW4 BIN W'4'«, t00=0x0052, t01=0x009c}
0x80c4…80d8              Head {h00=0x0010, h01=0x0050, text=»KW5 BIN W'5'«, t00=0x0052, t01=0x00b0}
0x80d8…80ec              Head {h00=0x0010, h01=0x0050, text=»KW6 BIN W'6'«, t00=0x0052, t01=0x00c4}
0x80ec…811c              Head {h00=0x002c, h01=0x0050, text=»KWFMTLNG BIN W'255' FORMATRECORD LENGTH «, t00=0x0052, t01=0x00d8}
0x811c…8148              Head {h00=0x0028, h01=0x0050, text=»KWNRFMT BIN W'100' NUMBER OF FORMATS«, t00=0x0052, t01=0x0108}
0x8148…815e              Head {h00=0x0012, h01=0x0050, text=»KD1 BCD 2D'1' «, t00=0x0052, t01=0x0134}
0x815e…818c              Head {h00=0x002a, h01=0x0050, text=»KDMAXLGG BCD 2D'4' NUMBER OF LANGUAGES«, t00=0x0052, t01=0x014a}
0x818c…81c2              Head {h00=0x0032, h01=0x0050, text=»KDSHIFT BCD D'100' SHIFT TO GET RECORD NUMBER «, t00=0x0052, t01=0x0178}
0x81c2…81d6              Head {h00=0x0010, h01=0x0050, text=»NDDATE BCD 8«, t00=0x0053, t01=0x001e}
0x81d6…81ea              Head {h00=0x0010, h01=0x0050, text=»NDTIME BCD 8«, t00=0x0053, t01=0x0032}
0x81ea…8200              Head {h00=0x0012, h01=0x0050, text=»VCTIME STRG 6 «, t00=0x0053, t01=0x0046}
0x8200…8250              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0053, t01=0x005c}
0x8250…825a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00ac}
0x825a…828a              Head {h00=0x002c, h01=0x0050, text=»* COMMON WORK-BLOCK CONTAINING CONSTANTS«, t00=0x0053, t01=0x00b6}
0x828a…8294              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00e6}
0x8294…82e4              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0053, t01=0x00f0}
0x82e4…82f4              Head {h00=0x000c, h01=0x0050, text=»CK2 BLK «, t00=0x0053, t01=0x0140}
0x82f4…82fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0150}
0x82fe…8332              Head {h00=0x0030, h01=0x0050, text=»* INDICES IN THE FUNCTION KEYTABLE 'FNCKTB' «, t00=0x0053, t01=0x015a}
0x8332…834a              Head {h00=0x0014, h01=0x0050, text=»KWSTART BIN W'3'«, t00=0x0053, t01=0x018e}
0x834a…8360              Head {h00=0x0012, h01=0x0050, text=»KWEND BIN W'4'«, t00=0x0054, t01=0x0016}
0x8360…8376              Head {h00=0x0012, h01=0x0050, text=»KWEOI BIN W'1'«, t00=0x0054, t01=0x002c}
0x8376…838e              Head {h00=0x0014, h01=0x0050, text=»KWCONT BIN W'20'«, t00=0x0054, t01=0x0042}
0x838e…83a8              Head {h00=0x0016, h01=0x0050, text=»KWCANCEL BIN W'19'«, t00=0x0054, t01=0x005a}
0x83a8…83c2              Head {h00=0x0016, h01=0x0050, text=»KWCLEAR BIN W'21' «, t00=0x0054, t01=0x0074}
0x83c2…83f4              Head {h00=0x002e, h01=0x0050, text=»* LENGTH OF THE FUNCTION KEYTABLE 'FNCKTB'«, t00=0x0054, t01=0x008e}
0x83f4…842a              Head {h00=0x0032, h01=0x0050, text=»KWAPLKTB BIN W'22' LENGTH OF FUNCTION KEYTABLE«, t00=0x0054, t01=0x00c0}
0x842a…845e              Head {h00=0x0030, h01=0x0050, text=»* INDICES IN THE SCREEN-MANAGEMENT KEYTABLES«, t00=0x0054, t01=0x00f6}
0x845e…8476              Head {h00=0x0014, h01=0x0050, text=»KWSPEOI BIN W'3'«, t00=0x0054, t01=0x012a}
0x8476…8490              Head {h00=0x0016, h01=0x0050, text=»KWSPCANC BIN W'4' «, t00=0x0054, t01=0x0142}
0x8490…84aa              Head {h00=0x0016, h01=0x0050, text=»KWSPCONT BIN W'17'«, t00=0x0054, t01=0x015c}
0x84aa…84c2              Head {h00=0x0014, h01=0x0050, text=»KWSPCLR BIN W'1'«, t00=0x0054, t01=0x0176}
0x84c2…84f6              Head {h00=0x0030, h01=0x0050, text=»* LENGTHS OF THE SCREEN-MANAGEMENT KEYTABLES«, t00=0x0054, t01=0x018e}
0x84f6…8524              Head {h00=0x002a, h01=0x0050, text=»KWSPKTB BIN W'21' LENGTH OF SPKTAB1/2 «, t00=0x0055, t01=0x0032}
0x8524…8550              Head {h00=0x0028, h01=0x0050, text=»KWSPKTB3 BIN W'12' LENGTH OF SPKTAB3«, t00=0x0055, t01=0x0060}
0x8550…8580              Head {h00=0x002c, h01=0x0050, text=»* 6371 PRINTER PARAMETERS FOR DEMO TP71 «, t00=0x0055, t01=0x008c}
0x8580…85a0              Head {h00=0x001c, h01=0x0050, text=»KCPRTPAR STRGI (21),  C «, t00=0x0055, t01=0x00bc}
0x85a0…85da              Head {h00=0x0036, h01=0x0050, text=»  4X'9066',4X'9266',4X'9366',4X'9466',4X'9566',  C«, t00=0x0055, t01=0x00dc}
0x85da…8614              Head {h00=0x0036, h01=0x0050, text=»  4X'9666',4X'9766',4X'9966',4X'9866',4X'8066',  C«, t00=0x0055, t01=0x0116}
0x8614…864e              Head {h00=0x0036, h01=0x0050, text=»  4X'9166',4X'8066',4X'8055',4X'8044',4X'8044',  C«, t00=0x0055, t01=0x0150}
0x864e…8688              Head {h00=0x0036, h01=0x0050, text=»  4X'9044',4X'9055',4X'9055',4X'9066',4X'9044',  C«, t00=0x0055, t01=0x018a}
0x8688…869a              Head {h00=0x000e, h01=0x0050, text=»  4X'9A66'«, t00=0x0056, t01=0x0034}
0x869a…86ea              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0056, t01=0x0046}
0x86ea…86f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0096}
0x86f4…871e              Head {h00=0x0026, h01=0x0050, text=»* MISCELANEOUS RESERVED VARIABLES «, t00=0x0056, t01=0x00a0}
0x871e…8728              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00ca}
0x8728…8778              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0056, t01=0x00d4}
0x8778…8788              Head {h00=0x000c, h01=0x0050, text=»UQQ BLK «, t00=0x0056, t01=0x0124}
0x8788…8792              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0134}
0x8792…87ba              Head {h00=0x0024, h01=0x0050, text=»* VARIABLES RESERVED FOR SPAPPL «, t00=0x0056, t01=0x013e}
0x87ba…87e8              Head {h00=0x002a, h01=0x0050, text=»NWRETCDE BIN W'0' RETURN CODE (SPAPPL)«, t00=0x0056, t01=0x0166}
0x87e8…880a (87, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* SWITCHES USED BY XAKBIN «, t00=0x0057, t01=0x0004}
0x880a…883c              Head {h00=0x002e, h01=0x0050, text=»SBNOWAIT BOOL FALSE NOWAIT OPTION (XAKBIN)«, t00=0x0057, t01=0x0026}
0x883c…885e              Head {h00=0x001e, h01=0x0050, text=»* SWITCHES USED BY DPECCY «, t00=0x0057, t01=0x0058}
0x885e…8896              Head {h00=0x0034, h01=0x0050, text=»SBEOI BOOL FALSE AMT. QUOTED IN SY.CCY (DPECCY) «, t00=0x0057, t01=0x007a}
0x8896…88ca              Head {h00=0x0030, h01=0x0050, text=»SBCCYIN BOOL FALSE CURRENCY BUYING (DPECCY) «, t00=0x0057, t01=0x00b2}
0x88ca…8900              Head {h00=0x0032, h01=0x0050, text=»SBCCYKTB BOOL FALSE USE CCY KEYTABLE (DPECCY) «, t00=0x0057, t01=0x00e6}
0x8900…8922              Head {h00=0x001e, h01=0x0050, text=»* SWITCHES USED BY DKDSTM «, t00=0x0057, t01=0x011c}
0x8922…895a              Head {h00=0x0034, h01=0x0050, text=»SBFIRST BOOL FALSE DISPLAY TRANS. DATE (DKDSTM) «, t00=0x0057, t01=0x013e}
0x895a…8992              Head {h00=0x0034, h01=0x0050, text=»SBDSDEP BOOL FALSE TRANS. IS A DEPOSIT (DKDSTM) «, t00=0x0057, t01=0x0176}
0x8992…89cc              Head {h00=0x0036, h01=0x0050, text=»SBDSWDR BOOL FALSE TRANS. IS A WITHDRAW. (DKDSTM) «, t00=0x0058, t01=0x001e}
0x89cc…8a04              Head {h00=0x0034, h01=0x0050, text=»SBDSRVS BOOL FALSE TRANS. IS A REVERSAL (DKDSTM)«, t00=0x0058, t01=0x0058}
0x8a04…8a3c              Head {h00=0x0034, h01=0x0050, text=»SBDSTRF BOOL FALSE TRANS. IS A TRANSFER (DKDSTM)«, t00=0x0058, t01=0x0090}
0x8a3c…8a5e              Head {h00=0x001e, h01=0x0050, text=»* VARIABLES USED BY ZDSCIO«, t00=0x0058, t01=0x00c8}
0x8a5e…8a88              Head {h00=0x0026, h01=0x0050, text=»NWXSTAT BIN  EXTENDED STATUS CODE «, t00=0x0058, t01=0x00ea}
0x8a88…8ab4              Head {h00=0x0028, h01=0x0050, text=»NWRECLNG BIN  RECORD LENGTH (ZDSCIO)«, t00=0x0058, t01=0x0114}
0x8ab4…8ae8              Head {h00=0x0030, h01=0x0050, text=»NDLRN1 BCD 12 LOGICAL RECORD NUMBER (ZDSCIO)«, t00=0x0058, t01=0x0140}
0x8ae8…8b1c              Head {h00=0x0030, h01=0x0050, text=»NDLRN2 BCD 12 LOGICAL RECORD NUMBER (ZDSCIO)«, t00=0x0058, t01=0x0174}
0x8b1c…8b4a              Head {h00=0x002a, h01=0x0050, text=»NDLRN3 BCD 12 LOGICAL REC.NR. (ZDSCIO)«, t00=0x0059, t01=0x0018}
0x8b4a…8b84              Head {h00=0x0036, h01=0x0050, text=»SBNOCOPY BOOL FALSE COPY NOT FROM/TO UWB (ZDSCIO) «, t00=0x0059, t01=0x0046}
0x8b84…8bbe              Head {h00=0x0036, h01=0x0050, text=»SBRECAVB BOOL FALSE REC.AVAIL. AFTER READ (ZDSCIO)«, t00=0x0059, t01=0x0080}
0x8bbe…8c0e              Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0059, t01=0x00ba}
0x8c0e…8c1c              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0059, t01=0x010a}
0x8c1c…8c26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0118}
0x8c26…8c30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0122}
0x8c30…8c3c              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0059, t01=0x012c}
0x8c3c…8c40              Head {h00=0x4004, h01=0x0000}
0x8c40…8c44              00 59 01 38                                                                                                                                                                                                                                       ┆ Y 8┆
0x8c44…8c4c (90, 1, 8)   20 04 00 00 00 5a 00 04                                                                                                                                                                                                                           ┆     Z  ┆
0x8c4c…8c9c (91, 0, 400) 00 05 03 94 00 05 02 5a 00 05 02 49 00 14 00 03 01 bd 00 05 01 74 00 05 01 61 00 02 05 2e 00 02 04 22 00 05 01 7a 00 05 01 6d 00 02 02 ee 00 02 04 cb 00 03 00 af 00 02 02 be 00 07 01 ca 00 06 02 21 00 02 02 a6 00 03 01 38 00 02 04 8e 00 05   ┆       Z   I         t   a   .   "   z   m                       !       8      ┆
0x8c9c…8cec              00 0e 00 02 04 94 00 02 02 00 00 03 01 57 00 2b 00 2c 00 37 00 64 00 84 80 66 31 30 31 30 33 31 33 38 30 31 31 30 30 30 33 33 30 30 30 30 30 30 00 d1 b0 14 b0 32 b0 34 b0 36 b1 00 b0 10 01 b1 00 00 b1 00 01 b2 00 00 b0 16 79 99 b0 16 80 00   ┆             W + , 7 d   f1010313801100033000000     2 4 6                y     ┆
0x8cec…8d3c              b0 16 90 00 c3 02 20 20 c3 01 20 c3 02 20 20 c4 05 c0 6b c4 1e 8f 20 c3 02 20 20 db 59 04 c4 03 11 39 c4 05 25 63 c4 10 26 64 82 20 c3 02 20 20 db 59 04 c4 03 11 39 c4 05 c0 6c c4 09 31 b7 84 20 e1 1c 61 c4 08 17 91 c4 0d c0 92 c4 22 32 9c   ┆                  k         Y    9  %c  &d       Y    9   l  1     a         "2 ┆
0x8d3c…8d8c              c4 31 32 9d c4 40 10 96 c3 02 20 20 2a dc 82 20 1d dd 82 20 1c b6 82 20 19 3d 82 20 15 32 85 20 c3 02 20 20 db 59 04 c4 03 11 39 c4 05 da 53 07 c4 0c c3 03 28 52 29 c4 10 15 c2 c4 15 1c 62 c3 02 20 20 db 59 04 c4 03 11 39 c4 05 c0 6b c4 19   ┆ 12  @      *            =   2       Y    9   S     (R)       b     Y    9   k  ┆
0x8d8c…8ddc              db 57 07 db 58 06 82 20 d8 04 84 20 94 20 c3 02 20 20 c4 03 da f2 02 2f 64 c4 17 c0 73 c4 1b 86 20 db f2 02 2f 64 c4 2e 27 67 c4 37 2c 63 c3 02 20 20 db 59 04 c4 03 11 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0b   ┆ W  X                  /d   s       /d .'g 7,c     Y                            ┆
0x8ddc…8e2c (92, 0, 400) 39 c4 05 c0 6c c4 09 34 b7 84 20 db 57 05 db 58 04 d8 04 84 20 94 20 c3 02 20 20 db 59 04 c4 03 11 39 c4 05 1c 61 da 53 07 c4 0c c3 03 28 52 29 c4 10 15 b2 86 20 db 57 07 db 58 06 82 20 d8 04 84 20 94 20 20 02 00 00 20 02 00 02 20 02 00 04   ┆9   l  4    W  X            Y    9   a S     (R)       W  X                     ┆
0x8e2c…8e7c              20 02 00 06 20 02 00 08 20 02 00 0a 00 16 00 0c 30 01 00 22 30 01 00 23 30 02 00 24 30 02 00 26 30 02 00 28 30 02 00 2a 30 02 00 2c 30 03 00 2e 30 03 00 31 30 03 00 34 30 03 00 37 30 04 00 3a 30 04 00 3e 30 04 00 42 00 07 00 00 00 0c 00 07   ┆                0  "0  #0  $0  &0  (0  *0  ,0  .0  10  40  70  :0  >0  B        ┆
0x8e7c…8ecc              00 15 00 13 00 15 00 28 00 17 00 3d 00 18 00 54 00 1f 00 6c 00 1f 00 8b 00 20 00 aa 00 21 00 ca 00 2d 00 eb 06 24 04 c6 06 78 05 0c 06 78 05 0c f0 80 12 10 01 61 7a 01 65 52 01 44 6a 80 01 44 d0 30 02 90 5e 30 20 11 54 2a 30 21 11 54 20 80   ┆       (   =   T   l         !   -   $   x   x       az eR Dj  D 0  ^0  T*0! T  ┆
0x8ecc…8f1c              13 41 d0 e6 20 41 e4 6f 20 41 e3 63 28 41 e1 0f 80 12 10 20 41 e4 60 20 41 e3 54 18 41 e0 0f 41 f0 80 12 10 02 61 65 80 0b 61 49 90 06 2a 61 28 12 57 04 2a 61 29 0c 11 65 53 57 02 61 65 01 65 53 5f 1c 00 90 61 08 90 db 01 44 6c 01 45 16 6a   ┆ A   A o A c(A      A ` A T A  A     ae  aI  *a( W *a)  eSW ae eS_   a    Dl E j┆
0x8f1c…8f6c              5c d0 45 90 d0 30 1a 97 5c 44 d1 54 10 80 14 90 30 0d 90 5c f2 23 96 52 04 31 02 90 16 5f 7a 03 2b 52 00 b6 2b 57 02 41 32 40 6d 34 00 90 00 05 00 05 03 ae 00 05 03 88 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02   ┆  E  0   D T    0    # R 1   _z +R  +W A2@m4                                    ┆

Reduced view