|
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: 7994 (0x1f3a)
Notes: pts_type(SC)
Names: »DFOACT.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DFOACT.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/DFOACT.SC«
IDENT DFOACT OPEN ACCOUNT
************************************************************************
* MODULE-NAME :*
* DFOACT OPEN ACCOUNT-NUMBER*
* PROCEDURES USED :*
* PAJRN WRITE JOURNAL*
* XBFMT SCREEN-CONTROL*
* XEERR ERROR-ROUTINE*
* ZEINSD WRITE ACCOUNT-RECORD*
* SPAP13 CHECKS IF CARD-NUMBRE ALREADY EXISTS *
* ZCRDD READ ACCOUNT-RECORD *
**
************************************************************************
DDUM DEMODD
PDIV
ENTRY DFOACT
ENTRY SPAP13
EXPROC XHMSU WRITE BADGE CARD
EXPROC PAJRN
EXPROC XBFMT
EXPROC ZCRDD
EXPROC ZEINSD
EXPROC XEERR
EJECT
************************************************************************
*
* OPEN ACCOUNT (CHEQUE OR SAVINGS)
*
************************************************************************
DFOACT PROC
DF000
TBT SBCHEQUE,DF100
ADD YDLASSAV,=D'2'
CBG YDLASSAV,=D'168999',DF900
MOVE IDACTNR1,YDLASSAV
B DF200
DF100
ADD YDLASCHQ,=D'2'
CBG YDLASCHQ,=D'168999',DF900
MOVE IDACTNR1,YDLASCHQ
DF200
* PRINT JOURNAL-ROLL*
SET SBOACT
PERF PAJRN,=W'1' LINE TYPE 1
MOVE TDTRSCDE,=D'080'
PERF PAJRN,=W'2'
*
* DISPLAY THE OPEN ACCOUNT SCREEN
*
DF300
PERF XBFMT,=D'39'
TBT SBCANCEL,DF999
TBF SBCHEQUE,DF350
*
* FOR CHEQUE ACCOUNTS:
* TO GET A CARDNUMBER-KEY WITHOUT BCD 'F' CHARACTERS,
* ADCARDNR IS MULTIPLIED BY 1.
* IN THIS WAY EACH 'F' IS REPLACED BY '0'
*
MUL ADCARDNR,=D'1'
TBF SBCARD,DF350 NO 'CARD'
PERF XHMSU,ADCARDNR WRITE BADGE CARD
*
* INITIATE ACCOUNT-RECORD AND TRANSACTION-RECORD*
*
DF350
MOVE ADACTRNR,IDACTNR1
MUL ADACTRNR,KDSHIFT
ADD YDLASSEQ,=D'1'
MOVE ADLASSEQ,YDLASSEQ
MOVE TDTRSSEQ,ADLASSEQ
DF400
* WRITE ACCOUNT-RECORD*
PERF ZEINSD,ADACTRNR
B DF999
DF900
PERF XEERR,=D'29',KW1 ERROR-MESSAGE , ANSWER MUST
* BE "CANCEL"*
DF999
CLEAR SBOACT
RET
PEND
EJECT
************************************************************************
*
* PROCEDURE NAME: SPAP13
* THIS ROUTINE CHECKS THE CARD-NUMBER KEYED IN IN OPEN-CHEQUE-
* ACCOUNT ( DFOACT ) AS FOLLOWS :
* - CARD-NUMBER IN THE RANGE 1001-9999
* - CARD-NUMBER MAY NOT ALREADY EXIST
************************************************************************
SPAP13 PROC XWRET
PBIN XWRET
S13000
CBL ADCARDNR,=D'1001',S13200
CBG ADCARDNR,=D'9999',S13200
MOVE ADACTRNR,ADCARDNR
*
* SEE IF RECORD IS AVAILABLE ALREADY
* THE RECORD MUST NOT BE COPIED TO THE UWB,
* SO SBNOCOPY IS SET FIRST
*
SET SBNOCOPY DON'T COPY TO UWB
PERF ZCRDD,ADACTRNR,NDLRN1,KW2 READ VIA INDEX 2
TBT SBCANCEL,S13999
TBT SBRECAVB,S13100
B S13999
S13100
MOVE SPBINW4,=W'29'
MOVE XWRET,=W'1'
B S13999
S13200
MOVE SPBINW4,=W'1' VALUE NOT IN RANGE
MOVE XWRET,=W'1'
S13999
RET
PEND
************************************************************************
END
0x0000…002e (0, 0, 400) Head {h00=0x002a, h01=0x0050, text=» IDENT DFOACT OPEN ACCOUNT«, t00=0x0000, t01=0x0004}
0x002e…007e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0032}
0x007e…00ce Head {h00=0x004c, h01=0x0050, text=»* MODULE-NAME : *«, t00=0x0000, t01=0x0082}
0x00ce…011e Head {h00=0x004c, h01=0x0050, text=»* DFOACT OPEN ACCOUNT-NUMBER *«, t00=0x0000, t01=0x00d2}
0x011e…016e Head {h00=0x004c, h01=0x0050, text=»* PROCEDURES USED : *«, t00=0x0000, t01=0x0122}
0x016e…01be Head {h00=0x004c, h01=0x0050, text=»* PAJRN WRITE JOURNAL *«, t00=0x0000, t01=0x0172}
0x01be…020e Head {h00=0x004c, h01=0x0050, text=»* XBFMT SCREEN-CONTROL *«, t00=0x0001, t01=0x0032}
0x020e…025e Head {h00=0x004c, h01=0x0050, text=»* XEERR ERROR-ROUTINE *«, t00=0x0001, t01=0x0082}
0x025e…02ae Head {h00=0x004c, h01=0x0050, text=»* ZEINSD WRITE ACCOUNT-RECORD *«, t00=0x0001, t01=0x00d2}
0x02ae…02fe Head {h00=0x004c, h01=0x0050, text=»* SPAP13 CHECKS IF CARD-NUMBRE ALREADY EXISTS * «, t00=0x0001, t01=0x0122}
0x02fe…034e Head {h00=0x004c, h01=0x0050, text=»* ZCRDD READ ACCOUNT-RECORD *«, t00=0x0001, t01=0x0172}
0x034e…039e Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0032}
0x039e…03ee Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0002, t01=0x0082}
0x03ee…043e Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0002, t01=0x00d2}
0x043e…048e Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0002, t01=0x0122}
0x048e…04de Head {h00=0x004c, h01=0x0050, text=» ENTRY DFOACT «, t00=0x0002, t01=0x0172}
0x04de…04f4 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP13 «, t00=0x0003, t01=0x0032}
0x04f4…051a Head {h00=0x0022, h01=0x0050, text=» EXPROC XHMSU WRITE BADGE CARD«, t00=0x0003, t01=0x0048}
0x051a…056e Head {h00=0x0050, h01=0x0050, text=» EXPROC PAJRN «, t00=0x0003, t01=0x006e}
0x056e…05c2 Head {h00=0x0050, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0003, t01=0x00c2}
0x05c2…05d8 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0003, t01=0x0116}
0x05d8…05ee Head {h00=0x0012, h01=0x0050, text=» EXPROC ZEINSD«, t00=0x0003, t01=0x012c}
0x05ee…0642 Head {h00=0x0050, h01=0x0050, text=» EXPROC XEERR «, t00=0x0003, t01=0x0142}
0x0642…0692 Head {h00=0x004c, h01=0x0050, text=» EJECT «, t00=0x0004, t01=0x0008}
0x0692…06e2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x0058}
0x06e2…06ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a8}
0x06ec…0716 Head {h00=0x0026, h01=0x0050, text=»* OPEN ACCOUNT (CHEQUE OR SAVINGS)«, t00=0x0004, t01=0x00b2}
0x0716…0720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00dc}
0x0720…0770 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x00e6}
0x0770…07c0 Head {h00=0x004c, h01=0x0050, text=»DFOACT PROC «, t00=0x0004, t01=0x0136}
0x07c0…0810 Head {h00=0x004c, h01=0x0050, text=»DF000 «, t00=0x0004, t01=0x0186}
0x0810…0860 Head {h00=0x004c, h01=0x0050, text=» TBT SBCHEQUE,DF100 «, t00=0x0005, t01=0x0046}
0x0860…08b0 Head {h00=0x004c, h01=0x0050, text=» ADD YDLASSAV,=D'2' «, t00=0x0005, t01=0x0096}
0x08b0…08fe Head {h00=0x004a, h01=0x0050, text=» CBG YDLASSAV,=D'168999',DF900 «, t00=0x0005, t01=0x00e6}
0x08fe…094e Head {h00=0x004c, h01=0x0050, text=» MOVE IDACTNR1,YDLASSAV «, t00=0x0005, t01=0x0134}
0x094e…099e Head {h00=0x004c, h01=0x0050, text=» B DF200 «, t00=0x0005, t01=0x0184}
0x099e…09ee Head {h00=0x004c, h01=0x0050, text=»DF100 «, t00=0x0006, t01=0x0044}
0x09ee…0a3c Head {h00=0x004a, h01=0x0050, text=» ADD YDLASCHQ,=D'2' «, t00=0x0006, t01=0x0094}
0x0a3c…0a8a Head {h00=0x004a, h01=0x0050, text=» CBG YDLASCHQ,=D'168999',DF900 «, t00=0x0006, t01=0x00e2}
0x0a8a…0ada Head {h00=0x004c, h01=0x0050, text=» MOVE IDACTNR1,YDLASCHQ «, t00=0x0006, t01=0x0130}
0x0ada…0b2a Head {h00=0x004c, h01=0x0050, text=»DF200 «, t00=0x0006, t01=0x0180}
0x0b2a…0b7a Head {h00=0x004c, h01=0x0050, text=»* PRINT JOURNAL-ROLL *«, t00=0x0007, t01=0x0040}
0x0b7a…0b8e Head {h00=0x0010, h01=0x0050, text=» SET SBOACT «, t00=0x0007, t01=0x0090}
0x0b8e…0bb4 Head {h00=0x0022, h01=0x0050, text=» PERF PAJRN,=W'1' LINE TYPE 1 «, t00=0x0007, t01=0x00a4}
0x0bb4…0c04 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSCDE,=D'080' «, t00=0x0007, t01=0x00ca}
0x0c04…0c56 Head {h00=0x004e, h01=0x0050, text=» PERF PAJRN,=W'2' «, t00=0x0007, t01=0x011a}
0x0c56…0c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016c}
0x0c60…0c8a Head {h00=0x0026, h01=0x0050, text=»* DISPLAY THE OPEN ACCOUNT SCREEN «, t00=0x0007, t01=0x0176}
0x0c8a…0c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0010}
0x0c94…0ce4 Head {h00=0x004c, h01=0x0050, text=»DF300 «, t00=0x0008, t01=0x001a}
0x0ce4…0d34 Head {h00=0x004c, h01=0x0050, text=» PERF XBFMT,=D'39' «, t00=0x0008, t01=0x006a}
0x0d34…0d84 Head {h00=0x004c, h01=0x0050, text=» TBT SBCANCEL,DF999 «, t00=0x0008, t01=0x00ba}
0x0d84…0da0 Head {h00=0x0018, h01=0x0050, text=» TBF SBCHEQUE,DF350 «, t00=0x0008, t01=0x010a}
0x0da0…0daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0126}
0x0daa…0dc8 Head {h00=0x001a, h01=0x0050, text=»* FOR CHEQUE ACCOUNTS:«, t00=0x0008, t01=0x0130}
0x0dc8…0e06 Head {h00=0x003a, h01=0x0050, text=»* TO GET A CARDNUMBER-KEY WITHOUT BCD 'F' CHARACTERS, «, t00=0x0008, t01=0x014e}
0x0e06…0e2c Head {h00=0x0022, h01=0x0050, text=»* ADCARDNR IS MULTIPLIED BY 1.«, t00=0x0008, t01=0x018c}
0x0e2c…0e5e Head {h00=0x002e, h01=0x0050, text=»* IN THIS WAY EACH 'F' IS REPLACED BY '0' «, t00=0x0009, t01=0x0022}
0x0e5e…0e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0054}
0x0e68…0e84 Head {h00=0x0018, h01=0x0050, text=» MUL ADCARDNR,=D'1' «, t00=0x0009, t01=0x005e}
0x0e84…0ea8 Head {h00=0x0020, h01=0x0050, text=» TBF SBCARD,DF350 NO 'CARD' «, t00=0x0009, t01=0x007a}
0x0ea8…0ed6 Head {h00=0x002a, h01=0x0050, text=» PERF XHMSU,ADCARDNR WRITE BADGE CARD «, t00=0x0009, t01=0x009e}
0x0ed6…0ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0ee0…0f30 Head {h00=0x004c, h01=0x0050, text=»* INITIATE ACCOUNT-RECORD AND TRANSACTION-RECORD *«, t00=0x0009, t01=0x00d6}
0x0f30…0f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0126}
0x0f3a…0f48 Head {h00=0x000a, h01=0x0050, text=»DF350 «, t00=0x0009, t01=0x0130}
0x0f48…0f68 Head {h00=0x001c, h01=0x0050, text=» MOVE ADACTRNR,IDACTNR1 «, t00=0x0009, t01=0x013e}
0x0f68…0f86 Head {h00=0x001a, h01=0x0050, text=» MUL ADACTRNR,KDSHIFT «, t00=0x0009, t01=0x015e}
0x0f86…0fd8 Head {h00=0x004e, h01=0x0050, text=» ADD YDLASSEQ,=D'1' «, t00=0x0009, t01=0x017c}
0x0fd8…1028 Head {h00=0x004c, h01=0x0050, text=» MOVE ADLASSEQ,YDLASSEQ «, t00=0x000a, t01=0x003e}
0x1028…1078 Head {h00=0x004c, h01=0x0050, text=» MOVE TDTRSSEQ,ADLASSEQ «, t00=0x000a, t01=0x008e}
0x1078…10c8 Head {h00=0x004c, h01=0x0050, text=»DF400 «, t00=0x000a, t01=0x00de}
0x10c8…1118 Head {h00=0x004c, h01=0x0050, text=»* WRITE ACCOUNT-RECORD *«, t00=0x000a, t01=0x012e}
0x1118…1168 Head {h00=0x004c, h01=0x0050, text=» PERF ZEINSD,ADACTRNR «, t00=0x000a, t01=0x017e}
0x1168…11b8 Head {h00=0x004c, h01=0x0050, text=» B DF999 «, t00=0x000b, t01=0x003e}
0x11b8…1208 Head {h00=0x004c, h01=0x0050, text=»DF900 «, t00=0x000b, t01=0x008e}
0x1208…1258 Head {h00=0x004c, h01=0x0050, text=» PERF XEERR,=D'29',KW1 ERROR-MESSAGE , ANSWER MUST «, t00=0x000b, t01=0x00de}
0x1258…12a8 Head {h00=0x004c, h01=0x0050, text=»* BE "CANCEL" *«, t00=0x000b, t01=0x012e}
0x12a8…12f8 Head {h00=0x004c, h01=0x0050, text=»DF999 «, t00=0x000b, t01=0x017e}
0x12f8…130e Head {h00=0x0012, h01=0x0050, text=» CLEAR SBOACT «, t00=0x000c, t01=0x003e}
0x130e…135e Head {h00=0x004c, h01=0x0050, text=» RET «, t00=0x000c, t01=0x0054}
0x135e…13ae Head {h00=0x004c, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x00a4}
0x13ae…13bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00f4}
0x13bc…140c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000c, t01=0x0102}
0x140c…1416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0152}
0x1416…1438 Head {h00=0x001e, h01=0x0050, text=»* PROCEDURE NAME: SPAP13 «, t00=0x000c, t01=0x015c}
0x1438…1484 Head {h00=0x0048, h01=0x0050, text=»* THIS ROUTINE CHECKS THE CARD-NUMBER KEYED IN IN OPEN-CHEQUE-«, t00=0x000c, t01=0x017e}
0x1484…14b4 Head {h00=0x002c, h01=0x0050, text=»* ACCOUNT ( DFOACT ) AS FOLLOWS :«, t00=0x000d, t01=0x003a}
0x14b4…14ea Head {h00=0x0032, h01=0x0050, text=»* - CARD-NUMBER IN THE RANGE 1001-9999«, t00=0x000d, t01=0x006a}
0x14ea…151e Head {h00=0x0030, h01=0x0050, text=»* - CARD-NUMBER MAY NOT ALREADY EXIST«, t00=0x000d, t01=0x00a0}
0x151e…156e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000d, t01=0x00d4}
0x156e…1588 Head {h00=0x0016, h01=0x0050, text=»SPAP13 PROC XWRET «, t00=0x000d, t01=0x0124}
0x1588…159c Head {h00=0x0010, h01=0x0050, text=» PBIN XWRET «, t00=0x000d, t01=0x013e}
0x159c…15aa Head {h00=0x000a, h01=0x0050, text=»S13000«, t00=0x000d, t01=0x0152}
0x15aa…15d0 Head {h00=0x0022, h01=0x0050, text=» CBL ADCARDNR,=D'1001',S13200 «, t00=0x000d, t01=0x0160}
0x15d0…15f6 Head {h00=0x0022, h01=0x0050, text=» CBG ADCARDNR,=D'9999',S13200 «, t00=0x000d, t01=0x0186}
0x15f6…1622 Head {h00=0x0028, h01=0x0050, text=» MOVE ADACTRNR,ADCARDNR«, t00=0x000e, t01=0x001c}
0x1622…162c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0048}
0x162c…1658 Head {h00=0x0028, h01=0x0050, text=»* SEE IF RECORD IS AVAILABLE ALREADY«, t00=0x000e, t01=0x0052}
0x1658…168c Head {h00=0x0030, h01=0x0050, text=»* THE RECORD MUST NOT BE COPIED TO THE UWB, «, t00=0x000e, t01=0x007e}
0x168c…16ae Head {h00=0x001e, h01=0x0050, text=»* SO SBNOCOPY IS SET FIRST«, t00=0x000e, t01=0x00b2}
0x16ae…16b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d4}
0x16b8…16e0 Head {h00=0x0024, h01=0x0050, text=» SET SBNOCOPY DON'T COPY TO UWB «, t00=0x000e, t01=0x00de}
0x16e0…172c Head {h00=0x0048, h01=0x0050, text=» PERF ZCRDD,ADACTRNR,NDLRN1,KW2 READ VIA INDEX 2 «, t00=0x000e, t01=0x0106}
0x172c…1748 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,S13999«, t00=0x000e, t01=0x0152}
0x1748…1764 Head {h00=0x0018, h01=0x0050, text=» TBT SBRECAVB,S13100«, t00=0x000e, t01=0x016e}
0x1764…1776 Head {h00=0x000e, h01=0x0050, text=» B S13999 «, t00=0x000e, t01=0x018a}
0x1776…1784 Head {h00=0x000a, h01=0x0050, text=»S13100«, t00=0x000f, t01=0x000c}
0x1784…17a0 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,=W'29'«, t00=0x000f, t01=0x001a}
0x17a0…17ba Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x000f, t01=0x0036}
0x17ba…17cc Head {h00=0x000e, h01=0x0050, text=» B S13999 «, t00=0x000f, t01=0x0050}
0x17cc…17da Head {h00=0x000a, h01=0x0050, text=»S13200«, t00=0x000f, t01=0x0062}
0x17da…1808 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW4,=W'1' VALUE NOT IN RANGE«, t00=0x000f, t01=0x0070}
0x1808…1822 Head {h00=0x0016, h01=0x0050, text=» MOVE XWRET,=W'1' «, t00=0x000f, t01=0x009e}
0x1822…1830 Head {h00=0x000a, h01=0x0050, text=»S13999«, t00=0x000f, t01=0x00b8}
0x1830…183c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x00c6}
0x183c…184a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x00d2}
0x184a…189a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000f, t01=0x00e0}
0x189a…18ea Head {h00=0x004c, h01=0x0050, text=» END «, t00=0x000f, t01=0x0130}
0x18ea…18ee Head {h00=0x4004, h01=0x0000}
0x18ee…18f2 00 0f 01 80 ┆ ┆
0x18f2…18fa (16, 1, 8) 20 04 00 00 00 10 00 04 ┆ ┆
0x18fa…194a (17, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 00 01 64 00 06 00 01 2a 20 00 01 00 24 00 16 00 50 2a 20 55 50 44 41 54 45 20 4f 50 45 52 41 54 4f 52 20 00 01 00 2e 00 06 00 01 2a 20 00 01 00 48 00 4c ┆**************************** d * $ P* UPDATE OPERATOR . * H L┆
0x194a…199a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 01 00 52 00 4c ┆ P************************************************************************ R L┆
0x199a…19ea 00 50 44 42 55 4f 50 52 5c 50 52 4f 43 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 a2 00 4c ┆ PDBUOPR PROC L┆
0x19ea…1a3a 00 50 44 42 30 30 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 00 f2 00 4e ┆ PDB000 N┆
0x1a3a…1a8a 00 50 5c 43 42 4e 45 5c 59 44 53 54 41 54 55 53 2c 3d 44 27 31 27 2c 44 42 32 30 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 01 01 42 ┆ P CBNE YDSTATUS,=D'1',DB200 B┆
0x1a8a…1ada (18, 0, 400) 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 02 00 04 ┆ L P* * ┆
0x1ada…1b2a 00 4c 00 50 2a 20 53 59 53 54 45 4d 20 53 54 41 52 54 20 50 52 4f 47 52 45 53 53 49 4e 47 2c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 02 00 54 ┆ L P* SYSTEM START PROGRESSING, * T┆
0x1b2a…1b7a 00 4c 00 50 2a 20 20 20 20 52 45 41 44 20 41 4c 4c 20 4f 50 45 52 41 54 4f 52 20 52 45 43 4f 52 44 53 20 41 4e 44 20 52 45 53 45 54 20 53 54 41 54 55 53 20 54 4f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 02 00 a4 ┆ L P* READ ALL OPERATOR RECORDS AND RESET STATUS TO * ┆
0x1b7a…1bca 00 4c 00 50 2a 20 20 20 20 27 4f 50 45 52 41 54 4f 52 20 4e 4f 54 20 49 4e 20 55 53 45 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 02 00 f4 ┆ L P* 'OPERATOR NOT IN USE' * ┆
0x1bca…1c1a 00 06 00 50 2a 20 00 02 01 44 00 46 00 50 2a 20 53 54 41 52 54 20 53 45 41 52 43 48 49 4e 47 20 4f 46 20 4f 50 45 52 41 54 4f 52 20 52 45 43 4f 52 44 53 20 42 59 20 52 45 41 44 49 4e 47 20 54 48 45 20 53 59 53 54 45 4d 20 52 45 43 4f 52 44 ┆ P* D F P* START SEARCHING OF OPERATOR RECORDS BY READING THE SYSTEM RECORD┆
0x1c1a…1c6a (19, 0, 400) 00 02 01 4e 00 2e 00 50 2a 20 41 4e 44 20 54 48 45 4e 20 43 4f 4e 54 49 4e 55 45 20 42 59 20 49 4e 44 45 58 45 44 20 52 45 41 44 20 4e 45 58 54 2e 20 00 03 00 08 00 06 00 50 2a 20 00 03 00 3a 00 18 00 50 5c 4d 4f 56 45 5c 4f 44 4f 50 52 52 ┆ N . P* AND THEN CONTINUE BY INDEXED READ NEXT. P* : P MOVE ODOPRR┆
0x1c6a…1cba 4e 52 2c 3d 44 27 31 27 00 03 00 44 00 2c 00 50 5c 4d 55 4c 5c 4f 44 4f 50 52 52 4e 52 2c 4b 44 53 48 49 46 54 5c 53 59 53 54 45 4d 20 52 45 43 4f 52 44 20 4b 45 59 20 00 03 00 60 00 2a 00 50 5c 53 45 54 5c 53 42 4e 4f 43 4f 50 59 5c 44 4f ┆NR,=D'1' D , P MUL ODOPRRNR,KDSHIFT SYSTEM RECORD KEY ` * P SET SBNOCOPY DO┆
0x1cba…1d0a 4e 27 54 20 43 4f 50 59 20 52 45 43 4f 52 44 20 54 4f 20 55 57 42 00 03 00 90 00 24 00 50 5c 50 45 52 46 5c 5a 43 52 44 44 2c 4f 44 4f 50 52 52 4e 52 2c 4e 44 4c 52 4e 31 2c 4b 57 31 20 00 03 00 be 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e ┆N'T COPY RECORD TO UWB $ P PERF ZCRDD,ODOPRRNR,NDLRN1,KW1 P TBT SBCAN┆
0x1d0a…1d5a 43 45 4c 2c 44 42 39 30 30 20 00 03 00 e6 00 06 00 50 2a 20 00 03 01 02 00 3a 00 50 2a 20 4e 4f 57 20 53 45 54 20 4e 57 52 45 43 4c 4e 47 20 54 4f 20 54 48 45 20 4c 45 4e 47 54 48 20 4f 46 20 41 4e 20 4f 50 45 52 41 54 4f 52 20 52 45 43 4f ┆CEL,DB900 P* : P* NOW SET NWRECLNG TO THE LENGTH OF AN OPERATOR RECO┆
0x1d5a…1daa 52 44 00 03 01 0c 00 06 00 50 2a 20 00 03 01 4a 00 36 00 50 5c 4d 4f 56 45 5c 4f 44 4f 50 52 52 4e 52 2c 3d 44 27 31 30 30 30 31 27 5c 41 52 42 49 54 52 41 52 59 20 4f 50 45 52 41 54 4f 52 20 4e 55 4d 42 45 52 00 03 01 54 00 24 00 50 5c 4d ┆RD P* J 6 P MOVE ODOPRRNR,=D'10001' ARBITRARY OPERATOR NUMBER T $ P M┆
0x1daa…1dfa (20, 0, 400) 55 4c 5c 4f 44 4f 50 52 52 4e 52 2c 4b 44 53 48 49 46 54 5c 52 45 43 4f 52 44 20 4b 45 59 00 03 01 8e 00 34 00 50 5c 50 45 52 46 5c 5a 59 52 4c 4e 47 2c 4f 44 4f 50 52 52 4e 52 5c 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 49 4e 20 4e 57 52 ┆UL ODOPRRNR,KDSHIFT RECORD KEY 4 P PERF ZYRLNG,ODOPRRNR RECORD LENGTH IN NWR┆
0x1dfa…1e4a 45 43 4c 4e 47 20 00 04 00 26 00 06 00 50 2a 20 00 04 00 5e 00 46 00 50 2a 20 52 45 41 44 20 4e 45 58 54 20 52 45 43 4f 52 44 20 49 4e 20 54 48 45 20 44 41 54 41 42 41 53 45 20 41 4e 44 20 43 48 45 43 4b 20 57 48 45 54 48 45 52 20 4f 52 20 ┆ECLNG & P* ^ F P* READ NEXT RECORD IN THE DATABASE AND CHECK WHETHER OR ┆
0x1e4a…1e9a 4e 4f 54 20 49 54 20 49 53 20 00 04 00 68 00 18 00 50 2a 20 41 4e 20 4f 50 45 52 41 54 4f 52 20 52 45 43 4f 52 44 00 04 00 b2 00 06 00 50 2a 20 00 04 00 ce 00 0a 00 50 44 42 31 30 30 20 00 04 00 d8 00 22 00 50 5c 50 45 52 46 5c 5a 47 52 45 ┆NOT IT IS h P* AN OPERATOR RECORD P* PDB100 " P PERF ZGRE┆
0x1e9a…1eea 41 5c 52 45 4c 45 41 53 45 20 45 58 43 4c 20 41 43 43 45 53 00 04 00 e6 00 4c 00 50 5c 4d 4f 56 45 5c 57 57 31 2c 3d 57 27 31 33 32 27 5c 53 45 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 ┆A RELEASE EXCL ACCES L P MOVE WW1,=W'132' SET REQUESTED LENGTH ┆
0x1eea…1f3a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 01 0c 00 4c 00 50 5c 49 52 4e 45 58 54 5c 44 53 44 42 53 31 2c 46 43 42 55 46 46 45 52 2c 57 57 31 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P IRNEXT DSDBS1,FCBUFFER,WW1 ┆