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

⟦e307c097d⟧ 

    Length: 11148 (0x2b8c)
    Notes: pts_type(SC)
    Names: »PBBOOK.SC«

Derivation

└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
    └─⟦this⟧ »PTSDEMO/PBBOOK.SC«

PTS(SC)

         IDENT    PBBOOK                PRINT BOOK
	DDUM	DEMODD
	PDIV 
	EXPROC	PVATTP
	EXPROC	PWDETP
	EXPROC	PZPOSD
	EXPROC	DEFDOC
	EXPROC	QENTRS
	EXPROC	XCLAMP
	EXPROC	XEERR 
	EXPROC	ZCRDD 
	EXPROC	ZDRWRD
	EXPROC	ZMRDF 
	EXPROC	XKZEKO
	ENTRY	PBBOOK 
	ENTRY	PYPOSB 
************************************************************************
* *
*   PROCEDURE:     PBBOOK*
*   FUNCTIONAL DESCRIPTION:*
*      PBBOOK PRINTS ALL UNSTATEMENTED TRANSACTIONS OF A SAVINGS-*
*      ACCOUNT IN A PASSBOOK.*
*      THE ACCOUNT RECORD MUST BE UNDER EXCLUSIVE ACCES AND AVAILABLE*
*      IN UWB 'UA1'.*
*      THE TRANSACTION RECORDS ARE READ INTO UWB 'UT2', SO 'UT1'*
*      REMAINS UNCHANGED.*
*      'FCBUFFER' IS THE ONLY BUFFER USED BY THIS ROUTINE.*
*      THE BOOK-BALANCE, LINENUMBER AND LAST TRANSACTION STATEMENTED*
*      ARE UPDATED IN THE ACCOUNT RECORD.*
*      IF ANY OF THESE VALUES HAVE BEEN UPDATED IN THE ROUTINE,*
*      THE ACCOUNT RECORD MUST BE REWRITTEN TO THE DATABASE.*
*      IF THE ACCOUNT IS CLOSED THEN A CLOSE LINE MUST BE PRINTED*
*      AND THE ACCOUNT STATUS MUST BE SET TO 'CLOSED WITH STATM.'*
*   USE OF VARIABLES:*
*      NDPRTTRS:   POINTS TO THE NEXT TRANSACTION TO BE PRINTED.*
*      NDNEWLINE:  POINTS TO THE LINE ON WHICH MUST BE PRINTED.*
*      UA1 (UWB):  CONTAINS THE ACCOUNT RECORD.*
*      UT2 (UWB):  USED TO READ THE TRANSACTION RECORDS.*
*      FCBUFFER:   BUFFER FOR DATABASE-I/O AND FORMAT-I/O.*
*   WORKVARIABLE USED:*
*      WW1*
* *
************************************************************************
PBBOOK	PROC		PRINT PASSBOOK 
PB000					
	PERF	PVATTP,DSVCHPRT	ATTACH PRINTER
	CBE	RDPRTTYP,=D'3',PB001 
	CBNE	RDPRTTYP,=D'0',PB005
PB001 
	TBT	SBZEK,PB003
* 
* 6371-PRINTER CONTROL
* 
	MOVE	WW1,=W'18'
	MOVE	VCDOCPAR,=C'1010313801100033000000' 
	DSC2	DSVCHPRT,X'11',KW0,VCDOCPAR,WW1 
	DSC1	DSVCHPRT,X'00',KW0
PB003 
	MOVE	WW1,=X'8066'
	DSC1	DSVCHPRT,X'0D',WW1
PB005 
* 
* SAVE ACCOUNT-RECORD VALUES IN WORKFIELDS*
* 
* NDPRTTRS WILL POINT TO THE NEXT TRANSACTION TO BE PRINTED*

Full view