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

⟦59293064f⟧ 

    Length: 7722 (0x1e2a)
    Notes: pts_type(SC)
    Names: »DIQACT.SC«

Derivation

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

PTS(SC)

 IDENT DIQACT INQUIRE ACCOUNT
	DDUM	DEMODD			
	PDIV				
	ENTRY	DIQACT	INQUIRE ACCOUNT		
	EXPROC	PAJRN	             		 
	EXPROC	QFLTRS
	EXPROC	XBFMT			 
	EXPROC	XEERR			 
	EXPROC	ZCRDD			 
	EXPROC	ZDRWRD			 
***********************************************************************
*        PROCEDURE NAME :*
*                DIQACT*
*        FUNCTIONAL DESCRIPTION :*
*                THIS PROCEDURE DISPLAYS A SPECIFIED ACCOUNT RECORD*
*                AND IF REQUIRED UP TO THE LAST EIGHT TRANSACTIONS * 
*                ACTIONS :*
*                 - PRINT JOURNAL-ROLL*
*                 - UPDATE LAST TRANSACTION SEQUENCE NUMBER*
*                 - DISPLAY ACCOUNT RECORD ( RECORD ALREADY IN UA1-*
*                    WORKBLOCK);
*                    THE OPERATOR CAN REQUEST TRANSACTION INQUIRY;
*                     TRS.INQ. : READ LAST OR PREVIOUS TRANSACTION-*
*                                RECORD INTO UT2*
*                                DISPLAY TRANSACTIONRECORD*
*                                OPERATOR MUST ANSWER : CONTINUE ,*
*                                END-OF-ITEM OR CANCEL*
*                     NO TRS. INQ. : REWRITE ACCOUNTRECORD* 
*                                   RETURN*
*                     CANCEL :   RETURN 
*        PROCEDURES USED :*
*                PAJRN           PRINT JOURNAL-ROLL*
*                QFLTRS          PREVIOUS TRANSACTIONNUMBER            *
*                XBFMT           SCREEN-CONTROL*
*                XEERR           DISPLAY ERRORR-MESSAGE*
*                ZCRDD           READ DATABASE*
*                ZDRWRD          WRITE DATABASE*
************************************************************************
DIQACT	PROC				
DI000					
	SET	SBQACT			
	PERF	PAJRN,=W'1'			
					
	MOVE	TDTRSCDE,=D'70'			
	PERF	PAJRN,=W'2'			
DI100					
	MOVE	IDNR1,=D'1'	INIT OPERATOR ANSWER

Full view