|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 39796 (0x9b74)
Notes: pts_type(SC)
Names: »DEMODD.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »DEMO/DEMODD.SC«
└─⟦this⟧ »FORMAT/DEMODD.SC«
└─⟦this⟧ »PTSDEMO/DEMODD.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=X'50',DEV=DY,BUFL=82
SPDSDYKB DSET FC=X'20',DEV=KA
DSDI DSET FC=X'41',DEV=DI
SPDSPRT DSET FC=X'30',DEV=GP,BUFL=112
DSVCHPRT DSET FC=X'31',DEV=TV,BUFL=98,BUFDS=SPDSPRT
DS0DR DSET FC=X'70',DEV=OD,BUFL=43
DSBCR DSET FC=X'22',DEV=BC
SPDSCPY DSET FC=X'32',DEV=GP,BUFL=112
DSDBS DSET FC=X'C0',DEV=DL
DSEKOSA DSET FC=X'60',DEV=MS ZEKOSA MSU-UNIT
DSFMTFLE DSET FC=X'CA',DEV=DL
DSLNEPRT DSET FC=X'80',DEV=LP,BUFL=110,BUFDS=SPDSPRT
TNDSET DSET FC=X'65',DEV=ND
FMTCTL INDS=SPDSDYKB,OUTDS=SPDSSCRN
START AAMAIN
STACK 256
EJECT
*
CW1 BLK
*
*
*
* TND INDICATORS
*
*
NOPF BOOL F
TNDBAD BOOL F
TNDNDU BOOL F
TNDRCF BOOL F
TNDTRY BOOL F
TNDOPF BOOL F
CASEMP BOOL F
PAYOK BOOL F
TNDBLK BOOL F
TNDREPA BOOL F
TNDCIX BIN TABLE INDEX
TNDIOL BIN TND I/O WORK VARIABLE
TNDST BIN TND I/O STATUS
*
*
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,7), C
'1','1','1','1','1','2','1', 1:EOI C
'1','1','1','1','1','1','1', 2:LIST C
'1','0','1','1','3','1','3', 3:OPEN C
'1','1','1','1','0','1','0', 4:CLOSE C
'1','1','1','1','0','1','0', 5:BLOCK C
'2','1','1','1','0','1','0', 6:UPDATE C
'2','1','1','1','0','1','0', 7:INQUIRY C
'1','1','1','1','0','1','0', 8:DAILY STATEMENTS ( ) C
'2','1','2','0','2','0','2', 9:IN C
'2','2','1','0','2','0','2', 10:OUT C
'1','1','1','0','0','1','0' 11:TRANSFER
*
*
* TND VARIABLES
DELAMT BCD 8 AMOUNT TO DELIVER
TNDDVS STRG 4C DEVICE STATUS
TNDREJ STRG 16C REASONS FOR LAST 16
..REJECTS, FOLLOWED BY '0'
NDMAP STRG '3210' CASSETTE ORDER
NDDUMP BCD 4D NUMBER OF REJECTED NOTES
NDRCLIM BCD 4D'200' REJECT LIMIT
* 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*
* COLUMN 7: CHECK ZEKOSA
* 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
SBTND BOOL FALSE TND AVAILABLE
SBFT80OP BOOL F FT80OP OPEN INDICATOR
SBCP80 BOOL F COPY80 (HP75) PRESENT (.T.)
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
RDCOPY BCD 2D'0' HARDCOPY PRINTER
RDTND BCD 2D'0' TELLER NOTE DISPENSER
************************************************************************
*
* SCREEN-MANAGEMENT VARAIBLES AND WORKVARIABLES
*
************************************************************************
TSP BLK
*
* SCREEN-MANAGEMENT VARIABLES
SPPROMPT BOOL TRUE
SPCHANGE BOOL FALSE
SBZEKERR BOOL FALSE USED IF ERROR IN ZEKOSA
...USAGE
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
WW3 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
SBZEK BOOL FALSE ZEKOSA SWITCH
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
TNDBFF STRG 40 TND I/O BUFFER
************************************************************************
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 *
*
*
*
* T N D REGISTERS:
* - - - ----------
*
NOTES BCDI (4),5D'10000',5D'5000',5D'2000',5D'1000'
TNDREG BCDI (4),5D NUMBER OF NOTEST TO
..DELIVER PER CASSTTE
NDDATA1 BCDI (5,4),5D
NDDATA2 BCDI (2,4),2D'4',2D'3',2D'2',2D'1', C
2D'0',2D'0',2D'0',2D'0'
************************************************************************
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'24' 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)
MAXOUT BIN W'50'
CASMAX BIN W'4' MAX NO. OF CASSETTES
KW7 BIN W'7'
KW8 BIN W'8'
KW9 BIN W'9'
NDLRN1 BCD 12 LOGICAL RECORD NUMBER (ZDSCIO)
NDLRN2 BCD 12 LOGICAL RECORD NUMBER (ZDSCIO)
NDLRN3 BCD 12 LOGICAL REC.NR. (ZDSCIO)
NDRCID BCD 6D'65535'
SBNOCOPY BOOL FALSE COPY NOT FROM/TO UWB (ZDSCIO)
SBRECAVB BOOL FALSE REC.AVAIL. AFTER READ (ZDSCIO)
************************************************************************
PDIV
*
*
END