|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 40369 (0x9db1)
Types: Q1_HexDump, reclen=79
Notes: q1file
Names: »BORENTRY«
└─⟦dbbef6eca⟧ Bits:30008596 DDMQ1-0028_DEMONSTRATION_DISK_LMC_SOURCE_Sept_77
└─⟦this⟧ »BORENTRY«
0x0000…004f (0,) 2f 2a 20 54 48 49 53 20 49 53 20 54 48 45 20 53 4f 55 52 43 45 20 4c 49 53 54 49 4e 47 20 46 4f 52 20 4f 52 44 45 52 20 45 4e 54 52 59 20 50 52 4f 47 52 41 4d 20 46 4f 52 20 43 4f 4c 4f 4e 49 41 4c 20 53 59 53 54 45 4d 20 20 20 20 20 20 ┆/* THIS IS THE SOURCE LISTING FOR ORDER ENTRY PROGRAM FOR COLONIAL SYSTEM ┆
0x004f…009e (1,) 56 45 52 53 49 4f 4e 20 23 20 39 2f 31 33 2f 37 37 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VERSION # 9/13/77*/ ┆
0x009e…00ed (2,) 44 43 4c 20 20 31 20 4f 52 44 45 52 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 ORDER, ┆
0x00ed…013c (3,) 20 20 20 20 20 32 20 4f 52 44 45 52 44 41 54 45 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 ORDERDATE CHAR(6), ┆
0x013c…018b (4,) 20 20 20 20 20 32 20 49 4e 56 23 20 43 48 41 52 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 INV# CHAR(5), ┆
0x018b…01da (5,) 20 20 20 20 20 32 20 43 55 53 23 20 43 48 41 52 28 31 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 CUS# CHAR(15), ┆
0x01da…0229 (6,) 20 20 20 20 20 32 20 53 41 4c 45 53 4d 45 4e 23 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SALESMEN# CHAR(6), ┆
0x0229…0278 (7,) 20 20 20 20 20 32 20 53 4f 4c 44 54 4f 20 46 49 58 45 44 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SOLDTO FIXED(5), ┆
0x0278…02c7 (8,) 20 20 20 20 20 32 20 53 4f 4c 44 54 4f 4e 41 4d 45 20 43 48 41 52 28 33 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SOLDTONAME CHAR(30), ┆
0x02c7…0316 (9,) 20 20 20 20 20 32 20 53 4f 4c 44 54 4f 41 44 44 31 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SOLDTOADD1 CHAR(25), ┆
0x0316…0365 (10,) 20 20 20 20 20 32 20 53 4f 4c 44 54 4f 41 44 44 32 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SOLDTOADD2 CHAR(25), ┆
0x0365…03b4 (11,) 20 20 20 20 20 32 20 53 48 49 50 54 4f 20 46 49 58 45 44 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SHIPTO FIXED(5), ┆
0x03b4…0403 (12,) 20 20 20 20 20 32 20 53 48 49 50 54 4f 4e 41 4d 45 20 43 48 41 52 28 33 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SHIPTONAME CHAR(30), ┆
0x0403…0452 (13,) 20 20 20 20 20 32 20 53 48 49 50 54 4f 41 44 44 31 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SHIPTOADD1 CHAR(25), ┆
0x0452…04a1 (14,) 20 20 20 20 20 32 20 53 48 49 50 54 4f 41 44 44 32 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SHIPTOADD2 CHAR(25), ┆
0x04a1…04f0 (15,) 20 20 20 20 20 32 20 55 53 45 52 20 46 49 58 45 44 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 USER FIXED(5), ┆
0x04f0…053f (16,) 20 20 20 20 20 32 20 55 53 45 52 4e 41 4d 45 20 43 48 41 52 28 33 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 USERNAME CHAR(30), ┆
0x053f…058e (17,) 20 20 20 20 20 32 20 50 41 52 54 23 20 43 48 41 52 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 PART# CHAR(8), ┆
0x058e…05dd (18,) 20 20 20 20 20 32 20 44 45 53 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DES CHAR(25), ┆
0x05dd…062c (19,) 20 20 20 20 20 32 20 4f 52 44 45 52 51 54 59 20 46 49 58 45 44 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 ORDERQTY FIXED(6), ┆
0x062c…067b (20,) 20 20 20 20 20 32 20 44 45 4c 49 56 45 52 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DELIVER CHAR(6), ┆
0x067b…06ca (21,) 20 20 20 20 20 32 20 4a 4f 42 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 JOB CHAR(1), ┆
0x06ca…0719 (22,) 20 20 20 20 20 32 20 49 4e 54 45 52 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 INTER CHAR(1), ┆
0x0719…0768 (23,) 20 20 20 20 20 32 20 50 52 4f 4f 46 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 PROOF CHAR(1), ┆
0x0768…07b7 (24,) 20 20 20 20 20 32 20 50 52 54 4f 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 PRTO CHAR(25), ┆
0x07b7…0806 (25,) 20 20 20 20 20 32 20 54 45 52 4d 20 43 48 41 52 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 TERM CHAR(1), ┆
0x0806…0855 (26,) 20 20 20 20 20 32 20 43 4f 4d 4d 45 4e 54 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 COMMENT CHAR(25), ┆
0x0855…08a4 (27,) 20 20 20 20 20 32 20 4f 56 45 52 50 52 49 43 45 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 OVERPRICE FIXED(5,2), ┆
0x08a4…08f3 (28,) 20 20 20 20 20 32 20 44 49 53 50 52 49 43 45 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DISPRICE FIXED(5,2), ┆
0x08f3…0942 (29,) 20 20 20 20 20 32 20 52 55 4e 50 52 49 43 45 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 RUNPRICE FIXED(5,2), ┆
0x0942…0991 (30,) 20 20 20 20 20 32 20 44 49 53 52 55 4e 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DISRUN FIXED(5,2), ┆
0x0991…09e0 (31,) 20 20 20 20 20 32 20 4f 52 55 4e 49 54 51 54 59 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 ORUNITQTY BINARY, ┆
0x09e0…0a2f (32,) 20 20 20 20 20 32 20 4f 52 54 41 58 20 42 49 4e 41 52 59 2c 32 20 42 53 55 50 20 46 49 58 45 44 28 31 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 ORTAX BINARY,2 BSUP FIXED(1), ┆
0x0a2f…0a7e (33,) 20 20 20 20 20 32 20 53 54 41 52 54 4e 55 4d 20 43 48 41 52 28 38 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 STARTNUM CHAR(8); ┆
0x0a7e…0acd (34,) 2f 2a 20 43 4f 4d 4d 45 4e 54 3d 5a 5a 5a 5a 5a 20 46 4f 52 20 43 4c 4f 53 45 44 20 4f 52 44 45 52 20 20 20 20 20 20 20 43 4f 4d 4d 45 4e 54 3d 59 59 59 59 59 20 46 4f 52 20 42 41 43 4b 20 4f 52 44 45 52 20 20 2a 2f 20 20 20 20 20 20 20 ┆/* COMMENT=ZZZZZ FOR CLOSED ORDER COMMENT=YYYYY FOR BACK ORDER */ ┆
0x0acd…0b1c (35,) 44 43 4c 20 20 31 20 48 4f 52 44 45 52 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 HORDER, ┆
0x0b1c…0b6b (36,) 20 20 20 20 20 32 20 48 55 53 45 52 20 46 49 58 45 44 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 HUSER FIXED(5), ┆
0x0b6b…0bba (37,) 20 20 20 20 20 32 20 48 4f 52 44 45 52 44 41 54 45 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 HORDERDATE CHAR(6), ┆
0x0bba…0c09 (38,) 20 20 20 20 20 32 20 48 49 4e 56 23 20 43 48 41 52 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 HINV# CHAR(5), ┆
0x0c09…0c58 (39,) 20 20 20 20 20 32 20 48 55 53 45 52 4e 41 4d 45 20 43 48 41 52 28 33 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 HUSERNAME CHAR(30), ┆
0x0c58…0ca7 (40,) 20 20 20 20 20 32 20 48 50 41 52 54 23 20 43 48 41 52 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 HPART# CHAR(8), ┆
0x0ca7…0cf6 (41,) 20 20 20 20 20 32 20 48 4f 52 44 45 52 51 54 59 20 46 49 58 45 44 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 HORDERQTY FIXED(6), ┆
0x0cf6…0d45 (42,) 20 20 20 20 20 32 20 48 44 49 53 50 52 49 43 45 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 HDISPRICE FIXED(5,2), ┆
0x0d45…0d94 (43,) 20 20 20 20 20 32 20 48 44 49 53 52 55 4e 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 HDISRUN FIXED(5,2), ┆
0x0d94…0de3 (44,) 20 20 20 20 20 32 20 48 4f 52 55 4e 49 54 51 54 59 20 42 49 4e 41 52 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 HORUNITQTY BINARY; ┆
0x0de3…0e32 (45,) 44 43 4c 20 20 31 20 49 4e 56 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 INV, ┆
0x0e32…0e81 (46,) 20 20 20 20 20 32 20 46 4f 52 4d 23 20 43 48 41 52 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FORM# CHAR(8), ┆
0x0e81…0ed0 (47,) 20 20 20 20 20 32 20 46 4f 52 4d 44 45 53 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FORMDES CHAR(25), ┆
0x0ed0…0f1f (48,) 20 20 20 20 20 32 20 46 51 54 59 20 46 49 58 45 44 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FQTY FIXED(6), ┆
0x0f1f…0f6e (49,) 20 20 20 20 20 32 20 46 53 43 48 28 35 29 20 46 49 58 45 44 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FSCH(5) FIXED(5), ┆
0x0f6e…0fbd (50,) 20 20 20 20 20 32 20 44 45 41 4c 50 52 49 43 45 28 35 29 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DEALPRICE(5) FIXED(5,2), ┆
0x0fbd…100c (51,) 20 20 20 20 20 32 20 44 49 52 50 52 49 43 45 28 35 29 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DIRPRICE(5) FIXED(5,2), ┆
0x100c…105b (52,) 20 20 20 20 20 32 20 44 49 53 20 46 49 58 45 44 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 DIS FIXED(2), ┆
0x105b…10aa (53,) 20 20 20 20 20 32 20 55 4e 49 54 51 54 59 20 42 49 4e 41 52 59 2c 32 20 56 41 4c 20 46 49 58 45 44 28 36 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 UNITQTY BINARY,2 VAL FIXED(6,2), ┆
0x10aa…10f9 (54,) 20 20 20 20 20 32 20 4c 4f 43 41 54 49 4f 4e 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LOCATION CHAR(4), ┆
0x10f9…1148 (55,) 20 20 20 20 20 32 20 4c 41 53 54 44 41 54 45 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LASTDATE CHAR(6), ┆
0x1148…1197 (56,) 20 20 20 20 20 32 20 4c 44 41 54 45 20 43 48 41 52 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LDATE CHAR(6), ┆
0x1197…11e6 (57,) 20 20 20 20 20 32 20 41 4d 31 20 46 49 58 45 44 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 AM1 FIXED(6), ┆
0x11e6…1235 (58,) 20 20 20 20 20 32 20 41 4d 32 20 46 49 58 45 44 28 36 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 AM2 FIXED(6), ┆
0x1235…1284 (59,) 20 20 20 20 20 32 20 4c 45 56 45 4c 20 46 49 58 45 44 28 37 29 2c 20 32 20 53 55 50 20 46 49 58 45 44 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 LEVEL FIXED(7), 2 SUP FIXED(1); ┆
0x1284…12d3 (60,) 44 43 4c 20 20 31 20 53 43 55 53 54 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 SCUST, ┆
0x12d3…1322 (61,) 20 20 20 20 20 32 20 43 55 53 43 4f 44 45 20 46 49 58 45 44 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 CUSCODE FIXED(5), ┆
0x1322…1371 (62,) 20 20 20 20 20 32 20 4e 41 4d 45 20 43 48 41 52 28 33 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 NAME CHAR(30), ┆
0x1371…13c0 (63,) 20 20 20 20 20 32 20 41 44 44 31 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 ADD1 CHAR(25), ┆
0x13c0…140f (64,) 20 20 20 20 20 32 20 41 44 44 32 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 ADD2 CHAR(25), ┆
0x140f…145e (65,) 20 20 20 20 20 32 20 56 50 48 4f 4e 45 20 43 48 41 52 28 31 30 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VPHONE CHAR(10), ┆
0x145e…14ad (66,) 20 20 20 20 20 32 20 43 4f 4e 54 41 43 54 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 CONTACT CHAR(25), ┆
0x14ad…14fc (67,) 20 20 20 20 20 32 20 56 43 52 45 44 49 54 20 46 49 58 45 44 28 39 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VCREDIT FIXED(9,2), ┆
0x14fc…154b (68,) 20 20 20 20 20 32 20 54 41 58 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 TAX BINARY, ┆
0x154b…159a (69,) 20 20 20 20 20 32 20 56 42 41 4c 20 46 49 58 45 44 28 39 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VBAL FIXED(9,2), ┆
0x159a…15e9 (70,) 20 20 20 20 20 32 20 56 4b 45 59 4f 46 46 20 46 49 58 45 44 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VKEYOFF FIXED(3), ┆
0x15e9…1638 (71,) 20 20 20 20 20 32 20 4e 4f 52 45 43 53 20 46 49 58 45 44 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 NORECS FIXED(5), ┆
0x1638…1687 (72,) 20 20 20 20 20 32 20 56 4f 50 45 4e 49 4e 56 20 46 49 58 45 44 28 33 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VOPENINV FIXED(3), ┆
0x1687…16d6 (73,) 20 20 20 20 20 32 20 56 4c 41 53 54 43 48 44 41 54 45 20 46 49 58 45 44 28 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VLASTCHDATE FIXED(5), ┆
0x16d6…1725 (74,) 20 20 20 20 20 32 20 56 4c 41 53 54 43 4b 23 20 46 49 58 45 44 28 38 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VLASTCK# FIXED(8), ┆
0x1725…1774 (75,) 20 20 20 20 20 32 20 56 4c 41 53 54 43 4b 41 4d 20 46 49 58 45 44 28 39 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 VLASTCKAM FIXED(9,2); ┆
0x1774…17c3 (76,) 44 43 4c 20 31 20 53 50 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 SP, ┆
0x17c3…1812 (77,) 20 20 20 20 20 20 32 20 53 50 43 4f 44 45 20 43 48 41 52 28 34 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SPCODE CHAR(4), ┆
0x1812…1861 (78,) 20 20 20 20 20 20 32 20 53 50 44 45 53 20 43 48 41 52 28 32 35 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SPDES CHAR(25), ┆
0x1861…18b0 (79,) 20 20 20 20 20 20 32 20 46 4c 41 54 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 FLAT FIXED(5,2), ┆
0x18b0…18ff (80,) 20 20 20 20 20 20 32 20 52 55 4e 20 46 49 58 45 44 28 35 2c 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 RUN FIXED(5,2), ┆
0x18ff…194e (81,) 20 20 20 20 20 20 32 20 52 55 4e 55 4e 49 54 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 RUNUNIT BINARY, ┆
0x194e…199d (82,) 20 20 20 20 20 20 32 20 53 50 44 49 53 20 46 49 58 45 44 28 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 SPDIS FIXED(2); ┆
0x199d…19ec (83,) 44 43 4c 20 20 20 31 20 54 41 58 53 54 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL 1 TAXST, ┆
0x19ec…1a3b (84,) 20 20 20 20 20 20 32 20 54 41 58 43 4f 44 45 20 42 49 4e 41 52 59 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 TAXCODE BINARY, ┆
0x1a3b…1a8a (85,) 20 20 20 20 20 20 32 20 54 41 58 50 45 52 20 46 49 58 45 44 28 32 29 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 TAXPER FIXED(2), ┆
0x1a8a…1ad9 (86,) 20 20 20 20 20 20 32 20 54 41 58 41 4d 4f 55 4e 54 20 46 49 58 45 44 28 39 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 2 TAXAMOUNT FIXED(9,2); ┆
0x1ad9…1b28 (87,) 44 43 4c 20 4d 4d 4d 20 43 48 41 52 28 33 29 2c 44 44 44 20 43 48 41 52 28 32 29 2c 59 59 59 20 43 48 41 52 28 32 29 2c 44 49 53 43 44 41 54 45 20 43 48 41 52 28 38 29 2c 42 54 45 52 4d 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 ┆DCL MMM CHAR(3),DDD CHAR(2),YYY CHAR(2),DISCDATE CHAR(8),BTERM CHAR(1); ┆
0x1b28…1b77 (88,) 44 43 4c 20 44 49 53 43 4f 55 4e 54 20 46 49 58 45 44 28 34 2c 32 29 3b 44 43 4c 20 43 52 45 44 4f 4b 20 43 48 41 52 28 39 29 3b 44 43 4c 20 43 41 52 42 4f 4e 43 4b 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL DISCOUNT FIXED(4,2);DCL CREDOK CHAR(9);DCL CARBONCK CHAR(1); ┆
0x1b77…1bc6 (89,) 44 43 4c 20 42 44 45 41 4c 50 52 49 43 45 28 35 29 20 46 49 58 45 44 28 35 2c 32 29 3b 44 43 4c 20 42 44 49 53 20 46 49 58 45 44 20 28 32 29 3b 44 43 4c 20 44 49 53 4f 56 45 52 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆DCL BDEALPRICE(5) FIXED(5,2);DCL BDIS FIXED (2);DCL DISOVER CHAR(1); ┆
0x1bc6…1c15 (90,) 44 43 4c 20 4f 46 49 4c 45 20 46 49 4c 45 2c 49 4e 56 46 49 4c 45 20 46 49 4c 45 2c 43 55 53 54 20 46 49 4c 45 2c 54 41 58 46 49 4c 45 20 46 49 4c 45 2c 53 50 46 49 4c 45 20 46 49 4c 45 3b 44 43 4c 20 43 53 20 43 48 41 52 28 31 29 3b 20 ┆DCL OFILE FILE,INVFILE FILE,CUST FILE,TAXFILE FILE,SPFILE FILE;DCL CS CHAR(1); ┆
0x1c15…1c64 (91,) 44 43 4c 20 43 4f 46 49 4c 45 20 46 49 4c 45 2c 48 4f 46 49 4c 45 20 46 49 4c 45 3b 44 43 4c 20 4e 45 57 44 49 53 43 4d 45 53 47 20 43 48 41 52 28 31 29 3b 44 43 4c 20 42 43 4f 4d 4d 45 4e 54 20 43 48 41 52 28 32 35 29 3b 20 20 20 20 20 ┆DCL COFILE FILE,HOFILE FILE;DCL NEWDISCMESG CHAR(1);DCL BCOMMENT CHAR(25); ┆
0x1c64…1cb3 (92,) 44 43 4c 20 20 41 20 43 48 41 52 28 31 29 2c 42 4f 52 44 41 54 45 20 43 48 41 52 28 38 29 2c 4d 4d 20 43 48 41 52 28 32 29 2c 44 44 20 43 48 41 52 28 32 29 2c 59 59 20 43 48 41 52 28 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL A CHAR(1),BORDATE CHAR(8),MM CHAR(2),DD CHAR(2),YY CHAR(2); ┆
0x1cb3…1d02 (93,) 44 43 4c 20 20 47 54 4f 54 41 4c 20 46 49 58 45 44 28 31 31 2c 32 29 2c 42 53 51 20 46 49 58 45 44 28 36 29 2c 54 41 58 43 41 4c 20 46 49 58 45 44 28 31 31 2c 32 29 2c 49 4e 4f 52 44 45 52 44 41 54 45 20 43 48 41 52 28 36 29 3b 20 20 20 ┆DCL GTOTAL FIXED(11,2),BSQ FIXED(6),TAXCAL FIXED(11,2),INORDERDATE CHAR(6); ┆
0x1d02…1d51 (94,) 44 43 4c 20 20 42 49 4e 56 23 20 43 48 41 52 28 35 29 2c 42 53 48 49 50 54 4f 20 46 49 58 45 44 28 35 29 2c 4b 51 20 46 49 58 45 44 28 31 32 2c 34 29 2c 4c 51 20 46 49 58 45 44 28 37 2c 34 29 2c 53 51 20 46 49 58 45 44 28 36 29 3b 20 20 ┆DCL BINV# CHAR(5),BSHIPTO FIXED(5),KQ FIXED(12,4),LQ FIXED(7,4),SQ FIXED(6); ┆
0x1d51…1da0 (95,) 44 43 4c 20 43 48 53 4f 4c 44 20 46 49 58 45 44 28 36 2c 31 29 2c 43 48 44 47 20 43 48 41 52 28 35 29 2c 58 31 20 46 49 58 45 44 28 33 29 2c 58 32 20 46 49 58 45 44 28 33 29 2c 43 55 53 57 49 54 43 48 20 43 48 41 52 28 31 29 3b 20 20 20 ┆DCL CHSOLD FIXED(6,1),CHDG CHAR(5),X1 FIXED(3),X2 FIXED(3),CUSWITCH CHAR(1); ┆
0x1da0…1def (96,) 44 43 4c 20 42 50 52 54 4f 20 43 48 41 52 28 32 35 29 2c 42 44 45 4c 49 56 45 52 20 43 48 41 52 28 36 29 2c 47 47 54 4f 54 41 4c 20 46 49 58 45 44 28 31 31 2c 32 29 2c 42 50 52 4f 4f 46 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 ┆DCL BPRTO CHAR(25),BDELIVER CHAR(6),GGTOTAL FIXED(11,2),BPROOF CHAR(1); ┆
0x1def…1e3e (97,) 44 43 4c 20 41 41 28 32 30 29 20 46 49 58 45 44 28 35 29 20 49 4e 49 54 28 28 32 30 29 30 29 2c 42 20 43 48 41 52 28 31 29 2c 4c 4d 4d 20 43 48 41 52 28 32 29 2c 4c 44 44 20 43 48 41 52 28 32 29 2c 4c 59 59 20 43 48 41 52 28 32 29 3b 20 ┆DCL AA(20) FIXED(5) INIT((20)0),B CHAR(1),LMM CHAR(2),LDD CHAR(2),LYY CHAR(2); ┆
0x1e3e…1e8d (98,) 44 43 4c 20 52 28 32 30 29 20 42 49 4e 41 52 59 20 49 4e 49 54 28 28 32 30 29 30 29 2c 44 50 41 52 54 23 20 43 48 41 52 28 38 29 2c 4a 4f 42 54 49 43 4b 53 54 41 52 54 20 43 48 41 52 28 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL R(20) BINARY INIT((20)0),DPART# CHAR(8),JOBTICKSTART CHAR(1); ┆
0x1e8d…1edc (99,) 43 55 53 52 44 3a 20 50 52 4f 43 45 44 55 52 45 28 44 55 4d 53 48 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CUSRD: PROCEDURE(DUMSH); ┆
0x1edc…1f2b (100,) 44 43 4c 20 44 55 4d 53 48 20 46 49 58 45 44 28 35 29 2c 53 44 55 4d 53 48 20 46 49 58 45 44 28 36 2c 31 29 2c 53 41 41 20 46 49 58 45 44 28 36 2c 31 29 3b 4e 46 4f 55 4e 44 3d 30 3b 4a 3d 31 39 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DCL DUMSH FIXED(5),SDUMSH FIXED(6,1),SAA FIXED(6,1);NFOUND=0;J=19; ┆
0x1f2b…1f7a (101,) 52 41 4e 47 45 3a 20 49 46 20 4a 3d 30 20 54 48 45 4e 20 44 4f 3b 52 28 4a 29 3d 30 3b 47 4f 54 4f 20 52 41 4e 4f 55 54 3b 45 4e 44 3b 53 44 55 4d 53 48 3d 44 55 4d 53 48 3b 53 41 41 3d 41 41 28 4a 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆RANGE: IF J=0 THEN DO;R(J)=0;GOTO RANOUT;END;SDUMSH=DUMSH;SAA=AA(J); ┆
0x1f7a…1fc9 (102,) 20 20 20 20 20 49 46 20 28 53 44 55 4d 53 48 2f 31 30 29 20 3c 28 53 41 41 2f 31 30 29 20 54 48 45 4e 20 44 4f 3b 4a 3d 4a 2d 31 3b 47 4f 54 4f 20 52 41 4e 47 45 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF (SDUMSH/10) <(SAA/10) THEN DO;J=J-1;GOTO RANGE;END; ┆
0x1fc9…2018 (103,) 52 41 4e 4f 55 54 3a 20 55 4e 53 50 45 43 28 43 55 53 54 29 3d 52 28 4a 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RANOUT: UNSPEC(CUST)=R(J); ┆
0x2018…2067 (104,) 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 54 4f 20 4d 45 53 47 43 55 53 3b 52 45 41 44 20 4b 45 59 28 44 55 4d 53 48 29 46 49 4c 45 28 43 55 53 54 29 49 4e 54 4f 28 53 43 55 53 54 29 3b 47 4f 54 4f 20 4b 52 3b 20 20 20 20 20 20 20 20 ┆ ON ERROR GOTO MESGCUS;READ KEY(DUMSH)FILE(CUST)INTO(SCUST);GOTO KR; ┆
0x2067…20b6 (105,) 4d 45 53 47 43 55 53 3a 20 4e 46 4f 55 4e 44 3d 31 3b 4b 52 3a 20 52 45 54 55 52 4e 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MESGCUS: NFOUND=1;KR: RETURN;END; ┆
0x20b6…2105 (106,) 42 50 3a 20 50 52 4f 43 45 44 55 52 45 3b 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 32 29 3b 43 41 4c 4c 20 4f 55 54 50 55 54 28 31 2c 36 29 3b 52 45 54 55 52 4e 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BP: PROCEDURE;CALL OUTPUT(1,2);CALL OUTPUT(1,6);RETURN;END; ┆
0x2105…2154 (107,) 20 20 20 4c 43 4f 4e 45 4e 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ LCONEN=0; ┆
0x2154…21a3 (108,) 46 53 52 43 48 3a 20 4f 50 45 4e 20 43 55 53 54 3b 43 41 4c 4c 20 53 45 4f 46 28 43 55 53 54 29 3b 55 4e 53 50 45 43 28 43 55 53 54 29 3d 55 4e 53 50 45 43 28 43 55 53 54 29 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FSRCH: OPEN CUST;CALL SEOF(CUST);UNSPEC(CUST)=UNSPEC(CUST)-1; ┆
0x21a3…21f2 (109,) 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 43 55 53 54 29 49 4e 54 4f 28 53 43 55 53 54 29 3b 41 41 28 32 30 29 3d 43 55 53 43 4f 44 45 3b 52 28 32 30 29 3d 55 4e 53 50 45 43 28 43 55 53 54 29 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READ FILE(CUST)INTO(SCUST);AA(20)=CUSCODE;R(20)=UNSPEC(CUST)-1; ┆
0x21f2…2241 (110,) 44 4f 20 4a 3d 31 20 54 4f 20 31 39 3b 52 28 4a 29 3d 28 52 28 32 30 29 2f 32 30 29 2a 28 32 30 2d 4a 29 3b 55 4e 53 50 45 43 28 43 55 53 54 29 3d 52 28 4a 29 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DO J=1 TO 19;R(J)=(R(20)/20)*(20-J);UNSPEC(CUST)=R(J)-1; ┆
0x2241…2290 (111,) 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 43 55 53 54 29 49 4e 54 4f 28 53 43 55 53 54 29 3b 41 41 28 4a 29 3d 43 55 53 43 4f 44 45 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READ FILE(CUST)INTO(SCUST);AA(J)=CUSCODE;END; ┆
0x2290…22df (112,) 20 20 20 20 49 46 20 4c 43 4f 4e 45 4e 3d 31 20 54 48 45 4e 20 47 4f 54 4f 20 48 45 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF LCONEN=1 THEN GOTO HEAD; ┆
0x22df…232e (113,) 4f 50 45 4e 20 4f 46 49 4c 45 3b 4f 50 45 4e 20 49 4e 56 46 49 4c 45 3b 4f 50 45 4e 20 54 41 58 46 49 4c 45 3b 4f 50 45 4e 20 53 50 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN OFILE;OPEN INVFILE;OPEN TAXFILE;OPEN SPFILE; ┆
0x232e…237d (114,) 41 47 44 41 54 45 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 45 4e 54 45 52 20 54 4f 44 41 59 27 27 53 20 44 41 54 45 20 3a 20 27 29 28 41 28 32 32 29 29 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AGDATE:PUT FILE(D)SKIP EDIT('ENTER TODAY''S DATE : ')(A(22));; ┆
0x237d…23cc (115,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4f 52 44 45 52 44 41 54 45 29 3b 49 4e 4f 52 44 45 52 44 41 54 45 3d 4f 52 44 45 52 44 41 54 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(ORDERDATE);INORDERDATE=ORDERDATE; ┆
0x23cc…241b (116,) 20 20 4d 4d 3d 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 31 2c 32 29 3b 44 44 3d 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ MM=SUBSTR(ORDERDATE,1,2);DD=SUBSTR(ORDERDATE,3,2); ┆
0x241b…246a (117,) 20 20 59 59 3d 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 35 2c 32 29 3b 42 4f 52 44 41 54 45 3d 4d 4d 20 43 41 54 20 27 2f 27 20 43 41 54 20 44 44 20 43 41 54 20 27 2f 27 20 43 41 54 20 59 59 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ YY=SUBSTR(ORDERDATE,5,2);BORDATE=MM CAT '/' CAT DD CAT '/' CAT YY; ┆
0x246a…24b9 (118,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 42 4f 52 44 41 54 45 2c 27 20 3f 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 41 47 44 41 54 45 3b 20 20 ┆ PUT FILE(D)LIST(BORDATE,' ? ');GET SKIP LIST(A);IF A ='Y' THEN GOTO AGDATE; ┆
0x24b9…2508 (119,) 4b 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 28 31 29 20 45 4e 54 45 52 20 4f 52 44 45 52 27 29 28 41 28 33 37 29 29 28 27 28 32 29 20 50 52 49 4e 54 20 4f 52 44 45 52 20 4c 49 53 54 27 29 28 41 28 33 37 29 29 ┆K:PUT FILE(D)SKIP EDIT('(1) ENTER ORDER')(A(37))('(2) PRINT ORDER LIST')(A(37))┆
0x2508…2557 (120,) 20 20 28 27 28 33 29 20 50 52 49 4e 54 20 4a 4f 42 20 54 49 43 4b 45 54 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('(3) PRINT JOB TICKET')(A(37)) ┆
0x2557…25a6 (121,) 20 20 28 27 28 34 29 20 44 45 4c 45 54 45 20 4f 52 44 45 52 20 27 29 28 41 28 33 37 29 29 28 27 28 35 29 20 55 50 44 41 54 45 20 4f 52 44 45 52 20 42 4f 4f 4b 20 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('(4) DELETE ORDER ')(A(37))('(5) UPDATE ORDER BOOK ')(A(37)) ┆
0x25a6…25f5 (122,) 28 27 28 36 29 20 43 4c 45 41 4e 53 45 20 43 4f 46 49 4c 45 20 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆('(6) CLEANSE COFILE ')(A(37)); ┆
0x25f5…2644 (123,) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 49 46 20 41 3d 27 32 27 54 48 45 4e 20 47 4f 54 4f 20 50 52 3b 49 46 20 41 3d 27 33 27 54 48 45 4e 20 44 4f 3b 41 3d 27 31 27 3b 47 4f 54 4f 20 50 52 49 4d 3b 45 4e 44 3b 20 20 20 20 20 ┆GET SKIP LIST(A);IF A='2'THEN GOTO PR;IF A='3'THEN DO;A='1';GOTO PRIM;END; ┆
0x2644…2693 (124,) 20 20 49 46 20 41 3d 27 34 27 20 54 48 45 4e 20 47 4f 54 4f 20 44 45 4c 45 54 45 3b 49 46 20 41 3d 27 35 27 20 54 48 45 4e 20 47 4f 54 4f 20 42 4b 55 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='4' THEN GOTO DELETE;IF A='5' THEN GOTO BKUP; ┆
0x2693…26e2 (125,) 20 49 46 20 41 3d 27 36 27 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 52 45 4d 45 4d 42 45 52 3a 20 53 4f 52 54 2c 4f 20 43 4f 46 49 4c 45 20 43 4f 53 4f 52 54 27 29 28 41 28 33 37 29 29 3b ┆ IF A='6'THEN DO;PUT FILE(D)SKIP EDIT('REMEMBER: SORT,O COFILE COSORT')(A(37));┆
0x26e2…2731 (126,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 33 30 33 20 42 59 54 45 53 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 47 4f 54 4f 20 43 4c 45 41 4e 53 45 5f 43 4f 46 49 4c 45 3b 45 4e 44 3b 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('303 BYTES');GET SKIP LIST('');GOTO CLEANSE_COFILE;END; ┆
0x2731…2780 (127,) 20 20 49 46 20 41 3d 27 45 27 54 48 45 4e 20 53 54 4f 50 3b 49 46 20 41 7f 3d 27 31 27 20 54 48 45 4e 20 47 4f 54 4f 20 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='E'THEN STOP;IF A ='1' THEN GOTO K; ┆
0x2780…27cf (128,) 20 20 20 20 4f 50 45 4e 20 4f 46 49 4c 45 3b 4f 50 45 4e 20 43 55 53 54 3b 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 54 4f 20 48 45 41 44 31 3b 52 45 41 44 20 46 49 4c 45 28 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 3b 20 20 20 20 ┆ OPEN OFILE;OPEN CUST;ON ENDFILE GOTO HEAD1;READ FILE(OFILE)INTO(ORDER); ┆
0x27cf…281e (129,) 20 20 20 20 43 41 4c 4c 20 42 50 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 59 4f 55 20 48 41 56 45 20 46 4f 52 47 4f 54 54 45 4e 20 54 4f 20 55 50 44 41 54 45 20 21 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL BP;PUT FILE(D)SKIP LIST('YOU HAVE FORGOTTEN TO UPDATE ! '); ┆
0x281e…286d (130,) 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 47 4f 54 4f 20 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST('');GOTO K; ┆
0x286d…28bc (131,) 43 4c 45 41 4e 53 45 5f 43 4f 46 49 4c 45 3a 4f 50 45 4e 20 43 4f 46 49 4c 45 3b 43 41 4c 4c 20 53 45 4f 46 28 43 4f 46 49 4c 45 29 3b 55 4e 53 50 45 43 28 43 4f 46 49 4c 45 29 3d 55 4e 53 50 45 43 28 43 4f 46 49 4c 45 29 2d 31 3b 20 20 ┆CLEANSE_COFILE:OPEN COFILE;CALL SEOF(COFILE);UNSPEC(COFILE)=UNSPEC(COFILE)-1; ┆
0x28bc…290b (132,) 20 20 52 45 41 44 20 46 49 4c 45 28 43 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READ FILE(COFILE)INTO(ORDER); ┆
0x290b…295a (133,) 5a 5f 43 4f 4d 4d 45 4e 54 3a 49 46 20 43 4f 4d 4d 45 4e 54 3d 27 5a 5a 5a 5a 5a 27 54 48 45 4e 20 44 4f 3b 55 4e 53 50 45 43 28 43 4f 46 49 4c 45 29 3d 55 4e 53 50 45 43 28 43 4f 46 49 4c 45 29 2d 32 3b 20 20 20 20 20 20 20 20 20 20 20 ┆Z_COMMENT:IF COMMENT='ZZZZZ'THEN DO;UNSPEC(COFILE)=UNSPEC(COFILE)-2; ┆
0x295a…29a9 (134,) 20 20 52 45 41 44 20 46 49 4c 45 28 43 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 3b 47 4f 54 4f 20 5a 5f 43 4f 4d 4d 45 4e 54 3b 45 4e 44 3b 43 4c 4f 53 45 20 43 4f 46 49 4c 45 3b 47 4f 54 4f 20 4b 3b 20 20 20 20 20 20 20 20 20 ┆ READ FILE(COFILE)INTO(ORDER);GOTO Z_COMMENT;END;CLOSE COFILE;GOTO K; ┆
0x29a9…29f8 (135,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29f8…2a47 (136,) 48 45 41 44 31 3a 20 4f 50 45 4e 20 4f 46 49 4c 45 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HEAD1: OPEN OFILE ; ┆
0x2a47…2a96 (137,) 48 45 41 44 3a 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 4f 52 44 45 52 20 23 20 20 20 3a 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 49 4e 56 23 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆HEAD: PUT FILE(D)SKIP LIST('ORDER # : ');GET SKIP LIST(INV#); ┆
0x2a96…2ae5 (138,) 20 20 49 46 20 49 4e 56 23 3d 27 45 4e 44 20 20 27 20 54 48 45 4e 20 47 4f 54 4f 20 46 49 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF INV#='END ' THEN GOTO FIN; ┆
0x2ae5…2b34 (139,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 49 4e 56 23 29 28 41 28 37 29 29 28 27 53 4f 55 52 43 45 20 23 20 20 3a 20 27 29 28 41 28 31 32 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(INV#)(A(7))('SOURCE # : ')(A(12)); ┆
0x2b34…2b83 (140,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 41 4c 45 53 4d 45 4e 23 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 41 4c 45 53 4d 45 4e 23 29 28 41 28 36 29 29 28 27 50 2e 4f 2e 23 20 3a 27 29 28 41 28 31 32 29 29 3b 20 ┆ GET SKIP LIST(SALESMEN#);PUT FILE(D)EDIT(SALESMEN#)(A(6))('P.O.# :')(A(12)); ┆
0x2b83…2bd2 (141,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 43 55 53 23 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(CUS#); ┆
0x2bd2…2c21 (142,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 43 55 53 23 29 28 41 28 32 35 29 29 28 27 53 4f 4c 44 20 3a 20 27 29 28 41 28 37 29 29 3b 20 20 20 20 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(CUS#)(A(25))('SOLD : ')(A(7)); ; ┆
0x2c21…2c70 (143,) 53 41 47 3a 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 43 48 44 47 29 3b 53 4f 4c 44 54 4f 3d 43 48 44 47 3b 49 46 20 28 56 45 52 49 46 59 28 43 48 44 47 2c 27 30 31 32 33 34 35 36 37 38 39 27 29 3d 30 29 54 48 45 4e 20 44 4f 3b 20 20 ┆SAG: GET SKIP LIST(CHDG);SOLDTO=CHDG;IF (VERIFY(CHDG,'0123456789')=0)THEN DO; ┆
0x2c70…2cbf (144,) 20 20 43 41 4c 4c 20 42 50 3b 47 4f 54 4f 20 53 41 47 3b 45 4e 44 3b 49 46 20 43 48 44 47 7f 3d 27 39 39 39 39 39 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL BP;GOTO SAG;END;IF CHDG ='99999' THEN DO; ┆
0x2cbf…2d0e (145,) 20 20 20 20 43 41 4c 4c 20 43 4b 44 49 47 28 43 48 44 47 2c 58 31 2c 58 32 29 3b 49 46 20 58 31 20 7f 3d 20 58 32 20 54 48 45 4e 20 44 4f 3b 53 4f 4c 44 45 52 52 3a 20 43 41 4c 4c 20 42 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL CKDIG(CHDG,X1,X2);IF X1 = X2 THEN DO;SOLDERR: CALL BP; ┆
0x2d0e…2d5d (146,) 47 4f 54 4f 20 53 41 47 3b 45 4e 44 3b 45 4e 44 3b 49 46 20 53 4f 4c 44 54 4f 7f 3d 39 39 39 39 39 20 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 43 55 53 52 44 28 53 4f 4c 44 54 4f 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GOTO SAG;END;END;IF SOLDTO =99999 THEN DO;CALL CUSRD(SOLDTO); ┆
0x2d5d…2dac (147,) 49 46 20 4e 46 4f 55 4e 44 3d 31 20 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 42 50 3b 47 4f 54 4f 20 53 41 47 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF NFOUND=1 THEN DO;CALL BP;GOTO SAG;END; ┆
0x2dac…2dfb (148,) 20 20 20 20 53 4f 4c 44 54 4f 4e 41 4d 45 3d 4e 41 4d 45 3b 53 4f 4c 44 54 4f 41 44 44 31 3d 41 44 44 31 3b 53 4f 4c 44 54 4f 41 44 44 32 3d 41 44 44 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SOLDTONAME=NAME;SOLDTOADD1=ADD1;SOLDTOADD2=ADD2; ┆
0x2dfb…2e4a (149,) 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 4e 41 4d 45 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST(NAME);END; ┆
0x2e4a…2e99 (150,) 20 20 20 20 49 46 20 53 4f 4c 44 54 4f 3d 39 39 39 39 39 20 54 48 45 4e 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 4f 4c 44 54 4f 29 28 50 27 39 39 39 39 39 27 2c 58 28 32 35 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SOLDTO=99999 THEN PUT FILE(D)EDIT(SOLDTO)(P'99999',X(25)); ┆
0x2e99…2ee8 (151,) 20 20 49 46 20 56 43 52 45 44 49 54 3d 30 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 2a 27 29 28 41 28 33 36 29 29 28 27 2a 27 29 28 41 28 31 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF VCREDIT=0 THEN DO;PUT FILE(D)SKIP EDIT('*')(A(36))('*')(A(1)) ┆
0x2ee8…2f37 (152,) 20 20 28 27 2a 27 29 28 58 28 36 29 2c 41 28 31 29 29 28 27 2a 27 29 28 58 28 32 33 29 2c 41 28 37 29 29 28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 58 28 31 32 29 2c 41 28 32 35 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('*')(X(6),A(1))('*')(X(23),A(7))('*************')(X(12),A(25)) ┆
0x2f37…2f86 (153,) 20 20 28 27 2a 2a 44 45 41 44 42 45 41 54 21 2a 2a 27 29 28 58 28 31 32 29 2c 41 28 32 35 29 29 28 27 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 27 29 28 58 28 31 32 29 2c 41 28 32 35 29 29 28 27 2a 27 29 28 58 28 38 29 2c 41 28 31 29 29 20 ┆ ('**DEADBEAT!**')(X(12),A(25))('*************')(X(12),A(25))('*')(X(8),A(1)) ┆
0x2f86…2fd5 (154,) 20 20 28 27 2a 27 29 28 58 28 31 39 29 2c 41 28 39 29 29 28 27 2a 27 29 28 58 28 34 29 2c 41 28 31 29 29 28 27 2a 27 29 28 58 28 32 37 29 2c 41 28 35 29 29 28 27 2a 27 29 28 41 28 31 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('*')(X(19),A(9))('*')(X(4),A(1))('*')(X(27),A(5))('*')(A(1)) ┆
0x2fd5…3024 (155,) 20 20 28 27 2a 27 29 28 58 28 33 35 29 2c 41 28 31 29 29 3b 43 41 4c 4c 20 42 50 3b 44 4f 20 49 3d 31 20 54 4f 20 32 30 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('*')(X(35),A(1));CALL BP;DO I=1 TO 20;END; ┆
0x3024…3073 (156,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(''); ┆
0x3073…30c2 (157,) 43 52 45 44 4f 56 45 52 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 44 4f 20 59 4f 55 20 57 41 4e 54 20 54 4f 20 4f 56 45 52 52 49 44 45 20 43 52 45 44 49 54 20 4c 49 4d 49 54 3f 27 29 3b 20 20 20 20 20 20 20 20 ┆CREDOVER:PUT FILE(D)SKIP LIST('DO YOU WANT TO OVERRIDE CREDIT LIMIT?'); ┆
0x30c2…3111 (158,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 49 46 20 41 3d 27 4e 27 20 54 48 45 4e 20 47 4f 54 4f 20 48 45 41 44 3b 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 43 52 45 44 4f 56 45 52 3b 20 20 20 20 20 20 20 ┆ GET SKIP LIST(A);IF A='N' THEN GOTO HEAD;IF A ='Y' THEN GOTO CREDOVER; ┆
0x3111…3160 (159,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 45 4e 54 45 52 20 43 52 45 44 49 54 20 4c 49 4d 49 54 20 4f 56 45 52 52 49 44 45 20 43 4f 44 45 3a 20 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)SKIP LIST('ENTER CREDIT LIMIT OVERRIDE CODE: '); ┆
0x3160…31af (160,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 43 52 45 44 4f 4b 29 3b 49 46 20 43 52 45 44 4f 4b 7f 3d 27 43 52 45 44 49 54 20 4f 4b 27 20 54 48 45 4e 20 47 4f 54 4f 20 43 52 45 44 4f 56 45 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(CREDOK);IF CREDOK ='CREDIT OK' THEN GOTO CREDOVER; ┆
0x31af…31fe (161,) 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 4f 52 44 45 52 20 23 20 20 20 3a 20 27 29 28 41 28 31 32 29 29 28 49 4e 56 23 29 28 41 28 37 29 29 28 27 53 4f 55 52 43 45 20 20 20 23 3a 20 27 29 28 41 28 31 32 29 29 ┆ PUT FILE(D)SKIP EDIT('ORDER # : ')(A(12))(INV#)(A(7))('SOURCE #: ')(A(12))┆
0x31fe…324d (162,) 20 20 28 53 41 4c 45 53 4d 45 4e 23 29 28 41 28 36 29 29 28 27 43 55 53 54 4f 4d 45 52 20 23 3a 20 27 29 28 41 28 31 32 29 29 28 43 55 53 23 29 28 41 28 32 35 29 29 28 27 53 4f 4c 44 20 3a 20 27 29 28 41 28 37 29 29 20 20 20 20 20 20 20 ┆ (SALESMEN#)(A(6))('CUSTOMER #: ')(A(12))(CUS#)(A(25))('SOLD : ')(A(7)) ┆
0x324d…329c (163,) 20 20 28 4e 41 4d 45 29 28 41 28 33 30 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (NAME)(A(30));END; ┆
0x329c…32eb (164,) 43 52 45 44 52 45 54 3a 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 53 48 49 50 20 3a 20 27 29 3b 48 41 47 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 43 48 44 47 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CREDRET: PUT FILE(D)LIST('SHIP : ');HAG:GET SKIP LIST(CHDG); ┆
0x32eb…333a (165,) 20 20 49 46 20 43 48 44 47 3d 27 53 41 4d 45 20 27 20 54 48 45 4e 20 44 4f 3b 53 48 49 50 54 4f 3d 53 4f 4c 44 54 4f 3b 47 4f 54 4f 20 4b 47 31 3b 45 4e 44 3b 53 48 49 50 54 4f 3d 43 48 44 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF CHDG='SAME ' THEN DO;SHIPTO=SOLDTO;GOTO KG1;END;SHIPTO=CHDG; ┆
0x333a…3389 (166,) 20 20 20 49 46 20 28 56 45 52 49 46 59 28 43 48 44 47 2c 27 30 31 32 33 34 35 36 37 38 39 27 29 3d 30 29 54 48 45 4e 20 44 4f 3b 20 43 41 4c 4c 20 42 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF (VERIFY(CHDG,'0123456789')=0)THEN DO; CALL BP; ┆
0x3389…33d8 (167,) 20 20 20 47 4f 54 4f 20 48 41 47 3b 45 4e 44 3b 49 46 20 43 48 44 47 7f 3d 27 39 39 39 39 39 27 20 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 43 4b 44 49 47 28 43 48 44 47 2c 58 31 2c 58 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO HAG;END;IF CHDG ='99999' THEN DO;CALL CKDIG(CHDG,X1,X2); ┆
0x33d8…3427 (168,) 20 20 49 46 20 58 31 20 7f 3d 58 32 20 54 48 45 4e 20 44 4f 3b 53 48 49 50 45 52 52 3a 20 43 41 4c 4c 20 42 50 3b 47 4f 54 4f 20 48 41 47 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF X1 =X2 THEN DO;SHIPERR: CALL BP;GOTO HAG;END;END; ┆
0x3427…3476 (169,) 20 20 20 20 20 49 46 20 53 48 49 50 54 4f 7f 3d 39 39 39 39 39 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SHIPTO =99999 THEN DO; ┆
0x3476…34c5 (170,) 43 41 4c 4c 20 43 55 53 52 44 28 53 48 49 50 54 4f 29 3b 49 46 20 4e 46 4f 55 4e 44 3d 31 20 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 42 50 3b 47 4f 54 4f 20 48 41 47 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CALL CUSRD(SHIPTO);IF NFOUND=1 THEN DO;CALL BP;GOTO HAG;END; ┆
0x34c5…3514 (171,) 4b 47 31 3a 20 53 48 49 50 54 4f 4e 41 4d 45 3d 4e 41 4d 45 3b 53 48 49 50 54 4f 41 44 44 31 3d 41 44 44 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KG1: SHIPTONAME=NAME;SHIPTOADD1=ADD1; ┆
0x3514…3563 (172,) 20 20 20 20 53 48 49 50 54 4f 41 44 44 32 3d 41 44 44 32 3b 4f 52 54 41 58 3d 54 41 58 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SHIPTOADD2=ADD2;ORTAX=TAX; ┆
0x3563…35b2 (173,) 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 4e 41 4d 45 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D)LIST(NAME);END; ┆
0x35b2…3601 (174,) 20 20 20 49 46 20 53 48 49 50 54 4f 3d 39 39 39 39 39 54 48 45 4e 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 48 49 50 54 4f 29 28 50 27 39 39 39 39 39 27 2c 58 28 32 35 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SHIPTO=99999THEN PUT FILE(D)EDIT(SHIPTO)(P'99999',X(25)); ┆
0x3601…3650 (175,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 55 53 45 52 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('USER : '); ┆
0x3650…369f (176,) 52 41 47 3a 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 43 48 44 47 29 3b 49 46 20 43 48 44 47 3d 27 53 41 4d 45 20 27 20 54 48 45 4e 20 44 4f 3b 55 53 45 52 3d 53 48 49 50 54 4f 3b 47 4f 54 4f 20 4b 47 32 3b 45 4e 44 3b 20 20 20 20 20 20 ┆RAG:GET SKIP LIST(CHDG);IF CHDG='SAME ' THEN DO;USER=SHIPTO;GOTO KG2;END; ┆
0x369f…36ee (177,) 20 20 55 53 45 52 3d 43 48 44 47 3b 49 46 20 28 56 45 52 49 46 59 28 43 48 44 47 2c 27 30 31 32 33 34 35 36 37 38 39 27 29 3d 30 29 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ USER=CHDG;IF (VERIFY(CHDG,'0123456789')=0)THEN DO; ┆
0x36ee…373d (178,) 20 20 43 41 4c 4c 20 42 50 3b 47 4f 54 4f 20 52 41 47 3b 45 4e 44 3b 49 46 20 43 48 44 47 7f 3d 27 39 39 39 39 39 27 20 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 43 4b 44 49 47 28 43 48 44 47 2c 58 31 2c 58 32 29 3b 20 20 20 20 20 20 20 20 ┆ CALL BP;GOTO RAG;END;IF CHDG ='99999' THEN DO;CALL CKDIG(CHDG,X1,X2); ┆
0x373d…378c (179,) 20 20 49 46 20 58 31 20 7f 3d 20 58 32 20 54 48 45 4e 20 44 4f 3b 55 53 45 52 45 52 52 3a 20 43 41 4c 4c 20 42 50 3b 47 4f 54 4f 20 52 41 47 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF X1 = X2 THEN DO;USERERR: CALL BP;GOTO RAG;END;END; ┆
0x378c…37db (180,) 20 20 20 20 49 46 20 55 53 45 52 7f 3d 39 39 39 39 39 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF USER =99999 THEN DO; ┆
0x37db…382a (181,) 43 41 4c 4c 20 43 55 53 52 44 28 55 53 45 52 29 3b 49 46 20 4e 46 4f 55 4e 44 3d 31 20 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 42 50 3b 47 4f 54 4f 20 52 41 47 3b 45 4e 44 3b 4b 47 32 3a 20 55 53 45 52 4e 41 4d 45 3d 4e 41 4d 45 3b 20 20 ┆CALL CUSRD(USER);IF NFOUND=1 THEN DO;CALL BP;GOTO RAG;END;KG2: USERNAME=NAME; ┆
0x382a…3879 (182,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 4e 41 4d 45 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST(NAME);END; ┆
0x3879…38c8 (183,) 20 20 20 20 49 46 20 55 53 45 52 3d 39 39 39 39 39 20 54 48 45 4e 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 55 53 45 52 29 28 50 27 39 39 39 39 39 27 2c 58 28 32 35 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF USER=99999 THEN PUT FILE(D)EDIT(USER)(P'99999',X(25)); ┆
0x38c8…3917 (184,) 20 20 20 20 43 48 53 4f 4c 44 3d 53 4f 4c 44 54 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CHSOLD=SOLDTO; ┆
0x3917…3966 (185,) 49 46 28 43 48 53 4f 4c 44 2f 31 30 29 3e 20 34 39 39 39 2e 39 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 20 27 29 28 41 28 31 38 29 29 3b 49 4e 54 45 52 3d 27 4e 27 3b 47 4f 54 4f 20 4a 44 45 4c 3b 20 ┆IF(CHSOLD/10)> 4999.9 THEN DO;PUT FILE(D)EDIT(' ')(A(18));INTER='N';GOTO JDEL; ┆
0x3966…39b5 (186,) 45 4e 44 3b 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 4f 56 45 52 52 49 44 45 20 3a 20 27 29 3b 41 47 49 4e 54 3a 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 49 4e 54 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆END; PUT FILE(D)LIST('OVERRIDE : ');AGINT: GET SKIP LIST(INTER); ┆
0x39b5…3a04 (187,) 20 20 49 46 20 28 56 45 52 49 46 59 28 49 4e 54 45 52 2c 27 59 4e 27 29 3d 30 29 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 42 50 3b 47 4f 54 4f 20 41 47 49 4e 54 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF (VERIFY(INTER,'YN')=0)THEN DO;CALL BP;GOTO AGINT;END; ┆
0x3a04…3a53 (188,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 49 4e 54 45 52 29 28 41 28 37 29 29 3b 4a 44 45 4c 3a 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 44 45 4c 49 56 45 52 59 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(INTER)(A(7));JDEL: PUT FILE(D)LIST('DELIVERY : '); ┆
0x3a53…3aa2 (189,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 45 4c 49 56 45 52 29 3b 4d 4d 3d 53 55 42 53 54 52 28 44 45 4c 49 56 45 52 2c 31 2c 32 29 3b 44 44 3d 53 55 42 53 54 52 28 44 45 4c 49 56 45 52 2c 33 2c 32 29 3b 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(DELIVER);MM=SUBSTR(DELIVER,1,2);DD=SUBSTR(DELIVER,3,2); ┆
0x3aa2…3af1 (190,) 59 59 3d 53 55 42 53 54 52 28 44 45 4c 49 56 45 52 2c 35 2c 32 29 3b 42 4f 52 44 41 54 45 3d 4d 4d 20 43 41 54 20 27 2f 27 20 43 41 54 20 44 44 20 43 41 54 20 27 2f 27 20 43 41 54 20 59 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆YY=SUBSTR(DELIVER,5,2);BORDATE=MM CAT '/' CAT DD CAT '/' CAT YY; ┆
0x3af1…3b40 (191,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 42 4f 52 44 41 54 45 29 3b 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 43 4f 4d 4d 45 4e 54 53 20 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST(BORDATE);PUT FILE(D)LIST('COMMENTS : '); ┆
0x3b40…3b8f (192,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 43 4f 4d 4d 45 4e 54 29 3b 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 43 4f 4d 4d 45 4e 54 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(COMMENT);PUT FILE(D)LIST(COMMENT); ┆
0x3b8f…3bde (193,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 54 45 52 4d 20 3f 20 28 31 29 4e 45 54 20 31 30 20 28 32 29 33 20 35 20 31 30 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 54 45 52 4d 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('TERM ? (1)NET 10 (2)3 5 10 ');GET SKIP LIST(TERM); ┆
0x3bde…3c2d (194,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 54 45 52 4d 29 28 41 28 32 29 29 3b 4a 4f 42 3d 27 4e 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(TERM)(A(2));JOB='N'; ┆
0x3c2d…3c7c (195,) 20 20 49 46 20 28 56 45 52 49 46 59 28 53 55 42 53 54 52 28 49 4e 56 23 2c 31 2c 31 29 2c 27 4d 50 27 29 3d 2d 31 29 54 48 45 4e 20 4a 4f 42 3d 27 59 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF (VERIFY(SUBSTR(INV#,1,1),'MP')=-1)THEN JOB='Y'; ┆
0x3c7c…3ccb (196,) 49 4e 41 53 4b 3a 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 4f 2e 4b 2e 20 3f 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆INASK:PUT FILE(D)LIST('O.K. ? ');GET SKIP LIST(A); ┆
0x3ccb…3d1a (197,) 20 20 49 46 20 41 3d 27 4e 27 20 54 48 45 4e 20 47 4f 54 4f 20 48 45 41 44 3b 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 49 4e 41 53 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='N' THEN GOTO HEAD;IF A ='Y' THEN GOTO INASK; ┆
0x3d1a…3d69 (198,) 53 4f 41 53 4b 3a 20 49 46 20 53 4f 4c 44 54 4f 3d 39 39 39 39 39 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 53 4f 4c 44 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SOASK: IF SOLDTO=99999 THEN DO;PUT FILE(D)SKIP LIST('SOLD : '); ┆
0x3d69…3db8 (199,) 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 4f 4c 44 54 4f 4e 41 4d 45 29 3b 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 53 4f 4c 44 54 4f 4e 41 4d 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(SOLDTONAME);PUT FILE(D)LIST(SOLDTONAME); ┆
0x3db8…3e07 (200,) 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 41 44 44 31 20 3a 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 4f 4c 44 54 4f 41 44 44 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('ADD1 : ');GET SKIP LIST(SOLDTOADD1); ┆
0x3e07…3e56 (201,) 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 4f 4c 44 54 4f 41 44 44 31 29 28 41 28 33 30 29 29 28 27 41 44 44 32 20 3a 20 27 29 28 41 28 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(SOLDTOADD1)(A(30))('ADD2 : ')(A(7)); ┆
0x3e56…3ea5 (202,) 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 4f 4c 44 54 4f 41 44 44 32 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 4f 4c 44 54 4f 41 44 44 32 29 28 41 28 33 30 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(SOLDTOADD2);PUT FILE(D)EDIT(SOLDTOADD2)(A(30)) ┆
0x3ea5…3ef4 (203,) 20 20 20 20 28 27 49 53 20 54 48 45 20 41 42 4f 56 45 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 43 4f 52 52 45 43 54 20 3f 20 27 29 28 41 28 33 35 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ ('IS THE ABOVE INFORMATION CORRECT ? ')(A(35));GET SKIP LIST(A); ┆
0x3ef4…3f43 (204,) 20 20 20 20 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 53 4f 41 53 4b 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A ='Y' THEN GOTO SOASK;END; ┆
0x3f43…3f92 (205,) 53 48 41 53 4b 3a 20 49 46 20 53 48 49 50 54 4f 3d 39 39 39 39 39 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 53 48 49 50 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SHASK: IF SHIPTO=99999 THEN DO;PUT FILE(D)SKIP LIST('SHIP : '); ┆
0x3f92…3fe1 (206,) 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 48 49 50 54 4f 4e 41 4d 45 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 48 49 50 54 4f 4e 41 4d 45 29 28 41 28 33 30 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(SHIPTONAME);PUT FILE(D)EDIT(SHIPTONAME)(A(30)) ┆
0x3fe1…4030 (207,) 20 20 20 20 28 27 41 44 44 31 20 3a 20 27 29 28 41 28 37 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 48 49 50 54 4f 41 44 44 31 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('ADD1 : ')(A(7));GET SKIP LIST(SHIPTOADD1); ┆
0x4030…407f (208,) 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 48 49 50 54 4f 41 44 44 31 29 28 41 28 33 30 29 29 28 27 41 44 44 32 20 3a 20 27 29 28 41 28 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(SHIPTOADD1)(A(30))('ADD2 : ')(A(7)); ┆
0x407f…40ce (209,) 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 48 49 50 54 4f 41 44 44 32 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 48 49 50 54 4f 41 44 44 32 29 28 41 28 33 30 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(SHIPTOADD2);PUT FILE(D)EDIT(SHIPTOADD2)(A(30)) ┆
0x40ce…411d (210,) 20 20 20 20 28 27 49 53 20 54 48 45 20 41 42 4f 56 45 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 43 4f 52 52 45 43 54 20 3f 20 27 29 28 41 28 33 35 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ ('IS THE ABOVE INFORMATION CORRECT ? ')(A(35));GET SKIP LIST(A); ┆
0x411d…416c (211,) 20 20 20 20 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 53 48 41 53 4b 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A ='Y' THEN GOTO SHASK;END; ┆
0x416c…41bb (212,) 55 53 41 53 4b 3a 20 49 46 20 55 53 45 52 3d 39 39 39 39 39 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 55 53 45 52 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆USASK: IF USER=99999 THEN DO;PUT FILE(D)SKIP LIST('USER : '); ┆
0x41bb…420a (213,) 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 55 53 45 52 4e 41 4d 45 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 55 53 45 52 4e 41 4d 45 29 28 41 28 33 30 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(USERNAME);PUT FILE(D)EDIT(USERNAME)(A(30)) ┆
0x420a…4259 (214,) 20 20 20 20 28 27 49 53 20 54 48 45 20 41 42 4f 56 45 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 43 4f 52 52 45 43 54 20 3f 20 27 29 28 41 28 33 35 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ ('IS THE ABOVE INFORMATION CORRECT ? ')(A(35));GET SKIP LIST(A); ┆
0x4259…42a8 (215,) 20 20 20 20 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 55 53 41 53 4b 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A ='Y' THEN GOTO USASK;END; ┆
0x42a8…42f7 (216,) 55 50 44 49 53 43 3a 44 49 53 4f 56 45 52 3d 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UPDISC:DISOVER='0'; ┆
0x42f7…4346 (217,) 20 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 7f 3d 27 53 50 27 20 26 20 28 56 45 52 49 46 59 28 53 55 42 53 54 52 28 49 4e 56 23 2c 31 2c 31 29 2c 27 4d 50 27 29 3d 30 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 ┆ IF SUBSTR(PART#,1,2) ='SP' & (VERIFY(SUBSTR(INV#,1,1),'MP')=0) THEN DO; ┆
0x4346…4395 (218,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 44 49 53 43 4f 55 4e 54 20 4f 56 45 52 52 49 44 45 3a 20 20 59 20 4f 52 20 4e 20 3f 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)SKIP EDIT('DISCOUNT OVERRIDE: Y OR N ?')(A(37)); ┆
0x4395…43e4 (219,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 49 46 20 41 3d 27 4e 27 20 54 48 45 4e 20 47 4f 54 4f 20 50 41 52 54 41 53 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(A);IF A='N' THEN GOTO PARTASK; ┆
0x43e4…4433 (220,) 20 20 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 55 50 44 49 53 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A ='Y' THEN GOTO UPDISC; ┆
0x4433…4482 (221,) 52 45 44 49 53 3a 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 28 31 29 35 30 25 20 20 28 32 29 35 30 2b 35 25 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 49 53 4f 56 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆REDIS:PUT FILE(D)LIST('(1)50% (2)50+5% ');GET SKIP LIST(DISOVER); ┆
0x4482…44d1 (222,) 20 20 49 46 28 56 45 52 49 46 59 28 44 49 53 4f 56 45 52 2c 27 31 32 27 29 3d 30 29 54 48 45 4e 20 44 4f 3b 44 49 53 4f 56 45 52 3d 27 30 27 3b 47 4f 54 4f 20 55 50 44 49 53 43 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF(VERIFY(DISOVER,'12')=0)THEN DO;DISOVER='0';GOTO UPDISC;END; ┆
0x44d1…4520 (223,) 20 20 49 46 20 44 49 53 4f 56 45 52 3d 27 31 27 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 35 30 25 20 3f 27 29 28 41 28 31 39 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 ┆ IF DISOVER='1' THEN DO;PUT FILE(D)EDIT('50% ?')(A(19));GET SKIP LIST(A); ┆
0x4520…456f (224,) 20 20 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 52 45 44 49 53 3b 47 4f 54 4f 20 50 41 52 54 41 53 4b 3b 45 4e 44 3b 49 46 20 44 49 53 4f 56 45 52 3d 27 32 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A ='Y' THEN GOTO REDIS;GOTO PARTASK;END;IF DISOVER='2' THEN DO; ┆
0x456f…45be (225,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 35 30 2b 35 25 20 3f 27 29 28 41 28 31 39 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 52 45 44 49 53 3b ┆ PUT FILE(D)EDIT('50+5% ?')(A(19));GET SKIP LIST(A);IF A ='Y' THEN GOTO REDIS;┆
0x45be…460d (226,) 20 20 47 4f 54 4f 20 50 41 52 54 41 53 4b 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO PARTASK;END;END; ┆
0x460d…465c (227,) 50 41 52 54 41 53 4b 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 46 4f 52 4d 20 23 20 20 3a 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 50 41 52 54 23 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PARTASK:PUT FILE(D)SKIP LIST('FORM # : ');GET SKIP LIST(PART#); ┆
0x465c…46ab (228,) 4f 52 44 45 52 45 4e 44 3a 49 46 20 50 41 52 54 23 3d 27 45 4e 44 20 20 20 20 20 27 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 01 01 01 01 27 29 28 41 29 28 49 4e 56 23 29 28 41 29 3b 20 20 20 20 20 20 20 20 ┆ORDEREND:IF PART#='END ' THEN DO;PUT SKIP EDIT(' ')(A)(INV#)(A); ┆
0x46ab…46fa (229,) 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 3b 47 4f 54 4f 20 48 45 41 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(2);GOTO HEAD;END; ┆
0x46fa…4749 (230,) 20 20 49 46 20 50 41 52 54 23 3d 27 43 55 53 54 4f 4d 20 20 27 54 48 45 4e 20 44 4f 3b 49 4e 54 45 52 3d 27 59 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF PART#='CUSTOM 'THEN DO;INTER='Y'; ┆
0x4749…4798 (231,) 43 55 53 54 4f 4d 41 53 4b 3a 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 43 55 53 54 4f 4d 20 50 41 52 54 20 23 20 3a 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 50 41 52 54 23 29 3b 20 20 20 20 20 20 20 ┆CUSTOMASK:PUT FILE(D)SKIP LIST('CUSTOM PART # : ');GET SKIP LIST(PART#); ┆
0x4798…47e7 (232,) 20 20 49 46 20 50 41 52 54 23 3d 27 45 4e 44 20 20 20 20 20 27 54 48 45 4e 20 47 4f 54 4f 20 4f 52 44 45 52 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF PART#='END 'THEN GOTO ORDEREND; ┆
0x47e7…4836 (233,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 20 27 29 28 41 28 33 29 29 28 50 41 52 54 23 29 28 41 28 38 29 29 28 27 20 27 29 28 41 28 31 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(' ')(A(3))(PART#)(A(8))(' ')(A(10)); ┆
0x4836…4885 (234,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 44 45 53 43 52 49 50 54 49 4f 4e 3a 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 45 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('DESCRIPTION:');GET SKIP LIST(DES); ┆
0x4885…48d4 (235,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 44 45 53 29 28 41 28 32 35 29 29 3b 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 55 4e 49 54 20 51 54 59 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(DES)(A(25));PUT FILE(D)LIST('UNIT QTY : '); ┆
0x48d4…4923 (236,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4f 52 55 4e 49 54 51 54 59 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 4f 52 55 4e 49 54 51 54 59 29 28 41 28 34 29 29 28 27 20 27 29 28 41 28 32 32 29 29 3b 20 20 20 20 20 20 20 ┆ GET SKIP LIST(ORUNITQTY);PUT FILE(D)EDIT(ORUNITQTY)(A(4))(' ')(A(22)); ┆
0x4923…4972 (237,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 49 53 20 54 48 45 20 41 42 4f 56 45 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 43 4f 52 52 45 43 54 20 3f 20 20 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 20 ┆ PUT FILE(D)LIST('IS THE ABOVE INFORMATION CORRECT ? ');GET SKIP LIST(A); ┆
0x4972…49c1 (238,) 20 20 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 43 55 53 54 4f 4d 41 53 4b 3b 43 55 53 57 49 54 43 48 3d 27 59 27 3b 42 53 55 50 3d 30 3b 44 49 53 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A ='Y' THEN GOTO CUSTOMASK;CUSWITCH='Y';BSUP=0;DIS=0; ┆
0x49c1…4a10 (239,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 27 29 28 41 28 33 37 29 29 3b 47 4f 54 4f 20 52 52 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)SKIP EDIT('')(A(37));GOTO RR;END; ┆
0x4a10…4a5f (240,) 20 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 3d 27 53 50 27 20 54 48 45 4e 20 44 4f 3b 53 50 43 4f 44 45 3d 50 41 52 54 23 3b 4f 4e 20 45 52 52 4f 52 20 47 4f 54 4f 20 4d 45 53 47 31 3b 20 20 20 20 20 20 20 20 20 20 ┆ IF SUBSTR(PART#,1,2)='SP' THEN DO;SPCODE=PART#;ON ERROR GOTO MESG1; ┆
0x4a5f…4aae (241,) 20 20 52 45 41 44 20 4b 45 59 28 53 50 43 4f 44 45 29 46 49 4c 45 28 53 50 46 49 4c 45 29 49 4e 54 4f 28 53 50 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 50 44 45 53 29 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ READ KEY(SPCODE)FILE(SPFILE)INTO(SP);PUT FILE(D)EDIT(SPDES)(A(27)); ┆
0x4aae…4afd (242,) 20 20 20 20 4f 52 55 4e 49 54 51 54 59 3d 52 55 4e 55 4e 49 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ORUNITQTY=RUNUNIT; ┆
0x4afd…4b4c (243,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 46 45 41 54 55 52 45 20 3a 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 44 45 53 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('FEATURE : ');GET SKIP LIST(DES); ┆
0x4b4c…4b9b (244,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 44 45 53 29 28 41 28 32 37 29 29 3b 47 4f 54 4f 20 52 52 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(DES)(A(27));GOTO RR;END; ┆
0x4b9b…4bea (245,) 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 54 4f 20 4d 45 53 47 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ON ERROR GOTO MESG1; ┆
0x4bea…4c39 (246,) 20 20 20 52 45 41 44 20 4b 45 59 28 50 41 52 54 23 29 46 49 4c 45 28 49 4e 56 46 49 4c 45 29 49 4e 54 4f 28 49 4e 56 29 3b 4f 52 55 4e 49 54 51 54 59 3d 55 4e 49 54 51 54 59 3b 42 53 55 50 3d 53 55 50 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ READ KEY(PART#)FILE(INVFILE)INTO(INV);ORUNITQTY=UNITQTY;BSUP=SUP; ┆
0x4c39…4c88 (247,) 42 44 49 53 3d 44 49 53 3b 44 4f 20 49 3d 31 20 54 4f 20 35 3b 42 44 45 41 4c 50 52 49 43 45 28 49 29 3d 44 45 41 4c 50 52 49 43 45 28 49 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BDIS=DIS;DO I=1 TO 5;BDEALPRICE(I)=DEALPRICE(I);END; ┆
0x4c88…4cd7 (248,) 20 20 49 46 20 44 49 53 4f 56 45 52 7f 3d 27 30 27 20 54 48 45 4e 20 44 49 53 3d 35 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF DISOVER ='0' THEN DIS=50; ┆
0x4cd7…4d26 (249,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 50 41 52 54 23 29 28 41 28 32 37 29 29 3b 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 44 45 53 43 52 49 50 54 3a 20 27 29 3b 44 45 53 3d 46 4f 52 4d 44 45 53 3b 20 20 20 20 20 ┆ PUT FILE(D)EDIT(PART#)(A(27));PUT FILE(D)LIST('DESCRIPT: ');DES=FORMDES; ┆
0x4d26…4d75 (250,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 46 4f 52 4d 44 45 53 29 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(FORMDES)(A(27)); ┆
0x4d75…4dc4 (251,) 52 52 3a 20 49 46 20 49 4e 54 45 52 3d 27 59 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RR: IF INTER='Y' THEN DO; ┆
0x4dc4…4e13 (252,) 52 52 52 3a 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 50 52 49 43 45 20 40 20 3a 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4f 56 45 52 50 52 49 43 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RRR:PUT FILE(D)LIST('PRICE @ : ');GET SKIP LIST(OVERPRICE); ┆
0x4e13…4e62 (253,) 20 20 20 44 49 53 50 52 49 43 45 3d 4f 56 45 52 50 52 49 43 45 3b 44 49 53 52 55 4e 3d 30 3b 52 55 4e 50 52 49 43 45 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DISPRICE=OVERPRICE;DISRUN=0;RUNPRICE=0; ┆
0x4e62…4eb1 (254,) 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 4f 56 45 52 50 52 49 43 45 29 28 50 27 5a 5a 39 56 2e 39 39 27 2c 58 28 32 29 29 3b 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 7f 3d 27 53 50 27 54 48 45 4e 20 44 4f 3b 20 ┆PUT FILE(D)EDIT(OVERPRICE)(P'ZZ9V.99',X(2));IF SUBSTR(PART#,1,2) ='SP'THEN DO; ┆
0x4eb1…4f00 (255,) 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 20 27 29 28 41 28 31 39 29 29 3b 45 4e 44 3b 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 3d 27 53 50 27 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D)EDIT(' ')(A(19));END;IF SUBSTR(PART#,1,2)='SP'THEN DO; ┆
0x4f00…4f4f (256,) 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 52 55 4e 20 43 48 41 52 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('RUN CHAR : '); ┆
0x4f4f…4f9e (257,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 52 55 4e 50 52 49 43 45 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 52 55 4e 50 52 49 43 45 29 28 50 27 5a 5a 39 56 2e 39 39 27 2c 58 28 32 29 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(RUNPRICE);PUT FILE(D)EDIT(RUNPRICE)(P'ZZ9V.99',X(2)); ┆
0x4f9e…4fed (258,) 20 20 44 49 53 52 55 4e 3d 52 55 4e 50 52 49 43 45 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DISRUN=RUNPRICE;END;END; ┆
0x4fed…503c (259,) 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 51 55 41 4e 54 49 54 59 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('QUANTITY: '); ┆
0x503c…508b (260,) 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4f 52 44 45 52 51 54 59 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 4f 52 44 45 52 51 54 59 29 28 50 27 5a 5a 5a 5a 5a 39 27 2c 58 28 32 31 29 29 3b 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(ORDERQTY);PUT FILE(D)EDIT(ORDERQTY)(P'ZZZZZ9',X(21)); ┆
0x508b…50da (261,) 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 7f 3d 27 53 50 27 20 26 20 28 56 45 52 49 46 59 28 53 55 42 53 54 52 28 49 4e 56 23 2c 31 2c 31 29 2c 27 4d 50 27 29 3d 2d 31 29 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 ┆ IF SUBSTR(PART#,1,2) ='SP' & (VERIFY(SUBSTR(INV#,1,1),'MP')=-1) THEN DO; ┆
0x50da…5129 (262,) 4e 55 4d 41 53 4b 3a 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 4e 55 4d 42 45 52 45 44 3f 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 49 46 20 41 3d 27 4e 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 ┆NUMASK:PUT FILE(D)LIST('NUMBERED? ');GET SKIP LIST(A);IF A='N' THEN DO; ┆
0x5129…5178 (263,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 55 4e 4e 55 4d 42 45 52 45 44 20 4a 4f 42 27 29 28 58 28 31 33 29 2c 41 28 31 34 29 29 3b 53 54 41 52 54 4e 55 4d 3d 27 20 20 20 20 20 20 20 20 27 3b 45 4e 44 3b 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT('UNNUMBERED JOB')(X(13),A(14));STARTNUM=' ';END; ┆
0x5178…51c7 (264,) 20 20 45 4c 53 45 20 44 4f 3b 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 4e 55 4d 41 53 4b 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 27 27 29 28 41 28 32 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE DO;IF A ='Y' THEN GOTO NUMASK;PUT FILE(D)EDIT('')(A(27)) ┆
0x51c7…5216 (265,) 20 28 27 45 4e 54 45 52 20 53 54 41 52 54 49 4e 47 20 23 3a 20 27 29 28 41 28 31 38 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 53 54 41 52 54 4e 55 4d 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('ENTER STARTING #: ')(A(18));GET SKIP LIST(STARTNUM); ┆
0x5216…5265 (266,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 53 54 41 52 54 4e 55 4d 29 28 41 28 39 29 29 28 27 26 20 55 50 27 29 28 41 28 31 30 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(STARTNUM)(A(9))('& UP')(A(10));END; ┆
0x5265…52b4 (267,) 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 50 52 4f 4f 46 20 3f 20 59 20 4f 52 20 4e 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('PROOF ? Y OR N : '); ┆
0x52b4…5303 (268,) 41 47 50 52 4f 4f 46 3a 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 50 52 4f 4f 46 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AGPROOF: GET SKIP LIST(PROOF); ┆
0x5303…5352 (269,) 20 20 49 46 20 28 56 45 52 49 46 59 28 50 52 4f 4f 46 2c 27 59 4e 27 29 3d 30 29 20 54 48 45 4e 20 44 4f 3b 43 41 4c 4c 20 42 50 3b 47 4f 54 4f 20 41 47 50 52 4f 4f 46 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF (VERIFY(PROOF,'YN')=0) THEN DO;CALL BP;GOTO AGPROOF;END; ┆
0x5352…53a1 (270,) 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 50 52 4f 4f 46 29 28 41 28 32 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)EDIT(PROOF)(A(20)); ┆
0x53a1…53f0 (271,) 20 20 20 20 49 46 20 50 52 4f 4f 46 3d 27 4e 27 20 54 48 45 4e 20 50 52 54 4f 3d 27 27 3b 49 46 20 50 52 4f 4f 46 3d 27 59 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF PROOF='N' THEN PRTO='';IF PROOF='Y' THEN DO; ┆
0x53f0…543f (272,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 50 52 4f 4f 46 20 54 4f 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)LIST('PROOF TO: '); ┆
0x543f…548e (273,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 50 52 54 4f 29 3b 50 55 54 20 46 49 4c 45 28 44 29 45 44 49 54 28 50 52 54 4f 29 28 41 28 32 37 29 29 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(PRTO);PUT FILE(D)EDIT(PRTO)(A(27));END;END; ┆
0x548e…54dd (274,) 20 20 49 46 20 49 4e 54 45 52 7f 3d 27 59 27 20 54 48 45 4e 20 44 4f 3b 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 3d 27 53 50 27 20 54 48 45 4e 20 44 4f 3b 4f 56 45 52 50 52 49 43 45 3d 46 4c 41 54 3b 20 20 20 20 20 20 ┆ IF INTER ='Y' THEN DO;IF SUBSTR(PART#,1,2)='SP' THEN DO;OVERPRICE=FLAT; ┆
0x54dd…552c (275,) 20 20 20 20 44 49 53 50 52 49 43 45 3d 46 4c 41 54 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DISPRICE=FLAT; ┆
0x552c…557b (276,) 20 20 20 20 49 46 20 53 50 44 49 53 7f 3d 30 20 26 20 28 43 48 53 4f 4c 44 2f 31 30 29 3e 34 39 39 39 2e 39 20 54 48 45 4e 20 44 49 53 50 52 49 43 45 3d 46 4c 41 54 2a 28 31 30 30 2d 53 50 44 49 53 29 2f 31 30 30 3b 20 20 20 20 20 20 20 ┆ IF SPDIS =0 & (CHSOLD/10)>4999.9 THEN DISPRICE=FLAT*(100-SPDIS)/100; ┆
0x557b…55ca (277,) 20 20 20 20 52 55 4e 50 52 49 43 45 3d 30 3b 44 49 53 52 55 4e 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RUNPRICE=0;DISRUN=0; ┆
0x55ca…5619 (278,) 20 20 20 20 49 46 20 52 55 4e 7f 3d 30 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF RUN =0 THEN DO; ┆
0x5619…5668 (279,) 20 20 52 55 4e 50 52 49 43 45 3d 52 55 4e 3b 44 49 53 52 55 4e 3d 52 55 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RUNPRICE=RUN;DISRUN=RUN; ┆
0x5668…56b7 (280,) 20 20 49 46 20 28 43 48 53 4f 4c 44 2f 31 30 29 3e 34 39 39 39 2e 39 20 54 48 45 4e 20 44 49 53 52 55 4e 3d 52 55 4e 50 52 49 43 45 2a 28 31 30 30 2d 53 50 44 49 53 29 2f 31 30 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF (CHSOLD/10)>4999.9 THEN DISRUN=RUNPRICE*(100-SPDIS)/100; ┆
0x56b7…5706 (281,) 20 20 20 20 20 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END;END; ┆
0x5706…5755 (282,) 20 20 20 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 7f 3d 27 53 50 27 20 54 48 45 4e 20 44 4f 3b 49 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SUBSTR(PART#,1,2) ='SP' THEN DO;I=1; ┆
0x5755…57a4 (283,) 58 59 3a 20 49 46 20 46 53 43 48 28 49 29 3e 4f 52 44 45 52 51 54 59 20 54 48 45 4e 20 47 4f 54 4f 20 58 5a 3b 49 3d 49 2b 31 3b 49 46 20 49 3d 36 20 7c 20 46 53 43 48 28 49 29 3d 30 20 54 48 45 4e 20 47 4f 54 4f 20 58 5a 3b 20 20 20 20 ┆XY: IF FSCH(I)>ORDERQTY THEN GOTO XZ;I=I+1;IF I=6 ö FSCH(I)=0 THEN GOTO XZ; ┆
0x57a4…57f3 (284,) 20 20 20 20 47 4f 54 4f 20 58 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO XY; ┆
0x57f3…5842 (285,) 58 5a 3a 49 46 20 43 55 53 57 49 54 43 48 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 58 58 5a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XZ:IF CUSWITCH='Y' THEN GOTO XXZ; ┆
0x5842…5891 (286,) 20 20 49 46 20 49 3d 31 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 42 45 4c 4f 57 20 4d 49 4e 49 4d 55 4d 21 20 50 52 49 43 45 20 4f 56 45 52 52 49 44 45 3f 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF I=1 THEN DO;PUT FILE(D)LIST('BELOW MINIMUM! PRICE OVERRIDE?'); ┆
0x5891…58e0 (287,) 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 49 46 20 41 7f 3d 27 59 27 54 48 45 4e 20 44 4f 3b 49 4e 54 45 52 3d 27 59 27 3b 47 4f 54 4f 20 52 52 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(A);IF A ='Y'THEN DO;INTER='Y';GOTO RR;END;END; ┆
0x58e0…592f (288,) 58 58 5a 3a 4a 3d 49 2d 31 3b 49 46 20 28 43 48 53 4f 4c 44 2f 31 30 29 3c 35 30 30 30 20 54 48 45 4e 20 44 4f 3b 44 45 41 4c 50 52 49 43 45 28 4a 29 3d 44 49 52 50 52 49 43 45 28 4a 29 3b 44 49 53 3d 30 3b 45 4e 44 3b 20 20 20 20 20 20 ┆XXZ:J=I-1;IF (CHSOLD/10)<5000 THEN DO;DEALPRICE(J)=DIRPRICE(J);DIS=0;END; ┆
0x592f…597e (289,) 20 20 20 20 44 4f 20 49 3d 31 20 54 4f 20 35 3b 49 46 20 44 45 41 4c 50 52 49 43 45 28 4a 29 3d 30 20 54 48 45 4e 20 4a 3d 4a 2d 31 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DO I=1 TO 5;IF DEALPRICE(J)=0 THEN J=J-1;END; ┆
0x597e…59cd (290,) 20 20 20 20 4f 56 45 52 50 52 49 43 45 3d 44 45 41 4c 50 52 49 43 45 28 4a 29 3b 44 49 53 50 52 49 43 45 3d 4f 56 45 52 50 52 49 43 45 2a 28 31 30 30 2d 44 49 53 29 2f 31 30 30 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ OVERPRICE=DEALPRICE(J);DISPRICE=OVERPRICE*(100-DIS)/100;END;END; ┆
0x59cd…5a1c (291,) 20 20 49 46 20 44 49 53 4f 56 45 52 3d 27 32 27 20 54 48 45 4e 20 44 49 53 50 52 49 43 45 3d 44 49 53 50 52 49 43 45 2a 2e 39 35 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF DISOVER='2' THEN DISPRICE=DISPRICE*.95; ┆
0x5a1c…5a6b (292,) 43 43 3a 20 20 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 27 49 53 20 54 48 45 20 41 42 4f 56 45 20 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 43 4f 52 52 45 43 54 20 3f 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 ┆CC: PUT FILE(D)LIST('IS THE ABOVE INFORMATION CORRECT ? ');GET SKIP LIST(A); ┆
0x5a6b…5aba (293,) 20 20 49 46 20 41 3d 27 4e 27 20 54 48 45 4e 20 47 4f 54 4f 20 50 41 52 54 52 59 3b 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 43 43 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='N' THEN GOTO PARTRY;IF A ='Y' THEN GOTO CC; ┆
0x5aba…5b09 (294,) 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 7f 3d 27 53 50 27 20 54 48 45 4e 20 44 4f 3b 20 4c 41 53 54 44 41 54 45 3d 4f 52 44 45 52 44 41 54 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF SUBSTR(PART#,1,2) ='SP' THEN DO; LASTDATE=ORDERDATE; ┆
0x5b09…5b58 (295,) 46 51 54 59 3d 46 51 54 59 2d 4f 52 44 45 52 51 54 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FQTY=FQTY-ORDERQTY; ┆
0x5b58…5ba7 (296,) 20 20 20 20 49 46 28 56 45 52 49 46 59 28 4c 44 41 54 45 2c 27 30 31 32 33 34 35 36 37 38 39 27 29 3d 30 29 54 48 45 4e 20 47 4f 54 4f 20 4c 44 41 54 45 55 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF(VERIFY(LDATE,'0123456789')=0)THEN GOTO LDATEUP; ┆
0x5ba7…5bf6 (297,) 20 20 20 20 47 4f 54 4f 20 4f 4b 4c 45 56 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO OKLEVEL; ┆
0x5bf6…5c45 (298,) 4c 44 41 54 45 55 50 3a 20 4c 44 41 54 45 3d 4f 52 44 45 52 44 41 54 45 3b 4c 45 56 45 4c 3d 30 3b 41 4d 31 3d 30 3b 41 4d 32 3d 30 3b 47 4f 54 4f 20 55 50 41 4d 54 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆LDATEUP: LDATE=ORDERDATE;LEVEL=0;AM1=0;AM2=0;GOTO UPAMT2; ┆
0x5c45…5c94 (299,) 4f 4b 4c 45 56 45 4c 3a 20 4c 4d 4d 3d 53 55 42 53 54 52 28 4c 44 41 54 45 2c 31 2c 32 29 3b 4c 44 44 3d 53 55 42 53 54 52 28 4c 44 41 54 45 2c 33 2c 32 29 3b 4c 59 59 3d 53 55 42 53 54 52 28 4c 44 41 54 45 2c 35 2c 32 29 3b 20 20 20 20 ┆OKLEVEL: LMM=SUBSTR(LDATE,1,2);LDD=SUBSTR(LDATE,3,2);LYY=SUBSTR(LDATE,5,2); ┆
0x5c94…5ce3 (300,) 44 4f 20 49 20 3d 31 20 54 4f 20 33 3b 4c 4d 4d 3d 4c 4d 4d 2b 31 3b 49 46 20 4c 4d 4d 3d 31 33 20 54 48 45 4e 20 44 4f 3b 4c 4d 4d 3d 31 3b 4c 59 59 3d 4c 59 59 2b 31 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DO I =1 TO 3;LMM=LMM+1;IF LMM=13 THEN DO;LMM=1;LYY=LYY+1;END;END; ┆
0x5ce3…5d32 (301,) 20 20 20 20 49 46 20 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 35 2c 32 29 3e 4c 59 59 20 54 48 45 4e 20 47 4f 54 4f 20 55 50 4c 45 56 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SUBSTR(ORDERDATE,5,2)>LYY THEN GOTO UPLEVEL; ┆
0x5d32…5d81 (302,) 20 20 20 20 49 46 20 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 35 2c 32 29 3c 4c 59 59 20 54 48 45 4e 20 47 4f 54 4f 20 55 50 41 4d 54 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SUBSTR(ORDERDATE,5,2)<LYY THEN GOTO UPAMT2; ┆
0x5d81…5dd0 (303,) 20 20 20 20 49 46 20 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 33 2c 32 29 3e 4c 4d 4d 20 54 48 45 4e 20 47 4f 54 4f 20 55 50 4c 45 56 45 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SUBSTR(ORDERDATE,3,2)>LMM THEN GOTO UPLEVEL; ┆
0x5dd0…5e1f (304,) 20 49 46 20 4c 4d 4d 3d 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 31 2c 32 29 20 26 20 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 33 2c 32 29 3e 4c 44 44 20 54 48 45 4e 20 47 4f 54 4f 20 55 50 4c 45 56 45 4c 3b 20 20 20 ┆ IF LMM=SUBSTR(ORDERDATE,1,2) & SUBSTR(ORDERDATE,3,2)>LDD THEN GOTO UPLEVEL; ┆
0x5e1f…5e6e (305,) 20 20 20 20 47 4f 54 4f 20 55 50 41 4d 54 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO UPAMT2; ┆
0x5e6e…5ebd (306,) 55 50 4c 45 56 45 4c 3a 20 4c 45 56 45 4c 3d 41 4d 31 2b 41 4d 32 3b 41 4d 31 3d 41 4d 32 3b 41 4d 32 3d 30 3b 4c 44 41 54 45 3d 4f 52 44 45 52 44 41 54 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UPLEVEL: LEVEL=AM1+AM2;AM1=AM2;AM2=0;LDATE=ORDERDATE; ┆
0x5ebd…5f0c (307,) 55 50 41 4d 54 32 3a 20 41 4d 32 3d 41 4d 32 2b 4f 52 44 45 52 51 54 59 3b 44 49 53 3d 42 44 49 53 3b 44 4f 20 49 3d 31 20 54 4f 20 35 3b 44 45 41 4c 50 52 49 43 45 28 49 29 3d 42 44 45 41 4c 50 52 49 43 45 28 49 29 3b 45 4e 44 3b 20 20 ┆UPAMT2: AM2=AM2+ORDERQTY;DIS=BDIS;DO I=1 TO 5;DEALPRICE(I)=BDEALPRICE(I);END; ┆
0x5f0c…5f5b (308,) 20 20 49 46 20 43 55 53 57 49 54 43 48 3d 27 59 27 20 54 48 45 4e 20 44 4f 3b 43 55 53 57 49 54 43 48 3d 27 4e 27 3b 47 4f 54 4f 20 4f 46 57 52 49 54 45 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF CUSWITCH='Y' THEN DO;CUSWITCH='N';GOTO OFWRITE;END; ┆
0x5f5b…5faa (309,) 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 28 49 4e 56 46 49 4c 45 29 46 52 4f 4d 28 49 4e 56 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ REWRITE FILE(INVFILE)FROM(INV); ┆
0x5faa…5ff9 (310,) 20 49 46 20 46 51 54 59 3c 30 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 2a 2a 2a 2a 2a 2a 2a 4f 55 54 20 4f 46 20 53 54 4f 43 4b 2a 2a 2a 2a 2a 2a 2a 27 29 28 41 28 33 37 29 29 20 20 20 ┆ IF FQTY<0 THEN DO;PUT FILE(D)SKIP EDIT('*******OUT OF STOCK*******')(A(37)) ┆
0x5ff9…6048 (311,) 20 20 20 20 28 27 42 45 20 53 55 52 45 20 54 4f 20 52 45 50 4c 45 4e 49 53 48 20 49 4e 56 45 4e 54 4f 52 59 20 46 4f 52 27 29 28 41 28 33 37 29 29 20 28 50 41 52 54 23 29 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('BE SURE TO REPLENISH INVENTORY FOR')(A(37)) (PART#)(A); ┆
0x6048…6097 (312,) 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST('');END;END; ┆
0x6097…60e6 (313,) 4f 46 57 52 49 54 45 3a 57 52 49 54 45 20 46 49 4c 45 28 4f 46 49 4c 45 29 46 52 4f 4d 28 4f 52 44 45 52 29 3b 47 4f 54 4f 20 50 41 52 54 41 53 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OFWRITE:WRITE FILE(OFILE)FROM(ORDER);GOTO PARTASK; ┆
0x60e6…6135 (314,) 42 4b 55 50 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 50 4c 45 41 53 45 20 50 55 54 20 4f 52 44 45 52 20 42 4f 4f 4b 20 44 49 53 4b 20 49 4e 54 4f 20 44 52 49 56 45 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆BKUP: PUT FILE(D)SKIP LIST('PLEASE PUT ORDER BOOK DISK INTO DRIVE'); ┆
0x6135…6184 (315,) 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 4f 50 45 4e 20 4f 46 49 4c 45 3b 4f 50 45 4e 20 48 4f 46 49 4c 45 3b 4f 50 45 4e 20 43 4f 46 49 4c 45 3b 43 41 4c 4c 20 53 45 4f 46 28 48 4f 46 49 4c 45 29 3b 20 20 20 20 20 ┆ GET SKIP LIST('');OPEN OFILE;OPEN HOFILE;OPEN COFILE;CALL SEOF(HOFILE); ┆
0x6184…61d3 (316,) 20 20 20 20 43 41 4c 4c 20 53 45 4f 46 28 43 4f 46 49 4c 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL SEOF(COFILE); ┆
0x61d3…6222 (317,) 55 50 41 47 3a 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 54 4f 20 42 4b 50 52 3b 52 45 41 44 20 46 49 4c 45 28 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UPAG: ON ENDFILE GOTO BKPR;READ FILE(OFILE)INTO(ORDER); ┆
0x6222…6271 (318,) 20 20 20 20 49 46 20 49 4e 56 23 3d 27 5a 5a 5a 5a 5a 27 20 54 48 45 4e 20 47 4f 54 4f 20 55 50 41 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF INV#='ZZZZZ' THEN GOTO UPAG; ┆
0x6271…62c0 (319,) 20 20 20 57 52 49 54 45 20 46 49 4c 45 28 43 4f 46 49 4c 45 29 46 52 4f 4d 28 4f 52 44 45 52 29 3b 48 4f 52 44 45 52 44 41 54 45 3d 4f 52 44 45 52 44 41 54 45 3b 48 49 4e 56 23 3d 49 4e 56 23 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WRITE FILE(COFILE)FROM(ORDER);HORDERDATE=ORDERDATE;HINV#=INV#; ┆
0x62c0…630f (320,) 20 20 48 55 53 45 52 3d 55 53 45 52 3b 48 55 53 45 52 4e 41 4d 45 3d 55 53 45 52 4e 41 4d 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ HUSER=USER;HUSERNAME=USERNAME; ┆
0x630f…635e (321,) 20 20 48 50 41 52 54 23 3d 50 41 52 54 23 3b 48 4f 52 44 45 52 51 54 59 3d 4f 52 44 45 52 51 54 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ HPART#=PART#;HORDERQTY=ORDERQTY; ┆
0x635e…63ad (322,) 20 20 48 44 49 53 50 52 49 43 45 3d 44 49 53 50 52 49 43 45 3b 48 44 49 53 52 55 4e 3d 44 49 53 52 55 4e 3b 48 4f 52 55 4e 49 54 51 54 59 3d 4f 52 55 4e 49 54 51 54 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ HDISPRICE=DISPRICE;HDISRUN=DISRUN;HORUNITQTY=ORUNITQTY; ┆
0x63ad…63fc (323,) 20 20 57 52 49 54 45 20 46 49 4c 45 28 48 4f 46 49 4c 45 29 46 52 4f 4d 28 48 4f 52 44 45 52 29 3b 47 4f 54 4f 20 55 50 41 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ WRITE FILE(HOFILE)FROM(HORDER);GOTO UPAG; ┆
0x63fc…644b (324,) 42 4b 50 52 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 50 4c 45 41 53 45 20 41 52 52 41 4e 47 45 20 50 41 50 45 52 20 46 4f 52 20 44 41 49 4c 59 20 4f 52 44 45 52 20 42 4f 4f 4b 20 52 45 50 4f 52 54 27 29 3b ┆BKPR: PUT FILE(D)SKIP LIST('PLEASE ARRANGE PAPER FOR DAILY ORDER BOOK REPORT');┆
0x644b…649a (325,) 20 20 4d 4d 3d 53 55 42 53 54 52 28 49 4e 4f 52 44 45 52 44 41 54 45 2c 31 2c 32 29 3b 44 44 3d 53 55 42 53 54 52 28 49 4e 4f 52 44 45 52 44 41 54 45 2c 33 2c 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ MM=SUBSTR(INORDERDATE,1,2);DD=SUBSTR(INORDERDATE,3,2); ┆
0x649a…64e9 (326,) 20 20 59 59 3d 53 55 42 53 54 52 28 49 4e 4f 52 44 45 52 44 41 54 45 2c 35 2c 32 29 3b 42 4f 52 44 41 54 45 3d 4d 4d 20 43 41 54 20 27 2f 27 20 43 41 54 20 44 44 20 43 41 54 20 27 2f 27 20 43 41 54 20 59 59 3b 20 20 20 20 20 20 20 20 20 ┆ YY=SUBSTR(INORDERDATE,5,2);BORDATE=MM CAT '/' CAT DD CAT '/' CAT YY; ┆
0x64e9…6538 (327,) 20 20 20 20 4f 50 45 4e 20 4f 46 49 4c 45 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 47 47 54 4f 54 41 4c 3d 30 3b 47 54 4f 54 41 4c 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN OFILE;GET SKIP LIST('');GGTOTAL=0;GTOTAL=0; ┆
0x6538…6587 (328,) 43 54 3a 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 43 4f 4c 4f 4e 49 41 4c 20 53 59 53 54 45 4d 53 27 29 28 58 28 35 30 29 2c 41 28 31 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆CT:PUT SKIP EDIT('COLONIAL SYSTEMS')(X(50),A(18)); ┆
0x6587…65d6 (329,) 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 4f 52 44 45 52 20 42 4f 4f 4b 20 52 45 50 4f 52 54 27 29 28 58 28 35 30 29 2c 41 28 32 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP EDIT('ORDER BOOK REPORT')(X(50),A(20)); ┆
0x65d6…6625 (330,) 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 54 4f 44 41 59 27 27 53 20 44 41 54 45 20 3a 20 27 29 3b 50 55 54 20 4c 49 53 54 28 42 4f 52 44 41 54 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP LIST('TODAY''S DATE : ');PUT LIST(BORDATE); ┆
0x6625…6674 (331,) 50 55 54 20 53 4b 49 50 28 34 29 4c 49 53 54 28 27 4f 52 44 45 52 23 20 20 43 55 53 54 4f 4d 45 52 20 23 20 20 20 43 55 53 54 4f 4d 45 52 20 4e 41 4d 45 20 20 20 20 20 20 20 20 20 45 4e 44 5f 55 53 45 52 20 20 20 20 20 20 20 27 29 3b 20 ┆PUT SKIP(4)LIST('ORDER# CUSTOMER # CUSTOMER NAME END_USER '); ┆
0x6674…66c3 (332,) 50 55 54 20 4c 49 53 54 28 27 45 4e 44 5f 55 53 45 52 20 4e 41 4d 45 20 20 20 20 20 20 20 20 20 20 53 41 4c 45 43 4f 44 45 20 20 20 50 41 52 54 23 20 20 20 20 20 20 20 51 54 59 20 20 20 20 20 41 4d 4f 55 4e 54 20 27 29 3b 20 20 20 20 20 ┆PUT LIST('END_USER NAME SALECODE PART# QTY AMOUNT '); ┆
0x66c3…6712 (333,) 20 20 42 49 4e 56 23 3d 27 5a 5a 5a 5a 5a 27 3b 4c 4b 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BINV#='ZZZZZ';LK=0; ┆
0x6712…6761 (334,) 42 4b 41 47 3a 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 54 4f 20 42 4b 46 49 4e 3b 52 45 41 44 20 46 49 4c 45 28 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BKAG: ON ENDFILE GOTO BKFIN;READ FILE(OFILE)INTO(ORDER); ┆
0x6761…67b0 (335,) 20 20 20 20 49 46 20 49 4e 56 23 3d 27 5a 5a 5a 5a 5a 27 20 54 48 45 4e 20 47 4f 54 4f 20 42 4b 41 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF INV#='ZZZZZ' THEN GOTO BKAG; ┆
0x67b0…67ff (336,) 20 20 20 20 49 46 20 49 4e 56 23 7f 3d 42 49 4e 56 23 20 26 20 4c 4b 7f 3d 30 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 53 55 42 54 4f 54 41 4c 20 3d 20 27 29 28 58 28 39 35 29 2c 41 28 31 32 29 29 20 20 20 ┆ IF INV# =BINV# & LK =0 THEN DO;PUT SKIP EDIT('SUBTOTAL = ')(X(95),A(12)) ┆
0x67ff…684e (337,) 20 20 20 20 20 28 47 54 4f 54 41 4c 29 28 50 27 5a 5a 5a 2c 5a 5a 39 56 2e 39 39 27 29 3b 47 47 54 4f 54 41 4c 3d 47 47 54 4f 54 41 4c 2b 47 54 4f 54 41 4c 3b 47 54 4f 54 41 4c 3d 30 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (GTOTAL)(P'ZZZ,ZZ9V.99');GGTOTAL=GGTOTAL+GTOTAL;GTOTAL=0;END; ┆
0x684e…689d (338,) 20 20 20 20 49 46 20 49 4e 56 23 7f 3d 42 49 4e 56 23 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 20 28 32 29 45 44 49 54 28 49 4e 56 23 29 28 41 28 35 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF INV# =BINV# THEN DO;PUT SKIP (2)EDIT(INV#)(A(5)); ┆
0x689d…68ec (339,) 20 20 49 46 20 43 4f 4d 4d 45 4e 54 3d 27 59 59 59 59 59 27 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 42 4f 27 29 28 41 28 33 29 29 3b 45 4c 53 45 20 50 55 54 20 45 44 49 54 28 27 20 27 29 28 41 28 33 29 29 3b 20 20 20 20 20 20 20 20 ┆ IF COMMENT='YYYYY'THEN PUT EDIT('BO')(A(3));ELSE PUT EDIT(' ')(A(3)); ┆
0x68ec…693b (340,) 20 20 20 20 50 55 54 20 45 44 49 54 28 53 4f 4c 44 54 4f 29 28 50 27 39 39 39 39 39 27 2c 58 28 36 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT EDIT(SOLDTO)(P'99999',X(6)) ┆
0x693b…698a (341,) 20 20 28 53 4f 4c 44 54 4f 4e 41 4d 45 29 28 41 28 32 36 29 29 28 55 53 45 52 29 28 50 27 39 39 39 39 39 27 2c 58 28 36 29 29 28 55 53 45 52 4e 41 4d 45 29 28 41 28 32 36 29 29 28 53 41 4c 45 53 4d 45 4e 23 29 28 41 28 31 34 29 29 3b 20 ┆ (SOLDTONAME)(A(26))(USER)(P'99999',X(6))(USERNAME)(A(26))(SALESMEN#)(A(14)); ┆
0x698a…69d9 (342,) 20 20 20 50 55 54 20 4c 49 53 54 28 27 01 01 27 29 3b 45 4e 44 3b 20 4b 51 3d 28 28 4f 52 44 45 52 51 54 59 2f 4f 52 55 4e 49 54 51 54 59 29 2a 44 49 53 50 52 49 43 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST(' ');END; KQ=((ORDERQTY/ORUNITQTY)*DISPRICE); ┆
0x69d9…6a28 (343,) 20 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 3d 27 53 50 27 20 54 48 45 4e 20 4b 51 3d 4f 52 44 45 52 51 54 59 2a 44 49 53 50 52 49 43 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SUBSTR(PART#,1,2)='SP' THEN KQ=ORDERQTY*DISPRICE; ┆
0x6a28…6a77 (344,) 20 20 20 42 49 4e 56 23 3d 49 4e 56 23 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 50 41 52 54 23 29 28 58 28 39 32 29 2c 41 28 39 29 29 28 4f 52 44 45 52 51 54 59 29 28 50 27 5a 5a 5a 5a 5a 39 27 29 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BINV#=INV#;PUT SKIP EDIT(PART#)(X(92),A(9))(ORDERQTY)(P'ZZZZZ9') ┆
0x6a77…6ac6 (345,) 28 4b 51 29 28 50 27 5a 5a 5a 2c 5a 5a 39 56 2e 39 39 27 29 3b 4c 4b 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(KQ)(P'ZZZ,ZZ9V.99');LK=1; ┆
0x6ac6…6b15 (346,) 47 54 4f 54 41 4c 3d 47 54 4f 54 41 4c 2b 28 4b 51 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GTOTAL=GTOTAL+(KQ); ┆
0x6b15…6b64 (347,) 20 20 20 20 49 46 20 52 55 4e 50 52 49 43 45 7f 3d 30 20 26 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 3d 27 53 50 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF RUNPRICE =0 & SUBSTR(PART#,1,2)='SP' THEN DO; ┆
0x6b64…6bb3 (348,) 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 52 55 4e 4e 49 4e 47 20 43 48 41 52 47 45 27 29 28 58 28 38 37 29 2c 41 28 31 34 29 29 28 4f 52 44 45 52 51 54 59 29 28 50 27 5a 5a 5a 5a 5a 39 27 2c 58 28 31 29 29 20 20 20 20 20 20 20 ┆ PUT SKIP EDIT('RUNNING CHARGE')(X(87),A(14))(ORDERQTY)(P'ZZZZZ9',X(1)) ┆
0x6bb3…6c02 (349,) 20 20 20 28 44 49 53 52 55 4e 2a 28 42 53 51 2f 4f 52 55 4e 49 54 51 54 59 29 29 28 50 27 5a 5a 5a 2c 5a 5a 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (DISRUN*(BSQ/ORUNITQTY))(P'ZZZ,ZZV.99'); ┆
0x6c02…6c51 (350,) 47 54 4f 54 41 4c 3d 47 54 4f 54 41 4c 2b 28 44 49 53 52 55 4e 2a 28 42 53 51 2f 4f 52 55 4e 49 54 51 54 59 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆GTOTAL=GTOTAL+(DISRUN*(BSQ/ORUNITQTY)); ┆
0x6c51…6ca0 (351,) 20 20 20 20 45 4e 44 3b 42 53 51 3d 4f 52 44 45 52 51 54 59 3b 47 4f 54 4f 20 42 4b 41 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END;BSQ=ORDERQTY;GOTO BKAG; ┆
0x6ca0…6cef (352,) 44 45 4c 45 54 45 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 44 45 4c 45 54 49 4e 47 20 41 4e 20 4f 52 44 45 52 20 46 52 4f 4d 20 3a 20 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆DELETE: PUT FILE(D)SKIP EDIT('DELETING AN ORDER FROM : ')(A(37)) ┆
0x6cef…6d3e (353,) 20 20 20 20 28 27 28 31 29 20 54 4f 44 41 59 27 27 53 20 4f 52 44 45 52 20 46 49 4c 45 27 29 28 41 28 33 37 29 29 28 27 28 32 29 20 4f 50 45 4e 20 4f 52 44 45 52 20 46 49 4c 45 27 29 28 41 28 33 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 ┆ ('(1) TODAY''S ORDER FILE')(A(37))('(2) OPEN ORDER FILE')(A(37)); ┆
0x6d3e…6d8d (354,) 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 49 46 20 41 20 3d 27 31 27 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 28 54 4f 44 41 59 27 27 53 20 4f 52 44 45 52 53 29 20 27 29 3b 20 ┆GET SKIP LIST(A);IF A ='1' THEN DO;PUT FILE(D)SKIP LIST('(TODAY''S ORDERS) '); ┆
0x6d8d…6ddc (355,) 4f 50 45 4e 20 4f 46 49 4c 45 3b 45 4e 44 3b 49 46 20 41 3d 27 45 27 20 54 48 45 4e 20 47 4f 54 4f 20 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OPEN OFILE;END;IF A='E' THEN GOTO K; ┆
0x6ddc…6e2b (356,) 49 46 20 41 3d 27 32 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF A='2' THEN DO; ┆
0x6e2b…6e7a (357,) 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 28 4f 50 45 4e 20 4f 52 44 45 52 53 29 20 27 29 3b 4f 50 45 4e 20 43 4f 46 49 4c 45 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT FILE(D)SKIP LIST('(OPEN ORDERS) ');OPEN COFILE;END; ┆
0x6e7a…6ec9 (358,) 44 44 4c 3a 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 20 4c 49 53 54 28 27 4f 52 44 45 52 20 23 20 54 4f 20 42 45 20 44 45 4c 45 54 45 44 20 3a 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 42 49 4e 56 23 29 3b 20 20 20 20 20 ┆DDL: PUT FILE(D) LIST('ORDER # TO BE DELETED : ');GET SKIP LIST(BINV#); ┆
0x6ec9…6f18 (359,) 20 20 20 20 49 46 20 42 49 4e 56 23 3d 27 45 4e 44 20 20 27 20 54 48 45 4e 20 47 4f 54 4f 20 4b 3b 50 55 54 20 46 49 4c 45 28 44 29 4c 49 53 54 28 42 49 4e 56 23 2c 27 20 3f 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 42 29 3b ┆ IF BINV#='END ' THEN GOTO K;PUT FILE(D)LIST(BINV#,' ? ');GET SKIP LIST(B);┆
0x6f18…6f67 (360,) 20 20 20 20 49 46 20 42 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 44 44 4c 3b 4f 4e 20 45 52 52 4f 52 20 47 4f 54 4f 20 4d 45 53 47 33 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF B ='Y' THEN GOTO DDL;ON ERROR GOTO MESG3; ┆
0x6f67…6fb6 (361,) 49 46 20 41 3d 27 31 27 54 48 45 4e 20 44 4f 3b 52 45 41 44 20 4b 45 59 28 42 49 4e 56 23 29 46 49 4c 45 28 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 4b 45 59 54 4f 28 49 4e 56 23 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF A='1'THEN DO;READ KEY(BINV#)FILE(OFILE)INTO(ORDER)KEYTO(INV#); ┆
0x6fb6…7005 (362,) 20 20 55 4e 53 50 45 43 28 4f 46 49 4c 45 29 3d 55 4e 53 50 45 43 28 4f 46 49 4c 45 29 2d 31 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UNSPEC(OFILE)=UNSPEC(OFILE)-1;END; ┆
0x7005…7054 (363,) 49 46 20 41 3d 27 32 27 20 54 48 45 4e 20 44 4f 3b 52 45 41 44 20 4b 45 59 28 42 49 4e 56 23 29 46 49 4c 45 28 43 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 4b 45 59 54 4f 28 49 4e 56 23 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF A='2' THEN DO;READ KEY(BINV#)FILE(COFILE)INTO(ORDER)KEYTO(INV#); ┆
0x7054…70a3 (364,) 20 20 20 20 55 4e 53 50 45 43 28 43 4f 46 49 4c 45 29 3d 55 4e 53 50 45 43 28 43 4f 46 49 4c 45 29 2d 31 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UNSPEC(COFILE)=UNSPEC(COFILE)-1;END; ┆
0x70a3…70f2 (365,) 44 45 4c 41 47 3a 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 54 4f 20 4b 3b 49 46 20 41 3d 27 31 27 20 54 48 45 4e 20 52 45 41 44 20 46 49 4c 45 28 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆DELAG: ON ENDFILE GOTO K;IF A='1' THEN READ FILE(OFILE)INTO(ORDER); ┆
0x70f2…7141 (366,) 20 20 20 20 49 46 20 41 3d 27 32 27 20 54 48 45 4e 20 52 45 41 44 20 46 49 4c 45 28 43 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='2' THEN READ FILE(COFILE)INTO(ORDER); ┆
0x7141…7190 (367,) 20 20 20 49 46 20 42 49 4e 56 23 7f 3d 49 4e 56 23 20 54 48 45 4e 20 47 4f 54 4f 20 4f 52 41 44 4a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF BINV# =INV# THEN GOTO ORADJ; ┆
0x7190…71df (368,) 20 20 20 49 4e 56 23 3d 27 5a 5a 5a 5a 5a 27 3b 49 46 20 41 3d 27 31 27 54 48 45 4e 20 52 45 57 52 49 54 45 20 46 49 4c 45 28 4f 46 49 4c 45 29 46 52 4f 4d 28 4f 52 44 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ INV#='ZZZZZ';IF A='1'THEN REWRITE FILE(OFILE)FROM(ORDER); ┆
0x71df…722e (369,) 20 20 20 20 49 46 20 41 3d 27 32 27 20 54 48 45 4e 20 52 45 57 52 49 54 45 20 46 49 4c 45 28 43 4f 46 49 4c 45 29 46 52 4f 4d 28 4f 52 44 45 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='2' THEN REWRITE FILE(COFILE)FROM(ORDER); ┆
0x722e…727d (370,) 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 7f 3d 27 53 50 27 20 7c 20 53 55 42 53 54 52 28 42 49 4e 56 23 2c 31 2c 31 29 7f 3d 27 50 27 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF SUBSTR(PART#,1,2) ='SP' ö SUBSTR(BINV#,1,1) ='P'THEN DO; ┆
0x727d…72cc (371,) 20 20 20 20 52 45 41 44 20 4b 45 59 28 50 41 52 54 23 29 46 49 4c 45 28 49 4e 56 46 49 4c 45 29 49 4e 54 4f 28 49 4e 56 29 3b 46 51 54 59 3d 46 51 54 59 2b 20 4f 52 44 45 52 51 54 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READ KEY(PART#)FILE(INVFILE)INTO(INV);FQTY=FQTY+ ORDERQTY; ┆
0x72cc…731b (372,) 20 20 20 20 41 4d 32 3d 41 4d 32 2d 4f 52 44 45 52 51 54 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ AM2=AM2-ORDERQTY; ┆
0x731b…736a (373,) 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 28 49 4e 56 46 49 4c 45 29 46 52 4f 4d 28 49 4e 56 29 3b 45 4e 44 3b 47 4f 54 4f 20 44 45 4c 41 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ REWRITE FILE(INVFILE)FROM(INV);END;GOTO DELAG; ┆
0x736a…73b9 (374,) 49 4d 48 45 41 44 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 49 4e 53 45 52 54 20 50 41 47 45 27 29 3b 4c 4c 4b 3d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IMHEAD: PUT FILE(D)SKIP LIST('INSERT PAGE');LLK=1; ┆
0x73b9…7408 (375,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(''); ┆
0x7408…7457 (376,) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 4f 4c 44 54 4f 4e 41 4d 45 29 28 58 28 36 29 2c 41 28 35 34 29 29 28 53 48 49 50 54 4f 4e 41 4d 45 29 28 41 28 33 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP EDIT(SOLDTONAME)(X(6),A(54))(SHIPTONAME)(A(30)); ┆
0x7457…74a6 (377,) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 4f 4c 44 54 4f 41 44 44 31 29 28 58 28 36 29 2c 41 28 35 34 29 29 28 53 48 49 50 54 4f 41 44 44 31 29 28 41 28 33 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP EDIT(SOLDTOADD1)(X(6),A(54))(SHIPTOADD1)(A(30)); ┆
0x74a6…74f5 (378,) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 4f 4c 44 54 4f 41 44 44 32 29 28 58 28 36 29 2c 41 28 35 34 29 29 28 53 48 49 50 54 4f 41 44 44 32 29 28 41 28 33 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP EDIT(SOLDTOADD2)(X(6),A(54))(SHIPTOADD2)(A(30)); ┆
0x74f5…7544 (379,) 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 28 27 29 28 58 28 36 29 2c 41 28 32 29 29 28 53 4f 4c 44 54 4f 29 28 50 27 39 39 39 39 39 27 29 28 27 20 29 27 29 28 41 28 34 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP EDIT('(')(X(6),A(2))(SOLDTO)(P'99999')(' )')(A(47)) ┆
0x7544…7593 (380,) 20 20 28 27 28 27 29 28 41 28 32 29 29 28 53 48 49 50 54 4f 29 28 50 27 39 39 39 39 39 27 29 28 27 20 29 27 29 28 41 28 32 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('(')(A(2))(SHIPTO)(P'99999')(' )')(A(2)); ┆
0x7593…75e2 (381,) 20 20 49 46 20 54 45 52 4d 3d 27 31 27 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 20 28 34 29 45 44 49 54 28 27 4e 45 54 20 31 30 20 45 4f 4d 27 29 28 58 28 31 33 29 2c 41 28 32 34 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 ┆ IF TERM='1'THEN DO;PUT SKIP (4)EDIT('NET 10 EOM')(X(13),A(24));END; ┆
0x75e2…7631 (382,) 20 20 49 46 20 54 45 52 4d 3d 27 32 27 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 28 34 29 20 45 44 49 54 28 27 33 20 25 20 31 30 20 45 4f 4d 27 29 28 58 28 31 33 29 2c 41 28 32 34 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 ┆ IF TERM='2' THEN DO;PUT SKIP(4) EDIT('3 % 10 EOM')(X(13),A(24));END; ┆
0x7631…7680 (383,) 42 54 45 52 4d 3d 54 45 52 4d 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BTERM=TERM; ┆
0x7680…76cf (384,) 20 20 50 55 54 20 45 44 49 54 28 53 41 4c 45 53 4d 45 4e 23 29 28 41 28 31 32 29 29 28 43 55 53 23 29 28 41 28 31 38 29 29 28 49 4e 56 23 29 28 41 28 35 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT EDIT(SALESMEN#)(A(12))(CUS#)(A(18))(INV#)(A(5)); ┆
0x76cf…771e (385,) 20 20 49 46 20 43 4f 4d 4d 45 4e 54 3d 27 59 59 59 59 59 27 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 42 4f 27 29 28 41 28 31 32 29 29 3b 45 4c 53 45 20 50 55 54 20 45 44 49 54 28 27 20 27 29 28 41 28 31 32 29 29 3b 20 20 20 20 20 20 ┆ IF COMMENT='YYYYY'THEN PUT EDIT('BO')(A(12));ELSE PUT EDIT(' ')(A(12)); ┆
0x771e…776d (386,) 20 20 4d 4d 3d 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 31 2c 32 29 3b 44 44 3d 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 33 2c 32 29 3b 59 59 3d 53 55 42 53 54 52 28 4f 52 44 45 52 44 41 54 45 2c 35 2c 32 29 3b 20 20 ┆ MM=SUBSTR(ORDERDATE,1,2);DD=SUBSTR(ORDERDATE,3,2);YY=SUBSTR(ORDERDATE,5,2); ┆
0x776d…77bc (387,) 42 4f 52 44 41 54 45 3d 4d 4d 20 43 41 54 20 27 2f 27 20 43 41 54 20 44 44 20 43 41 54 20 27 2f 27 43 41 54 20 59 59 3b 50 55 54 20 45 44 49 54 28 42 4f 52 44 41 54 45 29 28 41 28 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BORDATE=MM CAT '/' CAT DD CAT '/'CAT YY;PUT EDIT(BORDATE)(A(8)); ┆
0x77bc…780b (388,) 50 55 54 20 53 4b 49 50 28 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP(4); ┆
0x780b…785a (389,) 20 20 55 4e 53 50 45 43 28 4f 46 49 4c 45 29 3d 55 4e 53 50 45 43 28 4f 46 49 4c 45 29 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UNSPEC(OFILE)=UNSPEC(OFILE)-1; ┆
0x785a…78a9 (390,) 20 20 42 49 4e 56 23 3d 49 4e 56 23 3b 47 4f 54 4f 20 49 4d 52 45 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BINV#=INV#;GOTO IMREAD; ┆
0x78a9…78f8 (391,) 49 4d 4c 4e 3a 20 47 4f 54 4f 20 53 50 43 48 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IMLN: GOTO SPCH; ┆
0x78f8…7947 (392,) 53 4b 41 47 3a 50 55 54 20 45 44 49 54 28 4f 56 45 52 50 52 49 43 45 29 28 58 28 36 29 2c 50 27 5a 5a 5a 56 2e 39 39 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SKAG:PUT EDIT(OVERPRICE)(X(6),P'ZZZV.99'); ┆
0x7947…7996 (393,) 20 20 49 46 20 4f 56 45 52 50 52 49 43 45 3d 44 49 53 50 52 49 43 45 20 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 45 44 49 54 28 27 20 27 29 28 41 28 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF OVERPRICE=DISPRICE THEN DO;PUT EDIT(' ')(A(8)); ┆
0x7996…79e5 (394,) 20 20 45 4e 44 3b 20 49 46 20 44 49 53 50 52 49 43 45 7f 3d 4f 56 45 52 50 52 49 43 45 20 54 48 45 4e 20 44 4f 3b 4e 45 57 44 49 53 43 4d 45 53 47 3d 27 30 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; IF DISPRICE =OVERPRICE THEN DO;NEWDISCMESG='0'; ┆
0x79e5…7a34 (395,) 20 20 49 46 20 44 49 53 50 52 49 43 45 2f 4f 56 45 52 50 52 49 43 45 3c 2e 35 39 20 54 48 45 4e 20 4e 45 57 44 49 53 43 4d 45 53 47 3d 27 31 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF DISPRICE/OVERPRICE<.59 THEN NEWDISCMESG='1'; ┆
0x7a34…7a83 (396,) 20 20 49 46 20 44 49 53 50 52 49 43 45 2f 4f 56 45 52 50 52 49 43 45 3c 2e 34 39 20 54 48 45 4e 20 4e 45 57 44 49 53 43 4d 45 53 47 3d 27 32 27 3b 4f 56 45 52 50 52 49 43 45 3d 44 49 53 50 52 49 43 45 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ IF DISPRICE/OVERPRICE<.49 THEN NEWDISCMESG='2';OVERPRICE=DISPRICE; ┆
0x7a83…7ad2 (397,) 20 20 50 55 54 20 45 44 49 54 28 44 49 53 50 52 49 43 45 29 28 50 27 5a 5a 5a 5a 56 2e 39 39 27 2c 58 28 31 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT EDIT(DISPRICE)(P'ZZZZV.99',X(1));END; ┆
0x7ad2…7b21 (398,) 20 20 20 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 7f 3d 27 53 50 27 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 4f 52 55 4e 49 54 51 54 59 29 28 50 27 5a 5a 5a 5a 5a 39 27 2c 58 28 33 29 29 3b 20 20 20 20 20 20 20 ┆ IF SUBSTR(PART#,1,2) ='SP' THEN PUT EDIT(ORUNITQTY)(P'ZZZZZ9',X(3)); ┆
0x7b21…7b70 (399,) 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 3d 27 53 50 27 54 48 45 4e 20 20 50 55 54 20 4c 49 53 54 28 27 20 20 46 4c 41 54 20 20 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF SUBSTR(PART#,1,2)='SP'THEN PUT LIST(' FLAT '); ┆
0x7b70…7bbf (400,) 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 7f 3d 27 53 50 27 54 48 45 4e 20 44 4f 3b 49 46 20 53 54 41 52 54 4e 55 4d 7f 3d 27 20 20 20 20 20 20 20 20 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SUBSTR(PART#,1,2) ='SP'THEN DO;IF STARTNUM =' ' THEN DO; ┆
0x7bbf…7c0e (401,) 49 3d 49 4e 44 45 58 28 53 54 41 52 54 4e 55 4d 2c 27 20 27 29 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 4e 55 4d 42 45 52 45 44 3a 20 27 29 28 58 28 32 38 29 2c 41 28 31 30 29 29 28 53 54 41 52 54 4e 55 4d 29 28 41 28 49 29 29 3b ┆I=INDEX(STARTNUM,' ');PUT SKIP EDIT('NUMBERED: ')(X(28),A(10))(STARTNUM)(A(I));┆
0x7c0e…7c5d (402,) 20 20 50 55 54 20 45 44 49 54 28 27 26 20 55 50 27 29 28 41 28 34 29 29 3b 4e 3d 4e 2d 31 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT EDIT('& UP')(A(4));N=N-1;END; ┆
0x7c5d…7cac (403,) 20 49 46 20 43 41 52 42 4f 4e 43 4b 3d 27 31 27 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 43 41 52 42 4f 4e 3a 20 53 48 4f 52 54 27 29 28 58 28 32 38 29 2c 41 28 31 33 29 29 3b 4e 3d 4e 2d 31 3b 45 4e 44 3b ┆ IF CARBONCK='1' THEN DO;PUT SKIP EDIT('CARBON: SHORT')(X(28),A(13));N=N-1;END;┆
0x7cac…7cfb (404,) 20 45 4c 53 45 20 49 46 20 43 41 52 42 4f 4e 43 4b 7f 3d 27 30 27 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 43 41 52 42 4f 4e 3a 20 46 55 4c 4c 27 29 28 58 28 32 38 29 2c 41 28 31 32 29 29 3b 4e 3d 4e 2d 31 3b ┆ ELSE IF CARBONCK ='0'THEN DO;PUT SKIP EDIT('CARBON: FULL')(X(28),A(12));N=N-1;┆
0x7cfb…7d4a (405,) 20 20 45 4e 44 3b 45 4e 44 3b 47 4f 54 4f 20 56 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END;END;GOTO V; ┆
0x7d4a…7d99 (406,) 56 3a 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 3d 27 53 50 27 20 54 48 45 4e 20 44 4f 3b 49 46 20 52 55 4e 50 52 49 43 45 7f 3d 30 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆V: IF SUBSTR(PART#,1,2)='SP' THEN DO;IF RUNPRICE =0 THEN DO; ┆
0x7d99…7de8 (407,) 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 52 55 4e 4e 49 4e 47 20 43 48 41 52 47 45 27 29 28 58 28 33 34 29 2c 41 28 32 37 29 29 28 52 55 4e 50 52 49 43 45 29 28 50 27 5a 5a 5a 56 2e 39 39 27 29 3b 4e 3d 4e 2d 31 3b 20 20 20 ┆ PUT SKIP EDIT('RUNNING CHARGE')(X(34),A(27))(RUNPRICE)(P'ZZZV.99');N=N-1; ┆
0x7de8…7e37 (408,) 20 20 49 46 20 52 55 4e 50 52 49 43 45 3d 44 49 53 52 55 4e 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 45 44 49 54 20 28 27 20 27 29 28 41 28 39 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF RUNPRICE=DISRUN THEN DO;PUT EDIT (' ')(A(9));END; ┆
0x7e37…7e86 (409,) 20 20 49 46 20 44 49 53 52 55 4e 7f 3d 52 55 4e 50 52 49 43 45 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF DISRUN =RUNPRICE THEN DO; ┆
0x7e86…7ed5 (410,) 20 20 20 20 20 50 55 54 20 45 44 49 54 28 44 49 53 52 55 4e 29 28 50 27 5a 5a 5a 5a 56 2e 39 39 27 2c 58 28 32 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT EDIT(DISRUN)(P'ZZZZV.99',X(2));END; ┆
0x7ed5…7f24 (411,) 20 20 20 20 20 50 55 54 20 45 44 49 54 28 27 20 20 20 20 4d 20 20 20 27 29 28 41 28 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT EDIT(' M ')(A(8)); ┆
0x7f24…7f73 (412,) 20 20 47 4f 54 4f 20 49 4d 52 45 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO IMREAD; ┆
0x7f73…7fc2 (413,) 20 20 45 4e 44 3b 45 4e 44 3b 47 4f 54 4f 20 49 4d 52 45 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END;END;GOTO IMREAD; ┆
0x7fc2…8011 (414,) 53 50 43 48 3a 20 44 50 41 52 54 23 3d 50 41 52 54 23 3b 43 41 52 42 4f 4e 43 4b 3d 27 30 27 3b 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 32 29 7f 3d 27 53 50 27 20 26 20 42 53 55 50 20 7f 3d 30 20 54 48 45 4e 20 44 4f 3b 20 ┆SPCH: DPART#=PART#;CARBONCK='0';IF SUBSTR(PART#,1,2) ='SP' & BSUP =0 THEN DO; ┆
0x8011…8060 (415,) 20 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 34 29 3d 27 4d 31 30 37 27 20 7c 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 31 2c 34 29 3d 27 50 31 30 34 27 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SUBSTR(PART#,1,4)='M107' ö SUBSTR(PART#,1,4)='P104' THEN DO; ┆
0x8060…80af (416,) 20 20 49 46 20 53 55 42 53 54 52 28 50 41 52 54 23 2c 35 2c 31 29 3d 27 4d 27 20 54 48 45 4e 20 47 4f 54 4f 20 4e 4f 43 41 52 42 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF SUBSTR(PART#,5,1)='M' THEN GOTO NOCARB; ┆
0x80af…80fe (417,) 49 46 28 56 45 52 49 46 59 28 53 55 42 53 54 52 28 50 41 52 54 23 2c 35 2c 32 29 2c 27 4f 46 47 42 50 27 29 3d 30 29 54 48 45 4e 20 43 41 52 42 4f 4e 43 4b 3d 27 31 27 3b 45 4c 53 45 20 43 41 52 42 4f 4e 43 4b 3d 27 32 27 3b 45 4e 44 3b ┆IF(VERIFY(SUBSTR(PART#,5,2),'OFGBP')=0)THEN CARBONCK='1';ELSE CARBONCK='2';END;┆
0x80fe…814d (418,) 4e 4f 43 41 52 42 3a 20 20 44 4f 20 49 20 3d 28 28 42 53 55 50 29 2b 31 29 20 54 4f 20 38 3b 53 55 42 53 54 52 28 50 41 52 54 23 2c 49 2c 31 29 3d 27 20 27 3b 45 4e 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NOCARB: DO I =((BSUP)+1) TO 8;SUBSTR(PART#,I,1)=' ';END;END; ┆
0x814d…819c (419,) 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 4f 52 44 45 52 51 54 59 29 28 58 28 39 29 2c 50 27 5a 5a 5a 5a 5a 39 27 2c 58 28 33 29 29 28 50 41 52 54 23 29 28 41 28 31 30 29 29 28 44 45 53 29 28 41 28 32 37 29 29 3b 20 20 20 20 20 20 ┆ PUT SKIP EDIT(ORDERQTY)(X(9),P'ZZZZZ9',X(3))(PART#)(A(10))(DES)(A(27)); ┆
0x819c…81eb (420,) 4e 4f 52 4f 4c 4c 3a 20 20 50 41 52 54 23 3d 44 50 41 52 54 23 3b 49 46 20 50 52 4f 4f 46 3d 27 59 27 54 48 45 4e 20 50 55 54 20 4c 49 53 54 28 27 20 2a 08 08 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NOROLL: PART#=DPART#;IF PROOF='Y'THEN PUT LIST(' * '); ┆
0x81eb…823a (421,) 20 20 4e 3d 4e 2d 31 3b 47 4f 54 4f 20 49 4d 50 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ N=N-1;GOTO IMP1; ┆
0x823a…8289 (422,) 49 4d 50 31 3a 20 47 4f 54 4f 20 53 4b 41 47 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IMP1: GOTO SKAG; ┆
0x8289…82d8 (423,) 47 53 48 49 50 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 4e 41 4d 45 20 4e 4f 54 20 46 4f 55 4e 44 20 50 4c 45 41 53 45 20 45 4e 54 45 52 20 3a 20 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 ┆GSHIP: PUT FILE(D)SKIP EDIT('NAME NOT FOUND PLEASE ENTER : ')(A(37)) ┆
0x82d8…8327 (424,) 20 20 28 27 4e 41 4d 45 20 3a 20 27 29 28 41 28 37 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 4e 41 4d 45 29 3b 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 4e 41 4d 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('NAME : ')(A(7));GET SKIP LIST(NAME);PUT SKIP LIST(NAME); ┆
0x8327…8376 (425,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 41 44 44 52 20 31 20 3a 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 44 44 31 29 3b 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 41 44 44 31 29 3b 20 20 20 ┆ PUT FILE(D)SKIP LIST('ADDR 1 : ');GET SKIP LIST(ADD1);PUT SKIP LIST(ADD1); ┆
0x8376…83c5 (426,) 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 41 44 44 52 20 32 20 3a 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 44 44 32 29 3b 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 41 44 44 32 29 3b 20 20 20 ┆ PUT FILE(D)SKIP LIST('ADDR 2 : ');GET SKIP LIST(ADD2);PUT SKIP LIST(ADD2); ┆
0x83c5…8414 (427,) 42 45 47 50 52 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 44 4f 20 59 4f 55 20 57 41 4e 54 20 54 4f 20 43 4f 4e 54 49 4e 55 45 20 45 4e 54 45 52 49 4e 47 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 ┆BEGPR: PUT FILE(D)SKIP EDIT('DO YOU WANT TO CONTINUE ENTERING')(A(37)) ┆
0x8414…8463 (428,) 20 20 28 27 52 45 43 4f 52 44 53 20 59 20 4f 52 20 4e 20 3f 20 27 29 28 41 28 31 37 29 29 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('RECORDS Y OR N ? ')(A(17));; ┆
0x8463…84b2 (429,) 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 49 46 20 41 3d 27 4e 27 20 54 48 45 4e 20 44 4f 3b 41 3d 27 31 27 3b 47 4f 54 4f 20 50 50 50 52 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST(A);IF A='N' THEN DO;A='1';GOTO PPPR;END; ┆
0x84b2…8501 (430,) 20 20 20 20 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 42 45 47 50 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A ='Y' THEN GOTO BEGPR; ┆
0x8501…8550 (431,) 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 50 4c 45 41 53 45 20 50 55 54 20 41 50 50 52 4f 50 49 41 54 45 20 43 55 53 54 4f 4d 45 52 20 44 49 53 4b 20 20 49 4e 20 44 52 49 56 45 27 29 3b 20 20 20 20 20 ┆ PUT FILE(D)SKIP LIST('PLEASE PUT APPROPIATE CUSTOMER DISK IN DRIVE'); ┆
0x8550…859f (432,) 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 4f 50 45 4e 20 4f 46 49 4c 45 3b 43 41 4c 4c 20 53 45 4f 46 20 28 4f 46 49 4c 45 29 3b 4c 43 4f 4e 45 4e 3d 31 3b 47 4f 54 4f 20 46 53 52 43 48 3b 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST('');OPEN OFILE;CALL SEOF (OFILE);LCONEN=1;GOTO FSRCH; ┆
0x859f…85ee (433,) 50 52 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 44 4f 20 59 4f 55 20 57 41 4e 54 20 54 4f 20 50 52 49 4e 54 20 3a 20 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PR: PUT FILE(D)SKIP EDIT('DO YOU WANT TO PRINT : ')(A(37)) ┆
0x85ee…863d (434,) 20 20 20 28 27 20 28 31 29 20 44 41 49 4c 59 20 4f 52 44 45 52 20 4c 49 53 54 27 29 28 41 28 33 37 29 29 28 27 20 28 32 29 20 42 41 43 4b 20 4f 52 44 45 52 20 4c 49 53 54 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (' (1) DAILY ORDER LIST')(A(37))(' (2) BACK ORDER LIST')(A(37)) ┆
0x863d…868c (435,) 20 20 20 20 28 27 20 28 33 29 20 4f 50 45 4e 20 4f 52 44 45 52 20 4c 49 53 54 20 27 29 28 41 28 33 37 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (' (3) OPEN ORDER LIST ')(A(37));GET SKIP LIST(A); ┆
0x868c…86db (436,) 20 20 20 49 46 20 28 56 45 52 49 46 59 28 41 2c 27 31 32 33 45 27 29 3d 30 29 20 54 48 45 4e 20 47 4f 54 4f 20 50 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF (VERIFY(A,'123E')=0) THEN GOTO PR; ┆
0x86db…872a (437,) 50 50 50 52 3a 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 50 4c 45 41 53 45 20 41 52 52 41 4e 47 45 20 50 41 50 45 52 20 46 4f 52 20 4f 52 44 45 52 20 4c 49 53 54 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆PPPR: PUT FILE(D)SKIP LIST('PLEASE ARRANGE PAPER FOR ORDER LIST '); ┆
0x872a…8779 (438,) 20 20 20 49 46 20 41 3d 27 31 27 20 54 48 45 4e 20 4f 50 45 4e 20 4f 46 49 4c 45 3b 49 46 20 41 3d 27 32 27 20 7c 20 41 3d 27 33 27 20 54 48 45 4e 20 4f 50 45 4e 20 43 4f 46 49 4c 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='1' THEN OPEN OFILE;IF A='2' ö A='3' THEN OPEN COFILE; ┆
0x8779…87c8 (439,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 43 4f 4c 4f 4e 49 41 4c 20 53 59 53 54 45 4d 53 27 29 28 58 28 36 30 29 2c 41 28 31 38 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST('');PUT SKIP EDIT('COLONIAL SYSTEMS')(X(60),A(18)); ┆
0x87c8…8817 (440,) 49 46 20 41 3d 27 31 27 20 54 48 45 4e 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 44 41 49 4c 59 27 29 28 58 28 36 30 29 2c 41 28 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF A='1' THEN PUT SKIP EDIT('DAILY')(X(60),A(6)); ┆
0x8817…8866 (441,) 49 46 20 41 3d 27 32 27 20 54 48 45 4e 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 42 41 43 4b 27 29 28 58 28 36 30 29 2c 41 28 35 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF A='2' THEN PUT SKIP EDIT('BACK')(X(60),A(5)); ┆
0x8866…88b5 (442,) 49 46 20 41 3d 27 33 27 20 54 48 45 4e 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 4f 50 45 4e 27 29 28 58 28 36 30 29 2c 41 28 35 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF A='3' THEN PUT SKIP EDIT('OPEN')(X(60),A(5)); ┆
0x88b5…8904 (443,) 20 20 50 55 54 20 45 44 49 54 28 27 4f 52 44 45 52 20 4c 49 53 54 27 29 28 41 28 31 30 29 29 3b 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 54 4f 44 41 59 27 27 53 20 44 41 54 45 20 3a 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT EDIT('ORDER LIST')(A(10));PUT SKIP LIST('TODAY''S DATE : '); ┆
0x8904…8953 (444,) 20 20 50 55 54 20 4c 49 53 54 28 42 4f 52 44 41 54 45 29 3b 42 43 4f 4d 4d 45 4e 54 3d 27 20 27 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST(BORDATE);BCOMMENT=' '; ┆
0x8953…89a2 (445,) 4f 4c 48 45 41 44 3a 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 27 4f 52 44 45 52 23 27 29 28 41 28 37 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OLHEAD:PUT SKIP(2)EDIT('ORDER#')(A(70)); ┆
0x89a2…89f1 (446,) 20 20 50 55 54 20 45 44 49 54 28 27 44 45 53 43 52 49 50 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 41 52 54 23 20 20 20 4f 52 44 45 52 20 51 54 59 20 20 51 54 59 20 53 48 49 50 50 45 44 27 29 28 41 29 20 20 20 20 20 20 ┆ PUT EDIT('DESCRIPTION PART# ORDER QTY QTY SHIPPED')(A) ┆
0x89f1…8a40 (447,) 20 20 20 20 20 20 20 20 20 20 20 20 28 27 20 20 20 20 20 53 48 49 50 20 56 49 41 20 20 20 20 20 46 52 54 20 43 48 47 27 29 28 41 29 3b 42 49 4e 56 23 3d 27 5a 5a 5a 5a 5a 27 3b 4c 4e 3d 30 3b 4e 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ (' SHIP VIA FRT CHG')(A);BINV#='ZZZZZ';LN=0;N=0; ┆
0x8a40…8a8f (448,) 20 49 46 20 42 3d 27 31 27 54 48 45 4e 20 44 4f 3b 42 3d 27 30 27 3b 47 4f 54 4f 20 4e 58 50 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF B='1'THEN DO;B='0';GOTO NXP;END; ┆
0x8a8f…8ade (449,) 4f 52 52 45 41 44 3a 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 54 4f 20 50 52 49 4d 3b 49 46 20 41 3d 27 31 27 20 54 48 45 4e 20 52 45 41 44 20 46 49 4c 45 28 4f 46 49 4c 45 29 49 4e 54 4f 20 28 4f 52 44 45 52 29 3b 20 20 20 20 20 20 20 ┆ORREAD: ON ENDFILE GOTO PRIM;IF A='1' THEN READ FILE(OFILE)INTO (ORDER); ┆
0x8ade…8b2d (450,) 49 46 20 41 3d 27 32 27 20 7c 20 41 3d 27 33 27 20 54 48 45 4e 20 52 45 41 44 20 46 49 4c 45 28 43 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 3b 43 48 53 4f 4c 44 3d 53 4f 4c 44 54 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF A='2' ö A='3' THEN READ FILE(COFILE)INTO(ORDER);CHSOLD=SOLDTO; ┆
0x8b2d…8b7c (451,) 20 20 49 46 20 4a 4f 42 3d 27 59 27 20 7c 20 49 4e 56 23 3d 27 5a 5a 5a 5a 5a 27 20 54 48 45 4e 20 47 4f 54 4f 20 4f 52 52 45 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF JOB='Y' ö INV#='ZZZZZ' THEN GOTO ORREAD; ┆
0x8b7c…8bcb (452,) 20 20 49 46 20 41 3d 27 32 27 20 54 48 45 4e 20 44 4f 3b 49 46 20 43 4f 4d 4d 45 4e 54 7f 3d 27 59 59 59 59 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 4f 52 52 45 41 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='2' THEN DO;IF COMMENT ='YYYYY' THEN GOTO ORREAD;END; ┆
0x8bcb…8c1a (453,) 20 20 20 49 46 20 41 3d 27 33 27 20 54 48 45 4e 20 44 4f 3b 49 46 20 43 4f 4d 4d 45 4e 54 3d 27 5a 5a 5a 5a 5a 27 20 54 48 45 4e 20 47 4f 54 4f 20 4f 52 52 45 41 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='3' THEN DO;IF COMMENT='ZZZZZ' THEN GOTO ORREAD;END; ┆
0x8c1a…8c69 (454,) 49 46 20 49 4e 56 23 7f 3d 42 49 4e 56 23 20 54 48 45 4e 20 44 4f 3b 49 46 20 4c 4e 3e 30 20 54 48 45 4e 20 44 4f 3b 4e 3d 4e 2b 4c 4e 3b 50 55 54 20 53 4b 49 50 28 4c 4e 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF INV# =BINV# THEN DO;IF LN>0 THEN DO;N=N+LN;PUT SKIP(LN);END; ┆
0x8c69…8cb8 (455,) 20 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 42 43 4f 4d 4d 45 4e 54 29 28 41 28 32 36 29 29 3b 4e 3d 4e 2b 33 3b 42 43 4f 4d 4d 45 4e 54 3d 43 4f 4d 4d 45 4e 54 3b 49 46 20 4e 3e 34 35 20 54 48 45 4e 20 44 4f 3b 42 3d 27 31 27 3b ┆ PUT SKIP(2)EDIT(BCOMMENT)(A(26));N=N+3;BCOMMENT=COMMENT;IF N>45 THEN DO;B='1';┆
0x8cb8…8d07 (456,) 20 50 55 54 20 53 4b 49 50 28 36 35 2d 4e 29 3b 47 4f 54 4f 20 4f 4c 48 45 41 44 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(65-N);GOTO OLHEAD;END; ┆
0x8d07…8d56 (457,) 4e 58 50 3a 50 55 54 20 53 4b 49 50 20 28 32 29 45 44 49 54 28 49 4e 56 23 29 28 41 28 35 29 29 3b 49 46 20 43 4f 4d 4d 45 4e 54 3d 27 59 59 59 59 59 27 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 42 4f 27 29 28 41 28 33 29 29 3b 20 ┆NXP:PUT SKIP (2)EDIT(INV#)(A(5));IF COMMENT='YYYYY' THEN PUT EDIT('BO')(A(3)); ┆
0x8d56…8da5 (458,) 20 20 20 20 45 4c 53 45 20 50 55 54 20 45 44 49 54 28 27 20 27 29 28 41 28 33 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE PUT EDIT(' ')(A(3)); ┆
0x8da5…8df4 (459,) 20 20 49 46 20 43 4f 4d 4d 45 4e 54 3d 27 59 59 59 59 59 27 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 27 20 27 29 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF COMMENT='YYYYY' THEN PUT EDIT(' ')(A(26)); ┆
0x8df4…8e43 (460,) 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 4f 4c 44 54 4f 4e 41 4d 45 29 28 41 28 34 30 29 29 28 53 48 49 50 54 4f 4e 41 4d 45 29 28 41 28 33 30 29 29 3b 20 4c 4e 3d 34 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP EDIT(SOLDTONAME)(A(40))(SHIPTONAME)(A(30)); LN=4; ┆
0x8e43…8e92 (461,) 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 4f 4c 44 54 4f 41 44 44 31 29 28 41 28 34 30 29 29 28 53 48 49 50 54 4f 41 44 44 31 29 28 41 28 33 30 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP EDIT(SOLDTOADD1)(A(40))(SHIPTOADD1)(A(30)); ┆
0x8e92…8ee1 (462,) 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 53 4f 4c 44 54 4f 41 44 44 32 29 28 41 28 34 30 29 29 28 53 48 49 50 54 4f 41 44 44 32 29 28 41 28 33 30 29 29 3b 50 55 54 20 53 4b 49 50 20 4c 49 53 54 28 27 01 01 01 01 01 01 01 01 27 29 3b ┆ PUT SKIP EDIT(SOLDTOADD2)(A(40))(SHIPTOADD2)(A(30));PUT SKIP LIST(' ');┆
0x8ee1…8f30 (463,) 20 20 50 55 54 20 4c 49 53 54 28 27 01 01 27 29 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 37 30 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT LIST(' ');PUT SKIP EDIT(' ')(A(70));END; ┆
0x8f30…8f7f (464,) 20 20 49 46 20 49 4e 56 23 3d 42 49 4e 56 23 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 20 27 29 28 41 28 37 30 29 29 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF INV#=BINV# THEN DO;PUT SKIP EDIT(' ')(A(70));END; ┆
0x8f7f…8fce (465,) 20 20 42 49 4e 56 23 3d 49 4e 56 23 3b 49 46 20 42 53 55 50 7f 3d 30 20 54 48 45 4e 20 44 4f 20 49 3d 28 28 42 53 55 50 29 2b 31 29 54 4f 20 38 3b 53 55 42 53 54 52 28 50 41 52 54 23 2c 49 2c 31 29 3d 27 20 27 3b 45 4e 44 3b 20 20 20 20 ┆ BINV#=INV#;IF BSUP =0 THEN DO I=((BSUP)+1)TO 8;SUBSTR(PART#,I,1)=' ';END; ┆
0x8fce…901d (466,) 20 20 50 55 54 20 45 44 49 54 28 44 45 53 29 28 41 28 32 36 29 29 28 50 41 52 54 23 29 28 41 28 39 29 29 28 4f 52 44 45 52 51 54 59 29 28 50 27 5a 5a 5a 5a 5a 39 27 29 3b 4c 4e 3d 4c 4e 2d 31 3b 4e 3d 4e 2b 31 3b 20 20 20 20 20 20 20 20 ┆ PUT EDIT(DES)(A(26))(PART#)(A(9))(ORDERQTY)(P'ZZZZZ9');LN=LN-1;N=N+1; ┆
0x901d…906c (467,) 20 20 47 4f 54 4f 20 4f 52 52 45 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO ORREAD; ┆
0x906c…90bb (468,) 50 52 49 4d 3a 49 46 20 4c 4e 3e 30 20 54 48 45 4e 20 50 55 54 20 53 4b 49 50 28 4c 4e 2b 32 29 45 44 49 54 28 42 43 4f 4d 4d 45 4e 54 29 28 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PRIM:IF LN>0 THEN PUT SKIP(LN+2)EDIT(BCOMMENT)(A(26)); ┆
0x90bb…910a (469,) 20 20 45 4c 53 45 20 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 42 43 4f 4d 4d 45 4e 54 29 28 41 28 32 36 29 29 3b 42 43 4f 4d 4d 45 4e 54 3d 27 20 27 3b 49 46 20 41 7f 3d 27 31 27 54 48 45 4e 20 47 4f 54 4f 20 4b 3b 20 20 20 20 20 ┆ ELSE PUT SKIP(2)EDIT(BCOMMENT)(A(26));BCOMMENT=' ';IF A ='1'THEN GOTO K; ┆
0x910a…9159 (470,) 20 20 50 55 54 20 53 4b 49 50 3b 4e 3d 31 33 3b 4c 4c 4b 3d 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP;N=13;LLK=0; ┆
0x9159…91a8 (471,) 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 50 4c 45 41 53 45 20 41 52 52 41 4e 47 45 20 50 41 50 45 52 20 46 4f 52 20 4a 4f 42 20 54 49 43 4b 45 54 20 27 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)SKIP LIST('PLEASE ARRANGE PAPER FOR JOB TICKET '); ┆
0x91a8…91f7 (472,) 20 20 4a 4f 42 54 49 43 4b 53 54 41 52 54 3d 27 59 27 3b 4f 50 45 4e 20 4f 46 49 4c 45 3b 42 49 4e 56 23 3d 27 5a 5a 5a 5a 5a 27 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 49 53 57 49 54 43 48 3d 31 3b 20 20 20 20 20 20 20 ┆ JOBTICKSTART='Y';OPEN OFILE;BINV#='ZZZZZ';GET SKIP LIST('');ISWITCH=1; ┆
0x91f7…9246 (473,) 49 4d 52 45 41 44 3a 20 42 50 52 4f 4f 46 3d 50 52 4f 4f 46 3b 42 44 45 4c 49 56 45 52 3d 44 45 4c 49 56 45 52 3b 42 50 52 54 4f 3d 50 52 54 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IMREAD: BPROOF=PROOF;BDELIVER=DELIVER;BPRTO=PRTO; ┆
0x9246…9295 (474,) 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 54 4f 20 43 4f 4d 3b 42 43 4f 4d 4d 45 4e 54 3d 43 4f 4d 4d 45 4e 54 3b 52 45 41 44 20 46 49 4c 45 28 4f 46 49 4c 45 29 49 4e 54 4f 28 4f 52 44 45 52 29 3b 43 48 53 4f 4c 44 3d 53 4f 4c 44 54 4f 3b ┆ON ENDFILE GOTO COM;BCOMMENT=COMMENT;READ FILE(OFILE)INTO(ORDER);CHSOLD=SOLDTO;┆
0x9295…92e4 (475,) 20 20 49 46 20 4a 4f 42 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 49 4d 52 45 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF JOB ='Y' THEN GOTO IMREAD; ┆
0x92e4…9333 (476,) 49 46 20 49 4e 56 23 7f 3d 42 49 4e 56 23 20 54 48 45 4e 20 44 4f 3b 49 46 20 4c 4c 4b 7f 3d 30 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF INV# =BINV# THEN DO;IF LLK =0 THEN DO; ┆
0x9333…9382 (477,) 20 20 20 20 4d 4d 3d 53 55 42 53 54 52 28 42 44 45 4c 49 56 45 52 2c 31 2c 32 29 3b 44 44 3d 53 55 42 53 54 52 28 42 44 45 4c 49 56 45 52 2c 33 2c 32 29 3b 59 59 3d 53 55 42 53 54 52 28 42 44 45 4c 49 56 45 52 2c 35 2c 32 29 3b 20 20 20 ┆ MM=SUBSTR(BDELIVER,1,2);DD=SUBSTR(BDELIVER,3,2);YY=SUBSTR(BDELIVER,5,2); ┆
0x9382…93d1 (478,) 20 20 42 4f 52 44 41 54 45 3d 4d 4d 20 43 41 54 20 27 2f 27 20 43 41 54 20 44 44 20 43 41 54 20 27 2f 27 20 43 41 54 20 59 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BORDATE=MM CAT '/' CAT DD CAT '/' CAT YY; ┆
0x93d1…9420 (479,) 20 20 50 55 54 20 53 4b 49 50 28 4e 2d 32 29 45 44 49 54 28 42 43 4f 4d 4d 45 4e 54 29 28 58 28 32 39 29 2c 41 28 32 36 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(N-2)EDIT(BCOMMENT)(X(29),A(26)); ┆
0x9420…946f (480,) 50 55 54 20 53 4b 49 50 28 33 29 45 44 49 54 28 42 4f 52 44 41 54 45 29 28 58 28 32 30 29 2c 41 28 38 29 29 3b 50 55 54 20 53 4b 49 50 28 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT SKIP(3)EDIT(BORDATE)(X(20),A(8));PUT SKIP(2); ┆
0x946f…94be (481,) 49 46 20 42 50 52 4f 4f 46 3d 27 59 27 20 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 42 50 52 54 4f 29 28 58 28 31 37 29 2c 41 28 32 35 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IF BPROOF='Y' THEN PUT EDIT(BPRTO)(X(17),A(25)); ┆
0x94be…950d (482,) 20 20 20 20 20 45 4e 44 3b 4e 3d 31 33 3b 49 46 20 4a 4f 42 54 49 43 4b 53 54 41 52 54 3d 27 59 27 54 48 45 4e 20 4a 4f 42 54 49 43 4b 53 54 41 52 54 3d 27 4e 27 3b 45 4c 53 45 20 50 55 54 20 53 4b 49 50 28 31 34 29 3b 20 20 20 20 20 20 ┆ END;N=13;IF JOBTICKSTART='Y'THEN JOBTICKSTART='N';ELSE PUT SKIP(14); ┆
0x950d…955c (483,) 20 20 20 47 4f 54 4f 20 49 4d 48 45 41 44 3b 45 4e 44 3b 47 4f 54 4f 20 49 4d 4c 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO IMHEAD;END;GOTO IMLN; ┆
0x955c…95ab (484,) 50 41 52 54 52 59 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 57 52 4f 4e 47 20 46 4f 52 4d 20 23 20 45 4e 54 52 59 20 50 4c 45 41 53 45 20 54 52 59 20 41 47 41 49 4e 20 21 27 29 3b 20 20 20 20 20 20 20 20 20 ┆PARTRY: PUT FILE(D)SKIP LIST('WRONG FORM # ENTRY PLEASE TRY AGAIN !'); ┆
0x95ab…95fa (485,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 47 4f 54 4f 20 50 41 52 54 41 53 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST('');GOTO PARTASK; ┆
0x95fa…9649 (486,) 46 49 4e 3a 20 43 4c 4f 53 45 20 4f 46 49 4c 45 3b 47 4f 54 4f 20 42 45 47 50 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FIN: CLOSE OFILE;GOTO BEGPR; ┆
0x9649…9698 (487,) 4d 45 53 47 31 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 53 4f 52 52 59 20 57 52 4f 4e 47 20 50 41 52 54 23 20 21 20 27 29 3b 43 41 4c 4c 20 42 50 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 20 ┆MESG1: PUT FILE(D)SKIP LIST('SORRY WRONG PART# ! ');CALL BP;GET SKIP LIST(''); ┆
0x9698…96e7 (488,) 20 20 47 4f 54 4f 20 50 41 52 54 41 53 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO PARTASK; ┆
0x96e7…9736 (489,) 4d 45 53 47 33 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 4e 4f 20 53 55 43 48 20 4f 52 44 45 52 20 4e 55 4d 42 45 52 20 21 20 27 29 3b 43 41 4c 4c 20 42 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆MESG3: PUT FILE(D)SKIP LIST('NO SUCH ORDER NUMBER ! ');CALL BP; ┆
0x9736…9785 (490,) 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 27 27 29 3b 47 4f 54 4f 20 44 45 4c 45 54 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET SKIP LIST('');GOTO DELETE; ┆
0x9785…97d4 (491,) 43 4f 4d 3a 20 4d 4d 3d 53 55 42 53 54 52 28 42 44 45 4c 49 56 45 52 2c 31 2c 32 29 3b 44 44 3d 53 55 42 53 54 52 28 42 44 45 4c 49 56 45 52 2c 33 2c 32 29 3b 59 59 3d 53 55 42 53 54 52 28 42 44 45 4c 49 56 45 52 2c 35 2c 32 29 3b 20 20 ┆COM: MM=SUBSTR(BDELIVER,1,2);DD=SUBSTR(BDELIVER,3,2);YY=SUBSTR(BDELIVER,5,2); ┆
0x97d4…9823 (492,) 20 20 20 20 42 4f 52 44 41 54 45 3d 4d 4d 20 43 41 54 20 27 2f 27 20 43 41 54 20 44 44 20 43 41 54 20 27 2f 27 20 43 41 54 20 59 59 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BORDATE=MM CAT '/' CAT DD CAT '/' CAT YY; ┆
0x9823…9872 (493,) 20 20 20 20 20 49 46 20 4c 4c 4b 3d 31 20 54 48 45 4e 20 44 4f 3b 50 55 54 20 53 4b 49 50 28 4e 2d 32 29 45 44 49 54 28 42 43 4f 4d 4d 45 4e 54 29 28 58 28 32 39 29 2c 41 28 32 36 29 29 3b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF LLK=1 THEN DO;PUT SKIP(N-2)EDIT(BCOMMENT)(X(29),A(26));; ┆
0x9872…98c1 (494,) 20 20 50 55 54 20 53 4b 49 50 28 33 29 45 44 49 54 28 42 4f 52 44 41 54 45 29 28 58 28 32 30 29 2c 41 28 38 29 29 3b 50 55 54 20 53 4b 49 50 28 32 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(3)EDIT(BORDATE)(X(20),A(8));PUT SKIP(2); ┆
0x98c1…9910 (495,) 20 20 49 46 20 42 50 52 4f 4f 46 3d 27 59 27 54 48 45 4e 20 50 55 54 20 45 44 49 54 28 42 50 52 54 4f 29 28 58 28 31 37 29 2c 41 28 32 35 29 29 3b 20 4e 3d 31 33 3b 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF BPROOF='Y'THEN PUT EDIT(BPRTO)(X(17),A(25)); N=13;END; ┆
0x9910…995f (496,) 20 20 20 20 50 55 54 20 53 4b 49 50 28 31 34 29 3b 47 4f 54 4f 20 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(14);GOTO K; ┆
0x995f…99ae (497,) 42 4b 46 49 4e 3a 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 28 27 53 55 42 54 4f 54 41 4c 20 3d 20 27 29 28 58 28 39 35 29 2c 41 28 31 32 29 29 28 47 54 4f 54 41 4c 29 28 50 27 5a 5a 5a 2c 5a 5a 39 56 2e 39 39 27 29 3b 20 20 20 20 20 20 ┆BKFIN: PUT SKIP EDIT('SUBTOTAL = ')(X(95),A(12))(GTOTAL)(P'ZZZ,ZZ9V.99'); ┆
0x99ae…99fd (498,) 20 20 20 20 47 47 54 4f 54 41 4c 3d 47 47 54 4f 54 41 4c 2b 47 54 4f 54 41 4c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GGTOTAL=GGTOTAL+GTOTAL; ┆
0x99fd…9a4c (499,) 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 28 32 29 45 44 49 54 28 27 54 4f 54 41 4c 20 4f 52 44 45 52 20 41 4d 4f 55 4e 54 20 3d 20 27 29 28 58 28 38 35 29 2c 41 28 32 32 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP(2)EDIT('TOTAL ORDER AMOUNT = ')(X(85),A(22)) ┆
0x9a4c…9a9b (500,) 20 20 20 20 28 47 47 54 4f 54 41 4c 29 28 50 27 5a 5a 5a 2c 5a 5a 39 56 2e 39 39 27 29 3b 50 55 54 20 53 4b 49 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ (GGTOTAL)(P'ZZZ,ZZ9V.99');PUT SKIP; ┆
0x9a9b…9aea (501,) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 4c 49 53 54 28 27 4f 52 44 45 52 20 4c 49 53 54 20 4f 2e 4b 2e 20 3f 20 27 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT FILE(D)SKIP LIST('ORDER LIST O.K. ? ');GET SKIP LIST(A); ┆
0x9aea…9b39 (502,) 20 20 20 20 49 46 20 41 3d 27 4e 27 20 54 48 45 4e 20 47 4f 54 4f 20 4f 52 41 44 4a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='N' THEN GOTO ORADJ; ┆
0x9b39…9b88 (503,) 20 20 20 20 49 46 20 41 7f 3d 27 59 27 20 54 48 45 4e 20 47 4f 54 4f 20 42 4b 46 49 4e 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A ='Y' THEN GOTO BKFIN; ┆
0x9b88…9bd7 (504,) 20 20 4f 50 45 4e 20 4f 46 49 4c 45 3b 43 4c 4f 53 45 20 4f 46 49 4c 45 3b 43 4c 4f 53 45 20 48 4f 46 49 4c 45 3b 43 4c 4f 53 45 20 43 4f 46 49 4c 45 3b 47 4f 54 4f 20 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN OFILE;CLOSE OFILE;CLOSE HOFILE;CLOSE COFILE;GOTO K; ┆
0x9bd7…9c26 (505,) 4f 52 41 44 4a 3a 20 50 55 54 20 46 49 4c 45 28 44 29 53 4b 49 50 20 45 44 49 54 28 27 54 4f 20 43 48 41 4e 47 45 20 4f 52 44 45 52 53 20 45 4e 54 45 52 45 44 20 3a 20 27 29 28 41 28 33 37 29 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ORADJ: PUT FILE(D)SKIP EDIT('TO CHANGE ORDERS ENTERED : ')(A(37)) ┆
0x9c26…9c75 (506,) 20 20 20 20 28 27 28 31 29 20 44 45 4c 45 54 45 20 27 29 28 41 28 33 37 29 29 28 27 28 32 29 20 41 44 44 20 27 29 28 41 28 33 37 29 29 3b 47 45 54 20 53 4b 49 50 20 4c 49 53 54 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ('(1) DELETE ')(A(37))('(2) ADD ')(A(37));GET SKIP LIST(A); ┆
0x9c75…9cc4 (507,) 20 20 20 20 49 46 20 41 3d 27 31 27 20 54 48 45 4e 20 47 4f 54 4f 20 44 45 4c 45 54 45 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='1' THEN GOTO DELETE; ┆
0x9cc4…9d13 (508,) 20 20 20 20 49 46 20 41 3d 27 45 27 20 54 48 45 4e 20 47 4f 54 4f 20 4b 3b 49 46 20 41 7f 3d 27 32 27 20 54 48 45 4e 20 47 4f 54 4f 20 4f 52 41 44 4a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF A='E' THEN GOTO K;IF A ='2' THEN GOTO ORADJ; ┆
0x9d13…9d62 (509,) 20 20 20 20 4f 50 45 4e 20 4f 46 49 4c 45 3b 43 41 4c 4c 20 53 45 4f 46 28 4f 46 49 4c 45 29 3b 47 4f 54 4f 20 48 45 41 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN OFILE;CALL SEOF(OFILE);GOTO HEAD; ┆
0x9d62…9db1 (510,) 42 59 45 3a 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆BYE: END; ┆