|
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: 11130 (0x2b7a)
Notes: pts_type(SC)
Names: »QIRDBS.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/QIRDBS.SC«
IDENT QIRDBS DATABASE RECOVERY
DDUM DEMODD
PDIV
EXPROC ZAOPND
EXPROC ZBCLSD
EXPROC ZCRDD
EXPROC ZDRWRD
EXPROC ZEINSD
EXPROC ZGREA
EXPROC MASK
EXT GETLRN
EXT PUTLRN PHYSICAL UPDATE LRN
ENTRY QIRDBS
************************************************************************
* *
* DATABASE RECOVERY*
* - UPDATE THE LAST RECORD NUMBER OF THE DATABASE*
* - UPDATE SYSTEM RECORD VARIABLES:*
* YDLASSAV, YDLASCHQ, YDLASSEQ*
* - RESET THE STATUS OF ALL ACCOUNT RECORDS TO DEBLOCKED*
* *
************************************************************************
QIRDBS PROC
QI000
* *
* UPDATE THE LAST RECORD NUMBER OF THE DATABASE*
**
* TO DO THIS, THE RECORDS BEHIND THE LRN ARE RANDOMLY READ*
* UNTIL THE FIRST RECORD WITH NO DATA
* THEN THE NEW LRN IS WRITTEN TO DISK
*
MOVE WC1STRG8,='DATABA ' DATABASE NAME
MOVE WCSTRG6,='DSC000' ARBITRARY VOLUM E NAME
XCOPY WCSTRG6,KW3,KW3,VCVOLNR1,KW0 CURRENT VOLNR
CALL GETLRN,WC1STRG8,1,WCSTRG6,WW1,NWXSTAT
MOVE NDLRN2,WW1 CONVERT TO DECIMAL
**
0x0000…0042 (0, 0, 400) Head {h00=0x003e, h01=0x0050, text=» IDENT QIRDBS DATABASE RECOVERY «, t00=0x0000, t01=0x0004}
0x0042…0092 Head {h00=0x004c, h01=0x0050, text=» DDUM DEMODD «, t00=0x0000, t01=0x0046}
0x0092…00e2 Head {h00=0x004c, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0096}
0x00e2…00f8 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZAOPND«, t00=0x0000, t01=0x00e6}
0x00f8…010e Head {h00=0x0012, h01=0x0050, text=» EXPROC ZBCLSD«, t00=0x0000, t01=0x00fc}
0x010e…0162 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0000, t01=0x0112}
0x0162…01b6 Head {h00=0x0050, h01=0x0050, text=» EXPROC ZDRWRD «, t00=0x0000, t01=0x0166}
0x01b6…020a Head {h00=0x0050, h01=0x0050, text=» EXPROC ZEINSD «, t00=0x0001, t01=0x002a}
0x020a…0220 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZGREA «, t00=0x0001, t01=0x007e}
0x0220…0274 Head {h00=0x0050, h01=0x0050, text=» EXPROC MASK «, t00=0x0001, t01=0x0094}
0x0274…0288 Head {h00=0x0010, h01=0x0050, text=» EXT GETLRN «, t00=0x0001, t01=0x00e8}
0x0288…02b0 Head {h00=0x0024, h01=0x0050, text=» EXT PUTLRN PHYSICAL UPDATE LRN «, t00=0x0001, t01=0x00fc}
0x02b0…0300 Head {h00=0x004c, h01=0x0050, text=» ENTRY QIRDBS «, t00=0x0001, t01=0x0124}
0x0300…0350 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x0174}
0x0350…03a0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0034}
0x03a0…03f0 Head {h00=0x004c, h01=0x0050, text=»* DATABASE RECOVERY *«, t00=0x0002, t01=0x0084}
0x03f0…0440 Head {h00=0x004c, h01=0x0050, text=»* - UPDATE THE LAST RECORD NUMBER OF THE DATABASE *«, t00=0x0002, t01=0x00d4}
0x0440…0490 Head {h00=0x004c, h01=0x0050, text=»* - UPDATE SYSTEM RECORD VARIABLES: *«, t00=0x0002, t01=0x0124}
0x0490…04e0 Head {h00=0x004c, h01=0x0050, text=»* YDLASSAV, YDLASCHQ, YDLASSEQ *«, t00=0x0002, t01=0x0174}
0x04e0…0530 Head {h00=0x004c, h01=0x0050, text=»* - RESET THE STATUS OF ALL ACCOUNT RECORDS TO DEBLOCKED *«, t00=0x0003, t01=0x0034}
0x0530…0580 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0084}
0x0580…05d0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0003, t01=0x00d4}
0x05d0…0620 Head {h00=0x004c, h01=0x0050, text=»QIRDBS PROC «, t00=0x0003, t01=0x0124}
0x0620…0670 Head {h00=0x004c, h01=0x0050, text=»QI000 «, t00=0x0003, t01=0x0174}
0x0670…06c0 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0034}
0x06c0…0710 Head {h00=0x004c, h01=0x0050, text=»* UPDATE THE LAST RECORD NUMBER OF THE DATABASE *«, t00=0x0004, t01=0x0084}
0x0710…0760 Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0004, t01=0x00d4}
0x0760…07b0 Head {h00=0x004c, h01=0x0050, text=»* TO DO THIS, THE RECORDS BEHIND THE LRN ARE RANDOMLY READ *«, t00=0x0004, t01=0x0124}
0x07b0…07e0 Head {h00=0x002c, h01=0x0050, text=»* UNTIL THE FIRST RECORD WITH NO DATA«, t00=0x0004, t01=0x0174}
0x07e0…0810 Head {h00=0x002c, h01=0x0050, text=»* THEN THE NEW LRN IS WRITTEN TO DISK«, t00=0x0005, t01=0x0014}
0x0810…081a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0044}
0x081a…084a Head {h00=0x002c, h01=0x0050, text=» MOVE WC1STRG8,='DATABA ' DATABASE NAME«, t00=0x0005, t01=0x004e}
0x084a…0880 Head {h00=0x0032, h01=0x0050, text=» MOVE WCSTRG6,='DSC000' ARBITRARY VOLUM E NAME«, t00=0x0005, t01=0x007e}
0x0880…08ba Head {h00=0x0036, h01=0x0050, text=» XCOPY WCSTRG6,KW3,KW3,VCVOLNR1,KW0 CURRENT VOLNR «, t00=0x0005, t01=0x00b4}
0x08ba…08ee Head {h00=0x0030, h01=0x0050, text=» CALL GETLRN,WC1STRG8,1,WCSTRG6,WW1,NWXSTAT «, t00=0x0005, t01=0x00ee}
0x08ee…091a Head {h00=0x0028, h01=0x0050, text=» MOVE NDLRN2,WW1 CONVERT TO DECIMAL «, t00=0x0005, t01=0x0122}
0x091a…096a Head {h00=0x004c, h01=0x0050, text=»* *«, t00=0x0005, t01=0x014e}
0x096a…096e Head {h00=0x0054, h01=0x0050}
0x096e…0972 Head {h00=0x5c53, h01=0x5542}
0x0972…09b0 5c 4e 44 4c 52 4e 32 2c 3d 44 27 31 27 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 ┆ NDLRN2,=D'1' ┆
0x09b0…0a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 06 00 0e 00 4c 00 50 2a 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 ┆ L P* ┆
0x0a00…0a50 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 06 00 66 00 4c 00 50 2a 20 4e 44 4c 52 4e 32 20 4e 4f 57 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 4c 41 53 54 20 52 45 43 4f 52 44 20 4e 55 4d 42 45 52 20 4f 46 20 54 48 45 20 44 41 54 41 42 41 ┆ * f L P* NDLRN2 NOW CONTAINS THE LAST RECORD NUMBER OF THE DATABA┆
0x0a50…0aa0 53 45 00 00 00 00 00 00 00 00 00 00 00 2a 00 06 00 b6 00 4c 00 50 2a 20 20 20 20 53 54 41 52 54 20 52 45 41 44 49 4e 47 20 52 45 43 4f 52 44 53 20 42 45 48 49 4e 44 20 4c 52 4e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆SE * L P* START READING RECORDS BEHIND LRN ┆
0x0aa0…0af0 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 06 01 06 00 4c 00 50 2a 20 54 48 45 20 52 45 43 4f 52 44 53 20 41 52 45 20 53 54 4f 52 45 44 20 49 4e 20 27 46 43 42 55 46 46 45 52 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P* THE RECORDS ARE STORED IN 'FCBUFFER' ┆
0x0af0…0b40 (7, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 06 01 56 00 4c 00 50 2a 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 ┆ * V L P* ┆
0x0b40…0b90 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 07 00 16 00 54 00 50 5c 4d 4f 56 45 5c 57 57 32 2c 3d 57 27 31 32 37 27 5c 53 45 54 20 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * T P MOVE WW2,=W'127' SET RECORD LENGTH ┆
0x0b90…0be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 00 66 00 54 00 50 5c 4d 4f 56 45 5c 57 57 43 4f 55 4e 54 2c 3d 57 27 30 27 5c 49 4e 49 54 20 27 4e 4f 20 44 41 54 41 27 20 43 4f 55 4e 54 5c 5c 00 00 00 00 00 00 00 00 ┆ f T P MOVE WWCOUNT,=W'0' INIT 'NO DATA' COUNT ┆
0x0be0…0c30 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 07 00 be 00 4c 00 50 2a 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 ┆ L P* ┆
0x0c30…0c80 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 07 01 16 00 4c 00 50 2a 20 52 45 41 44 20 4e 45 58 54 20 52 45 43 4f 52 44 20 42 45 48 49 4e 44 20 4c 52 4e 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P* READ NEXT RECORD BEHIND LRN ┆
0x0c80…0cd0 (8, 0, 398) 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 07 01 66 00 4c 00 50 2a 20 20 20 20 49 46 20 54 48 45 52 45 20 41 52 45 20 4d 4f 52 45 20 54 48 45 4e 20 35 30 20 43 4f 4e 53 45 43 55 54 49 56 45 ┆ * f L P* IF THERE ARE MORE THEN 50 CONSECUTIVE┆
0x0cd0…0d20 20 52 45 43 4f 52 44 53 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 08 00 26 00 4c 00 50 2a 20 20 20 20 43 4f 4e 54 41 49 4e 49 4e 47 20 4e 4f 20 44 41 54 41 2c 20 52 45 43 4f 56 45 52 59 20 49 53 20 41 53 53 55 4d ┆ RECORDS * & L P* CONTAINING NO DATA, RECOVERY IS ASSUM┆
0x0d20…0d70 45 44 20 54 4f 20 42 45 20 43 4f 4d 50 4c 45 54 45 44 00 00 00 00 00 00 00 00 00 00 00 2a 00 08 00 76 00 4c 00 50 2a 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 ┆ED TO BE COMPLETED * v L P* ┆
0x0d70…0dc0 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 08 00 c6 00 54 00 50 51 49 30 35 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 ┆ * T PQI050 ┆
0x0dc0…0e0e 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 08 01 16 00 24 00 50 5c 50 45 52 46 5c 5a 47 52 45 41 5c 52 45 4c 45 41 53 45 20 45 58 43 4c 2e 20 41 43 43 45 53 20 ┆ $ P PERF ZGREA RELEASE EXCL. ACCES ┆
0x0e0e…0e5e (9, 0, 400) 00 08 01 6e 00 54 00 50 5c 41 44 44 5c 4e 44 4c 52 4e 32 2c 3d 44 27 31 27 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 ┆ n T P ADD NDLRN2,=D'1' ┆
0x0e5e…0eae 00 00 00 00 00 00 00 00 00 09 00 08 00 28 00 50 5c 52 45 41 44 5c 2e 44 49 52 2c 44 53 44 42 53 2c 46 43 42 55 46 46 45 52 2c 57 57 32 2c 4e 44 4c 52 4e 32 00 09 00 60 00 54 00 50 5c 58 53 54 41 54 5c 44 53 44 42 53 2c 4e 57 58 53 54 41 54 ┆ ( P READ .DIR,DSDBS,FCBUFFER,WW2,NDLRN2 ` T P XSTAT DSDBS,NWXSTAT┆
0x0eae…0efe 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 20 00 09 00 8c 00 54 00 50 5c 4d 4f 56 45 5c 57 57 31 2c 3d 58 ┆ T P MOVE WW1,=X┆
0x0efe…0f4e 27 30 38 30 30 27 5c 53 45 54 20 42 49 54 20 34 3a 20 4e 4f 20 44 41 54 41 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 09 00 e4 00 54 00 50 5c 43 41 4c ┆'0800' SET BIT 4: NO DATA T P CAL┆
0x0f4e…0f9e 4c 5c 4d 41 53 4b 2c 4e 57 58 53 54 41 54 2c 57 57 31 5c 43 48 45 43 4b 20 42 49 54 20 34 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 09 01 3c ┆L MASK,NWXSTAT,WW1 CHECK BIT 4 <┆
0x0f9e…0fee (10, 0, 400) 00 54 00 50 5c 42 4f 4b 5c 51 49 30 35 30 5c 52 45 43 4f 52 44 20 49 53 20 55 53 45 44 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 ┆ T P BOK QI050 RECORD IS USED ┆
0x0fee…103e 00 00 00 00 00 0a 00 04 00 32 00 50 5c 43 42 4e 45 5c 57 57 43 4f 55 4e 54 2c 4b 57 30 2c 51 49 30 36 30 5c 4e 4f 54 20 46 49 52 53 54 20 45 4d 50 54 59 20 52 45 43 4f 52 44 00 0a 00 5c 00 20 00 50 5c 50 45 52 46 5c 5a 42 43 4c 53 44 5c 43 ┆ 2 P CBNE WWCOUNT,KW0,QI060 NOT FIRST EMPTY RECORD P PERF ZBCLSD C┆
0x103e…108e 4c 4f 53 45 20 44 41 54 41 42 41 53 45 20 00 0a 00 92 00 26 00 50 5c 4d 4f 56 45 5c 57 57 31 2c 4e 44 4c 52 4e 32 5c 43 4f 4e 56 45 52 54 20 54 4f 20 42 49 4e 41 52 59 00 0a 00 b6 00 26 00 50 5c 53 55 42 5c 57 57 31 2c 4b 57 31 5c 4c 41 53 ┆LOSE DATABASE & P MOVE WW1,NDLRN2 CONVERT TO BINARY & P SUB WW1,KW1 LAS┆
0x108e…10de 54 20 52 45 43 4f 52 44 20 57 49 54 48 20 44 41 54 41 00 0a 00 e0 00 30 00 50 5c 43 41 4c 4c 5c 50 55 54 4c 52 4e 2c 57 43 31 53 54 52 47 38 2c 31 2c 57 43 53 54 52 47 36 2c 57 57 31 2c 4e 57 58 53 54 41 54 20 00 0a 01 0a 00 1c 00 50 5c 50 ┆T RECORD WITH DATA 0 P CALL PUTLRN,WC1STRG8,1,WCSTRG6,WW1,NWXSTAT P P┆
0x10de…112e 45 52 46 5c 5a 41 4f 50 4e 44 5c 4f 50 45 4e 20 41 47 41 49 4e 20 00 0a 01 3e 00 4c 00 50 2a 20 4e 4f 20 44 41 54 41 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 ┆ERF ZAOPND OPEN AGAIN > L P* NO DATA ┆
0x112e…117e (11, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0a 01 5e 00 0a 00 50 51 49 30 36 30 20 00 0b 00 1e 00 54 00 50 5c 41 44 44 5c 57 57 43 4f 55 4e 54 2c 3d 57 27 31 27 5c 4f 4e 45 20 4d 4f 52 45 20 46 52 45 45 20 52 45 43 ┆ * ^ PQI060 T P ADD WWCOUNT,=W'1' ONE MORE FREE REC┆
0x117e…11ce 4f 52 44 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 0b 00 2c 00 54 00 50 5c 43 42 47 5c 57 57 43 4f 55 4e 54 2c 3d 57 27 35 30 27 2c 51 49 31 30 30 5c 52 45 ┆ORD , T P CBG WWCOUNT,=W'50',QI100 RE┆
0x11ce…121e 43 4f 56 45 52 59 20 43 4f 4d 50 4c 45 54 45 44 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 0b 00 84 00 54 00 50 5c 42 5c 51 49 30 35 30 5c 52 45 41 44 20 4e 45 58 54 20 52 ┆COVERY COMPLETED T P B QI050 READ NEXT R┆
0x121e…126e 45 43 4f 52 44 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 0b 00 dc 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 ┆ECORD L P* ┆
0x126e…12be 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 0b 01 34 00 4c 00 50 2a 20 55 50 44 41 54 45 20 53 59 53 ┆ * 4 L P* UPDATE SYS┆
0x12be…130e (12, 0, 400) 54 45 4d 20 52 45 43 4f 52 44 20 56 41 52 49 41 42 4c 45 53 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 0b 01 84 00 4c 00 50 2a 20 20 20 20 54 4f 20 52 45 46 4c ┆TEM RECORD VARIABLES * L P* TO REFL┆
0x130e…135e 45 43 54 20 54 48 45 20 43 55 52 52 45 4e 54 20 53 49 54 55 41 54 49 4f 4e 20 4f 46 20 54 48 45 20 44 41 54 41 42 41 53 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0c 00 44 00 4c 00 50 2a 20 41 43 43 4f 55 4e 54 20 52 45 ┆ECT THE CURRENT SITUATION OF THE DATABASE * D L P* ACCOUNT RE┆
0x135e…13ae 43 4f 52 44 53 20 41 52 45 20 53 43 41 4e 4e 45 44 20 55 4e 54 49 4c 20 35 30 20 43 4f 4e 53 45 43 55 54 49 56 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 0c 00 94 00 4c 00 50 2a 20 20 20 20 55 4e 55 53 45 44 20 ┆CORDS ARE SCANNED UNTIL 50 CONSECUTIVE * L P* UNUSED ┆
0x13ae…13fe 41 43 43 4f 55 4e 54 20 4e 55 4d 42 45 52 53 20 48 41 56 45 20 42 45 45 4e 20 46 4f 55 4e 44 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 0c 00 e4 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 ┆ACCOUNT NUMBERS HAVE BEEN FOUND * L P* ┆
0x13fe…144e 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 0c 01 34 00 4c 00 50 51 49 31 30 30 5c 5c 5c 5c 5c 00 00 ┆ * 4 L PQI100 ┆
0x144e…149e (13, 0, 400) 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 0c 01 84 00 52 00 50 5c 4d 4f 56 45 5c 59 44 4c 41 53 53 ┆ R P MOVE YDLASS┆
0x149e…14ee 41 56 2c 3d 44 27 31 36 37 39 39 39 27 5c 4c 41 53 54 20 53 41 56 49 4e 47 53 2d 41 43 54 2e 20 4e 55 4d 42 45 52 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 20 00 0d 00 44 00 52 00 50 5c 4d 4f 56 45 5c ┆AV,=D'167999' LAST SAVINGS-ACT. NUMBER D R P MOVE ┆
0x14ee…153e 59 44 4c 41 53 43 48 51 2c 3d 44 27 31 36 37 39 39 38 27 5c 4c 41 53 54 20 43 48 45 51 55 45 2d 41 43 54 2e 20 4e 55 4d 42 45 52 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 20 00 0d 00 9a 00 4c 00 50 ┆YDLASCHQ,=D'167998' LAST CHEQUE-ACT. NUMBER L P┆
0x153e…158e 5c 4d 4f 56 45 5c 59 44 4c 41 53 53 45 51 2c 3d 44 27 30 27 5c 4c 41 53 54 20 54 52 41 4e 53 2e 20 53 45 51 55 45 4e 43 45 20 4e 55 4d 42 45 52 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 0d 00 f0 00 4c 00 50 ┆ MOVE YDLASSEQ,=D'0' LAST TRANS. SEQUENCE NUMBER L P┆
0x158e…15de 5c 4d 4f 56 45 5c 57 57 43 4f 55 4e 54 2c 3d 44 27 30 27 5c 49 4e 49 54 20 43 4f 55 4e 54 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 0d 01 40 00 4c 00 50 ┆ MOVE WWCOUNT,=D'0' INIT COUNT @ L P┆
0x15de…162e (14, 0, 400) 2a 20 53 54 41 52 54 20 57 49 54 48 20 53 41 56 49 4e 47 53 20 41 43 43 4f 55 4e 54 53 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 0d 01 90 00 14 00 50 ┆* START WITH SAVINGS ACCOUNTS * P┆
0x162e…167e 5c 43 4c 45 41 52 5c 53 42 43 48 51 41 43 54 20 00 0e 00 50 00 4e 00 50 5c 4d 4f 56 45 5c 49 44 41 43 54 4e 52 31 2c 3d 44 27 31 36 37 39 39 39 27 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 ┆ CLEAR SBCHQACT P N P MOVE IDACTNR1,=D'167999' ┆
0x167e…16ce 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 0e 00 68 00 4c 00 50 51 49 31 35 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 ┆ h L PQI150 ┆
0x16ce…171e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0e 00 ba 00 24 00 50 5c 50 45 52 46 5c 5a 47 52 45 41 5c 52 45 4c 45 41 53 45 20 45 58 43 4c 2e 20 41 43 43 45 53 20 00 0e 01 0a 00 4c 00 50 5c 41 44 44 5c 49 44 41 43 54 4e 52 31 2c ┆ $ P PERF ZGREA RELEASE EXCL. ACCES L P ADD IDACTNR1,┆
0x171e…176e 3d 44 27 32 27 5c 4e 45 58 54 20 41 43 43 4f 55 4e 54 20 4e 55 4d 42 45 52 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 0e 01 32 00 4c 00 50 5c 4d 4f 56 45 5c 41 44 41 43 54 52 4e 52 ┆=D'2' NEXT ACCOUNT NUMBER 2 L P MOVE ADACTRNR┆
0x176e…17be (15, 0, 400) 2c 49 44 41 43 54 4e 52 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 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 0e 01 82 00 4c 00 50 5c 4d 55 4c 5c 41 44 41 43 54 52 4e 52 2c ┆,IDACTNR1 L P MUL ADACTRNR,┆
0x17be…180e 4b 44 53 48 49 46 54 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 0f 00 42 00 4c 00 50 5c 50 45 52 46 5c 5a 43 52 44 44 2c 41 44 ┆KDSHIFT B L P PERF ZCRDD,AD┆
0x180e…185e 41 43 54 52 4e 52 2c 4e 44 4c 52 4e 31 2c 4b 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 00 92 00 4c 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c ┆ACTRNR,NDLRN1,KW1 L P TBT SBCANCEL,┆
0x185e…18ae 51 49 39 38 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 00 00 00 00 00 00 00 0f 00 e2 00 4c 00 50 5c 54 42 54 5c 53 42 52 45 43 41 56 42 2c ┆QI980 L P TBT SBRECAVB,┆
0x18ae…18fe 51 49 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 00 00 00 00 00 00 00 0f 01 32 00 4c 00 50 2a 20 55 4e 55 53 45 44 20 41 43 43 4f 55 ┆QI200 2 L P* UNUSED ACCOU┆
0x18fe…194e (16, 0, 400) 4e 54 20 4e 55 4d 42 45 52 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 0f 01 82 00 4c 00 50 5c 41 44 44 5c 57 57 43 4f 55 4e 54 2c 3d ┆NT NUMBER * L P ADD WWCOUNT,=┆
0x194e…199e 57 27 31 27 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 10 00 42 00 4c 00 50 5c 43 42 47 5c 57 57 43 4f 55 4e 54 2c 3d ┆W'1' B L P CBG WWCOUNT,=┆
0x199e…19ee 57 27 35 30 27 2c 51 49 37 30 30 5c 52 45 41 44 59 2c 20 53 54 4f 50 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 10 00 92 00 4c 00 50 5c 42 5c 51 49 31 35 30 5c 4e 45 58 54 20 ┆W'50',QI700 READY, STOP L P B QI150 NEXT ┆
0x19ee…1a3e 41 43 43 4f 55 4e 54 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 10 00 e2 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆ACCOUNT L P* ┆
0x1a3e…1a8e 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 10 01 32 00 4c 00 50 2a 20 54 48 45 20 41 43 43 4f 55 4e 54 20 ┆ * 2 L P* THE ACCOUNT ┆
0x1a8e…1ade (17, 0, 400) 52 45 43 4f 52 44 20 49 53 20 41 56 41 49 4c 41 42 4c 45 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 2a 00 10 01 82 00 4c 00 50 2a 20 20 20 20 55 50 44 41 54 45 20 53 59 ┆RECORD IS AVAILABLE, * L P* UPDATE SY┆
0x1ade…1b2e 53 54 45 4d 20 52 45 43 4f 52 44 20 56 41 52 49 41 42 4c 45 53 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 11 00 42 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆STEM RECORD VARIABLES * B L P* ┆
0x1b2e…1b7e 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 11 00 92 00 4c 00 50 51 49 32 30 30 5c 5c 5c 5c 5c 00 00 00 00 ┆ * L PQI200 ┆
0x1b7e…1bce 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 11 00 e2 00 4c 00 50 5c 4d 4f 56 45 5c 57 57 43 4f 55 4e 54 2c ┆ L P MOVE WWCOUNT,┆
0x1bce…1c1e 3d 57 27 30 27 5c 52 45 53 45 54 20 43 4f 55 4e 54 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 11 01 32 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆=W'0' RESET COUNT 2 L P* ┆
0x1c1e…1c6e (18, 0, 400) 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 11 01 82 00 4c 00 50 2a 20 55 50 44 41 54 45 20 4c 41 53 54 20 ┆ * L P* UPDATE LAST ┆
0x1c6e…1cbe 53 41 56 49 4e 47 53 2f 43 48 45 51 55 45 20 41 43 43 4f 55 4e 54 20 4e 55 4d 42 45 52 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 12 00 42 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆SAVINGS/CHEQUE ACCOUNT NUMBER * B L P* ┆
0x1cbe…1d0e 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 12 00 92 00 4c 00 50 5c 54 42 54 5c 53 42 43 48 51 41 43 54 2c ┆ * L P TBT SBCHQACT,┆
0x1d0e…1d5e 51 49 33 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 00 00 00 00 00 00 00 12 00 e2 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆QI300 L P* ┆
0x1d5e…1dae 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 12 01 32 00 4c 00 50 2a 20 53 41 56 49 4e 47 53 20 41 43 43 4f ┆ * 2 L P* SAVINGS ACCO┆
0x1dae…1dfe (19, 0, 400) 55 4e 54 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 12 01 82 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆UNT * L P* ┆
0x1dfe…1e4e 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 13 00 42 00 4c 00 50 5c 43 42 4c 5c 49 44 41 43 54 4e 52 31 2c ┆ * B L P CBL IDACTNR1,┆
0x1e4e…1e9e 59 44 4c 41 53 53 41 56 2c 51 49 34 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 13 00 92 00 4c 00 50 5c 4d 4f 56 45 5c 59 44 4c 41 53 53 41 56 ┆YDLASSAV,QI400 L P MOVE YDLASSAV┆
0x1e9e…1eee 2c 49 44 41 43 54 4e 52 31 5c 55 50 44 41 54 45 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 13 00 e2 00 4c 00 50 5c 42 5c 51 49 34 30 30 5c 5c 5c 00 00 00 ┆,IDACTNR1 UPDATE L P B QI400 ┆
0x1eee…1f3e 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 13 01 32 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2 L P* ┆
0x1f3e…1f8e (20, 0, 400) 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 13 01 82 00 4c 00 50 2a 20 43 48 45 51 55 45 20 41 43 43 4f 55 ┆ * L P* CHEQUE ACCOU┆
0x1f8e…1fde 4e 54 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 14 00 42 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆NT * B L P* ┆
0x1fde…202e 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 14 00 92 00 4c 00 50 51 49 33 30 30 5c 5c 5c 5c 5c 00 00 00 00 ┆ * L PQI300 ┆
0x202e…207e 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 14 00 e2 00 4c 00 50 5c 43 42 4c 5c 49 44 41 43 54 4e 52 31 2c ┆ L P CBL IDACTNR1,┆
0x207e…20ce 59 44 4c 41 53 43 48 51 2c 51 49 34 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 14 01 32 00 4c 00 50 5c 4d 4f 56 45 5c 59 44 4c 41 53 43 48 51 ┆YDLASCHQ,QI400 2 L P MOVE YDLASCHQ┆
0x20ce…211e (21, 0, 400) 2c 49 44 41 43 54 4e 52 31 5c 55 50 44 41 54 45 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 14 01 82 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆,IDACTNR1 UPDATE L P* ┆
0x211e…216e 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 15 00 42 00 4c 00 50 2a 20 55 50 44 41 54 45 20 4c 41 53 54 20 ┆ * B L P* UPDATE LAST ┆
0x216e…21be 54 52 41 4e 53 41 43 54 49 4f 4e 20 53 45 51 55 45 4e 43 45 20 4e 55 4d 42 45 52 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 15 00 92 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆TRANSACTION SEQUENCE NUMBER * L P* ┆
0x21be…220e 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 15 00 e2 00 4c 00 50 51 49 34 30 30 5c 5c 5c 5c 5c 00 00 00 00 ┆ * L PQI400 ┆
0x220e…225e 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 15 01 32 00 4c 00 50 5c 43 42 4c 5c 41 44 4c 41 53 53 45 51 2c ┆ 2 L P CBL ADLASSEQ,┆
0x225e…22ae (22, 0, 400) 59 44 4c 41 53 53 45 51 2c 51 49 35 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 15 01 82 00 4c 00 50 5c 4d 4f 56 45 5c 59 44 4c 41 53 53 45 51 ┆YDLASSEQ,QI500 L P MOVE YDLASSEQ┆
0x22ae…22fe 2c 41 44 4c 41 53 53 45 51 5c 55 50 44 41 54 45 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 16 00 42 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆,ADLASSEQ UPDATE B L P* ┆
0x22fe…234e 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 16 00 92 00 4c 00 50 2a 20 52 45 53 45 54 20 41 43 43 4f 55 4e ┆ * L P* RESET ACCOUN┆
0x234e…239e 54 20 53 54 41 54 55 53 20 54 4f 20 44 45 42 4c 4f 43 4b 45 44 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 2a 00 16 00 e2 00 4c 00 50 2a 20 20 20 20 49 46 20 41 43 43 4f 55 4e ┆T STATUS TO DEBLOCKED, * L P* IF ACCOUN┆
0x239e…23ee 54 20 57 41 53 20 43 4c 4f 53 45 44 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 16 01 32 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆T WAS CLOSED * 2 L P* ┆
0x23ee…243e (23, 0, 400) 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 16 01 82 00 4c 00 50 51 49 35 30 30 5c 5c 5c 5c 5c 00 00 00 00 ┆ * L PQI500 ┆
0x243e…248e 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 17 00 42 00 4c 00 50 5c 43 42 4c 5c 41 44 53 54 41 54 55 53 2c ┆ B L P CBL ADSTATUS,┆
0x248e…24de 3d 44 27 32 27 2c 51 49 36 30 30 5c 41 43 43 4f 55 4e 54 20 4e 4f 54 20 43 4c 4f 53 45 44 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 17 00 92 00 4c 00 50 5c 4d 4f 56 45 5c 41 44 53 54 41 54 55 53 ┆=D'2',QI600 ACCOUNT NOT CLOSED L P MOVE ADSTATUS┆
0x24de…252e 2c 3d 44 27 30 27 5c 44 45 42 4c 4f 43 4b 45 44 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 17 00 e2 00 4c 00 50 5c 50 45 52 46 5c 5a 44 52 57 52 44 2c 41 ┆,=D'0' DEBLOCKED L P PERF ZDRWRD,A┆
0x252e…257e 44 41 43 54 52 4e 52 2c 4e 44 4c 52 4e 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 17 01 32 00 4c 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c ┆DACTRNR,NDLRN1 2 L P TBT SBCANCEL,┆
0x257e…25ce (24, 0, 400) 51 49 39 38 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 00 00 00 00 00 00 00 17 01 82 00 4c 00 50 51 49 36 30 30 5c 5c 5c 5c 5c 00 00 00 00 ┆QI980 L PQI600 ┆
0x25ce…261e 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 18 00 42 00 4c 00 50 5c 42 5c 51 49 31 35 30 5c 5c 5c 00 00 00 ┆ B L P B QI150 ┆
0x261e…266e 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 18 00 92 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L P* ┆
0x266e…26be 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 18 00 e2 00 4c 00 50 2a 20 55 50 44 41 54 45 20 53 59 53 54 45 ┆ * L P* UPDATE SYSTE┆
0x26be…270e 4d 20 52 45 43 4f 52 44 20 56 41 52 49 41 42 4c 45 53 20 46 4f 52 20 4f 4e 45 20 54 59 50 45 20 4f 46 20 41 43 43 4f 55 4e 54 20 44 4f 4e 45 00 00 00 00 00 00 00 00 00 00 2a 00 18 01 32 00 4c 00 50 2a 20 20 20 20 53 45 45 20 49 46 20 54 48 ┆M RECORD VARIABLES FOR ONE TYPE OF ACCOUNT DONE * 2 L P* SEE IF TH┆
0x270e…275e (25, 0, 400) 45 20 43 48 45 51 55 45 20 41 43 43 4f 55 4e 54 53 20 4d 55 53 54 20 53 54 49 4c 4c 20 42 45 20 44 4f 4e 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 18 01 82 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 ┆E CHEQUE ACCOUNTS MUST STILL BE DONE * L P* ┆
0x275e…27ae 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 19 00 42 00 4c 00 50 51 49 37 30 30 5c 5c 5c 5c 5c 00 00 00 00 ┆ * B L PQI700 ┆
0x27ae…27fe 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 19 00 92 00 4c 00 50 5c 54 42 54 5c 53 42 43 48 51 41 43 54 2c ┆ L P TBT SBCHQACT,┆
0x27fe…284e 51 49 39 38 30 5c 52 45 41 44 59 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 19 00 e2 00 4c 00 50 2a 20 44 4f 20 54 48 45 20 43 48 45 51 55 ┆QI980 READY L P* DO THE CHEQU┆
0x284e…289e 45 20 41 43 43 4f 55 4e 54 53 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 19 01 32 00 4c 00 50 5c 53 45 54 5c 53 42 43 48 51 41 43 54 5c ┆E ACCOUNTS * 2 L P SET SBCHQACT ┆
0x289e…28ee (26, 0, 400) 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 19 01 82 00 4e 00 50 5c 4d 4f 56 45 5c 49 44 41 43 54 4e 52 31 ┆ N P MOVE IDACTNR1┆
0x28ee…293e 2c 3d 44 27 31 36 37 39 39 38 27 5c 53 54 41 52 54 20 57 49 54 48 20 43 48 45 51 55 45 20 41 43 43 4f 55 4e 54 53 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 1a 00 42 00 24 00 50 5c 4d 4f 56 45 5c 57 57 43 4f 55 4e ┆,=D'167998' START WITH CHEQUE ACCOUNTS B $ P MOVE WWCOUN┆
0x293e…298e 54 2c 3d 57 27 30 27 5c 52 45 53 45 54 20 43 4f 55 4e 54 20 00 1a 00 94 00 4c 00 50 5c 42 5c 51 49 31 35 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 ┆T,=W'0' RESET COUNT L P B QI150 ┆
0x298e…29de 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1a 00 bc 00 4c 00 50 51 49 39 38 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 ┆ L PQI980 ┆
0x29de…2a2e 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1a 01 0c 00 30 00 50 5c 41 44 44 5c 59 44 4c 41 53 53 45 51 2c 3d 44 27 32 35 27 5c 54 4f 20 47 45 54 20 55 4e 49 51 55 45 20 53 45 51 2e 20 4e 52 53 2e 00 1a 01 5c 00 4c 00 50 ┆ 0 P ADD YDLASSEQ,=D'25' TO GET UNIQUE SEQ. NRS. L P┆
0x2a2e…2a7e (27, 2, 324) 5c 52 45 54 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 00 00 1a 01 90 00 4c 00 50 ┆ RET L P┆
0x2a7e…2ace 5c 50 45 4e 44 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 00 1b 00 50 00 4c 00 50 ┆ PEND P L P┆
0x2ace…2b1e 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 1b 00 a0 00 4c 00 50 ┆************************************************************************ L P┆
0x2b1e…2b6e 5c 45 4e 44 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 00 00 1b 00 f0 40 04 00 00 ┆ END @ ┆
0x2b6e…2b72 00 1b 01 40 ┆ @┆
0x2b72…2b7a (28, 1, 8) 20 04 00 00 00 1c 00 04 ┆ ┆