SEQUENCE IND DO LAST PAGE PROGRAM
NUMBER *...1....+....2....+....3....+....4....+....5....+....6....+....7...*
USE NUM UPDATE LINE ID
S o u r c e L i s t i n g
H *****
100 FVENDORS IF E K DISK 10/24/91
RECORD FORMAT(S): LIBRARY SGAFP FILE VENDORS.
EXTERNAL FORMAT VNDMSTR RPG NAME VNDMSTR
200 FLABELS O E PRINTER 08/25/91
RECORD FORMAT(S): LIBRARY SGAFP FILE LABELS.
EXTERNAL FORMAT LABEL RPG NAME LABEL
A000000 INPUT FIELDS FOR RECORD VNDMSTR FILE VENDORS FORMAT VNDMSTR.
A000000 VENDMAST DB FORMAT
A000001 P 1 30VNDNBR VENDOR NUMBER
A000002 4 28 NAME NAME
A000003 29 53 ADDR1 ADDRESS LINE 1
A000004 54 68 CITY CITY
A000005 69 70 STATE STATE
A000006 P 71 730ZIPCD ZIP CODE
A000007 P 74 750VNDCLS VENDOR CLASS
A000008 76 76 VNDSTS A=ACTIVE, D=DELETE, S=SUSPEND
A000009 P 77 812BALOWE BALANCE OWED
A000010 82 82 SRVRTG G=GOOD, A=AVERAGE, B=BAD, P=PREFERRED
300 C READ VENDORS 50 3 10/24/91
400 C *IN50 DOWNE*ON B001 08/25/91
500 C WRITELABEL 001 08/25/91
600 C READ VENDORS 50 3 001 10/24/91
700 C ENDDO E001 08/25/91
800 C SETON LR 1 08/25/91
B000000 OUTPUT FIELDS FOR RECORD LABEL FILE LABELS FORMAT LABEL.
B000001 NAME 25 CHAR 25
B000002 ADDR1 50 CHAR 25
B000003 CITY 65 CHAR 15
B000004 STATE 67 CHAR 2
B000005 ZIPCD 72 ZONE 5,0
* * * * * E N D O F S O U R C E * * * * *