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

⟦5284923e9⟧ 

    Length: 7858 (0x1eb2)
    Notes: pts_type(SC)
    Names: »ENQ.SC«

Derivation

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

PTS(SC)

 IDENT ENQ 80.11.09 NJ
 DDUM NJDDIV






* THE MODULE TAKES CARE OF THE
* ENQUIRY 
* FUNCTIONS OF BARCLAYS TERMINAL SYSTEM 
 PDIV 
 ENTRY ENQ
 EXPROC POSCUR,PBIN,PBIN
 EXPROC KBREAD,PBIN,PKTAB,PBIN,PBIN 
 EXPROC LEAD,PBIN 
 EXPROC DCSEND,PSTRG
 EXPROC UNPCK 
 EXPROC UNPPRT,PSTRG
  EXPROC ERWRIT,PSTRG 
 EXPROC PUSH,PBIN 
 EXPROC PULL,PBIN 
* 
* 
 INCLUDE EQUATE 
* 
* 
 INCLUDE KTABBE 
 EJECT
ENQ PROC
* 
* ENQ HAS BEEN DEPRESSED AND IT WAS A VALID CALL
* 
 PERF PUSH,CBIN4
ENQ010
ENQ011
 EDWRT DSDY,ENQFRM WRITE MENU ON SCREEN 
 MOVE TSCRBUF,ESC FILL WITH ESC 
********************************************
* READ 1. INPUTFIELD (BRANCH) 
* TAKE APPROPRIATE ACTION, DEPENDING ON 
* THE END-OF-ITEM KEY DEPRESSED 
 MOVE TP1,=W'22'
 PERF POSCUR,TP1,CBIN10 
 MOVE TP1,CBIN3 
 PERF KBREAD,TP1,KTABBE,TP2,CBIN1 
 BERR ENQ010
 IB TP2,ENQ012,	ENT	C 
		ENQ011,	CU	C
		ENQ012,	TAB	C 
		ENQ011,	FDE	C 
		ENQ011,	BDE	C 
		ENQ011,	ENQ	C 
		ENQ090,	FR	C
		ENQ011,	TL	C
		ENQ011	PTR
ENQ012
 MOVE TBIN4,CBIN0 
 PERF LEAD,CBIN1 CREATE ESC!ROW!COL!ATT 
 XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0
 ADD TBIN4,CBIN4 INCREMENT BUFFER POINTER 
 XCOPY TSCRBUF,TBIN4,CBIN3,TKBBUF,CBIN0 
			MOVE KEYED-IN DATA 
 MOVE TSTR3,TKBBUF SAVE FOR PACKING ROUTINE 
 ADD TBIN4,CBIN3
 EJECT
*************************************************** 
* 2. INPUTFIELD (ACCOUNTNUMBER) 
 MOVE TP1,=W'22'
 MOVE TP2,=W'23'
 PERF POSCUR,TP1,TP2
 MOVE TP1,CBIN9 
 PERF KBREAD,TP1,KTABBE,TP2,CBIN1 
 BERR ENQ010
 IB TP2,		C 
		ENQ013,	ENT	C 
		ENQ011,	CU	C
		ENQ013,	TAB	C 
		ENQ011,	FDE	C 
		ENQ011,	BDE	C 
		ENQ011,	ENQ	C 
		ENQ090,	FR	C
		ENQ011,	TL	C
		ENQ011	PTR
ENQ013
 PERF LEAD,CBIN1
 XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0
 ADD TBIN4,CBIN4
 XCOPY TSCRBUF,TBIN4,CBIN9,TKBBUF,CBIN0 
 ADD TBIN4,CBIN9
 EJECT
*************************************************** 
* 3. INPUTFIELD (TYPE)
 MOVE TP1,=W'22'
 MOVE TP2,=W'40'
 PERF POSCUR,TP1,TP2
 MOVE TP1,CBIN2 
 PERF KBREAD,TP1,KTABBE,TP2,CBIN1 
 BERR ENQ010
 IB TP2,		C 
		ENQ014,	ENT	C 
		ENQ011,	CU	C
		ENQ014,	TAB	C 
		ENQ071,	FDE	C 
		ENQ071,	BDE	C 
		ENQ071,	ENQ	C 
		ENQ090,	FR	C
		ENQ071,	TL	C
		ENQ071	PTR
ENQ014
 PERF LEAD,CBIN1
 XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0
 ADD TBIN4,CBIN4
 XCOPY TSCRBUF,TBIN4,CBIN2,TKBBUF,CBIN0 
 ADD TBIN4,CBIN2
 EJECT
**************************************************
* 4. INPUTFIELD (PRINTER) (OPTIONAL)
 MOVE TP1,=W'22'
 MOVE TP2,=W'53'
 PERF POSCUR,TP1,TP2
 MOVE TP1,CBIN2 
 PERF KBREAD,TP1,KTABBE,TP2,CBIN1 
 BERR ENQ010
 IB TP2,		C 
		ENQ015,	ENT	C 
		ENQ011,	CU	C
		ENQ015E,	TAB	C
		ENQ090,	FDE	C 
		ENQ090,	BDE	C 
		ENQ090,	ENQ	C 
		ENQ090,	FR	C
		ENQ090,	TL	C
		ENQ090	PTR
ENQ015
 PERF LEAD,CBIN1
 XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0
 ADD TBIN4,CBIN4
 XCOPY TSCRBUF,TBIN4,CBIN2,TKBBUF,CBIN0 
 ADD TBIN4,CBIN2
