home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
viscobv6.zip
/
vac22os2
/
ibmcobol
/
samples
/
putut
/
recin.cpy
< prev
next >
Wrap
Text File
|
1996-05-30
|
738b
|
10 lines
* File RECIN COPY REC00010
01 INBUFVARDS. REC00020
05 NAME. REC00030
07 FIRSTNAME PIC X(20) VALUE SPACES. REC00040
07 LASTNAME PIC X(40). REC00050
05 ADDR PIC X(100). REC00060
05 ACCOUNT-OPEN-DDMMYY PIC X(6). REC00070
05 ACCOUNT-UPDT-DDMMYY PIC X(6). REC00080
05 RATEVAR PIC 9(4). REC00090