ENQ015E 
 EJECT
************************************************* 
* 5. INPUTFIELD (VOUCHER) (OPTIONAL)
 MOVE TP1,=W'22'
 MOVE TP2,=W'66'
 PERF POSCUR,TP1,TP2
 MOVE TP1,CBIN12
 PERF KBREAD,TP1,KTABBE,TP2,CBIN2 
 BERR ENQ010
 IB TP2,		C 
		ENQ030,	ENT	C 
		ENQ011,	CU	C
		ENQ016E,	TAB	C
		ENQ090,	FDE	C 
		ENQ090,	BDE	C 
		ENQ090,	ENQ	C 
		ENQ090,	FR	C
		ENQ090,	TL	C
		ENQ090	PTR
ENQ016
 PERF LEAD,CBIN1
 XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0
 ADD TBIN4,CBIN4
 XCOPY TSCRBUF,TBIN4,CBIN12,TKBBUF,CBIN0
 ADD TBIN4,CBIN12 
ENQ016E 
 EJECT
*************************************************** 
ENQ030
* THE BUFFER IS PACKED NOW AND HAS
* TO BE SENT TO THE MAINFRAME 
 MOVE TSTR2K,TSCRBUF
 MOVE TSTR20,='00030     01 ' 
 XCOPY TSTR20,CBIN5,CBIN3,TSTR3,CBIN0 BRANCH
 XCOPY TSTR20,CBIN12,CBIN5,TTERMID,CBIN0 TERMINALID 
 INSRT TSTR2K,CBIN0,CBIN17,TSTR20,CBIN0 
 PERF DCSEND,TSTR2K 
 BERR ENQ072
* ANSWER RECEIVED 
 XCOPY TSTR2,CBIN0,CBIN2,TSTR2K,CBIN10
 CBE TSTR2,='99',ENQ050 WAS IT FOR THE PRINTER
 SET TENQ ENQ GOING ON, DONT SAVE 
 PERF UNPCK 
 MOVE TP1,=W'24'
 PERF POSCUR,TP1,CBIN1
 MOVE TP1,CBIN1 
 PERF KBREAD,TP1,KTABBE,TP2,CBIN2 
 TBT TINT,ENQ090
 CBNG TBIN4,CBIN6,ENQ090 FINISHED WITH INQUIRIES? 
 B ENQ010 
ENQ050			RECEIVED PRINTER OUTPUT
 PERF UNPPRT
 B ENQ090 
ENQ071
 MOVE TSTR80,='QERR1 - INVALID FUNCTION SELECTION ' 
 PERF ERWRIT
 B ENQ095 
ENQ072
 MOVE TSTR80,='QERR2 - ENQUIRY NOT AVAILABLE '
 PERF ERWRIT
 B ENQ095 
ENQ090
 PERF PULL,CBIN4
 CLEAR TENQ 
 CMP CBIN0,CBIN0 SER CR TO OK 
 B ENQ099 
ENQ095
 PERF PULL,CBIN4
 CLEAR TENQ 
 CMP CBIN0,CBIN1 SET CR TO NOT-OK 
ENQ099
 RET
 PEND 
 EJECT
ENQFRM FRMT		ENQUIRY FORMAT 
 FILLR '1',2
 FILLR ' ',30 
 FTEXT 'ENQ - ENQUIRY INPUT'
 FNL
 FNL
 FILLR ' ',30 
 FTEXT 'ENQUIRIES AVAILABLE'
 FNL
 FNL
 FILLR ' ',15 
 FCOPY ='SAVINGS '
 FCOPY ='ACCOUNT '
 FCOPY ='BALANCE '
 FILLR ' ',23 
 FCOPY ='01'
 FNL
 FILLR ' ',15 
 FCOPY ='SAVINGS '
 FCOPY ='ACCOUNT '
 FCOPY ='BALANCE '
 FCOPY ='AND LAST FIVE ENTRIES  ' 
 FCOPY ='02'
 FNL
 FILLR ' ',15 
 FCOPY ='CURRENT '
 FCOPY ='ACCOUNT '
 FCOPY ='BALANCE '
 FILLR ' ',23 
 FCOPY ='03'
 FNL
 FILLR ' ',15 
 FCOPY ='CURRENT '
 FCOPY ='ACCOUNT '
 FCOPY ='BALANCE '
 FCOPY ='AND LAST FIVE ENTRIES  ' 
 FCOPY ='04'
 FNL
 FILLR ' ',15 
 FCOPY ='CURRENT '
 FCOPY ='ACCOUNT '
 FCOPY ='DETAILS '
 FILLR ' ',23 
 FCOPY ='05'
 FNL
 FILLR ' ',15 
 FCOPY ='CURRENT '
 FCOPY ='ACCOUNT '
 FCOPY ='VOUCHERS ' 
 FILLR ' ',22 
 FCOPY ='06'
 FNL
 FILLR ' ',15 
 FCOPY ='ACCOUNT '
 FCOPY ='INTERIM STATEMENT '
 FILLR ' ',21 
 FCOPY ='07'
 FNL 11 
 FCOPY =' BRANCH' 
 FILLR ' ',7
 FCOPY ='ACC NO'
 FILLR ' ',13 
 FCOPY ='TYPE'
 FILLR ' ',6
 FCOPY ='PRINTER' 
 FILLR ' ',6
 FCOPY ='VOUCHER' 
 FNL
 FMEND
 END

Full view