home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sams Cobol 24 Hours
/
Sams_Cobol_24_Hours.iso
/
source
/
ch24
/
CHAPT24A.CPY
< prev
Wrap
Text File
|
1998-09-14
|
13KB
|
283 lines
********************************
* Parameter For Converse-Panel *
* Parameter For Get-Input *
********************************
01 Chapt24a-Converse-Data.
05 Chapt24a-Ret-Code
Pic S9(4) Comp-5.
05 Chapt24a-Lens.
10 Chapt24a-Len-Len
Pic S9(4) Comp-5 Value +20.
10 Chapt24a-Ip-Num-Len
Pic S9(4) Comp-5 Value +40.
10 Chapt24a-Ip-Char-Len
Pic S9(4) Comp-5 Value +106.
10 Chapt24a-Op-Num-Len
Pic S9(4) Comp-5 Value +6.
10 Chapt24a-Op-Char-Len
Pic S9(4) Comp-5 Value +2.
10 Chapt24a-Field-Len
Pic S9(4) Comp-5 Value +344.
10 Chapt24a-Colr-Len
Pic S9(4) Comp-5 Value +21.
10 Chapt24a-Type-Len
Pic S9(4) Comp-5 Value +21.
10 Filler
Pic S9(4) Comp-5 Value +0.
10 Filler
Pic S9(4) Comp-5 Value +0.
05 Chapt24a-Data.
******** Chapt24a-Ip-Num-Data ********
10 Chapt24a-Key
Pic S9(4) Comp-5.
88 Chapt24a-Read-Hit
Value 317.
88 Chapt24a-Clear-Hit
Value 318.
88 Chapt24a-Exit-Hit
Value 319.
10 Chapt24a-Next-Fld-Id
Pic S9(4) Comp-5.
10 Chapt24a-Next-Fld-Num
Pic S9(4) Comp-5.
10 Chapt24a-Next-Tab-Num
Pic S9(4) Comp-5.
10 Chapt24a-Next-Occurs
Pic S9(4) Comp-5.
10 Chapt24a-Last-Fld-Id
Pic S9(4) Comp-5.
10 Chapt24a-Last-Fld-Num
Pic S9(4) Comp-5.
10 Chapt24a-Last-Tab-Num
Pic S9(4) Comp-5.
10 Chapt24a-Last-Occurs
Pic S9(4) Comp-5.
10 Chapt24a-Menu-Id
Pic S9(4) Comp-5.
10 Chapt24a-Row-Col-Sw
Pic S9(4) Comp-5.
10 Chapt24a-Cursor-Row
Pic S9(4) Comp-5.
10 Chapt24a-Cursor-Col
Pic S9(4) Comp-5.
10 Chapt24a-Last-Row
Pic S9(4) Comp-5.
10 Chapt24a-Last-Col
Pic S9(4) Comp-5.
10 Chapt24a-Disp-Sw
Pic S9(4) Comp-5.
10 Chapt24a-Next-Vert
Pic S9(4) Comp-5.
10 Chapt24a-Last-Vert
Pic S9(4) Comp-5.
10 Chapt24a-Next-Hor
Pic S9(4) Comp-5.
10 Chapt24a-Last-Hor
Pic S9(4) Comp-5.
******** Chapt24a-Ip-Char-Data ********
10 Chapt24a-Next-Panel
Pic X(8).
10 Chapt24a-Next-Field
Pic X(30).
10 Chapt24a-Last-Field
Pic X(30).
10 Chapt24a-Menu-Option
Pic X(30).
10 Chapt24a-Switch-Sw
Pic X.
10 Chapt24a-Size-Sw
Pic X.
10 Chapt24a-Mouse-Sw
Pic X.
10 Chapt24a-Capture-Sw
Pic X.
10 Chapt24a-Wait-Sw
Pic X.
10 Chapt24a-Curs-Sw
Pic X.
10 Chapt24a-Chg-Sw
Pic X.
10 Chapt24a-Timeout
Pic X.
******** Chapt24a-Op-Num-Data ********
10 Chapt24a-Pan-Pos-Sw
Pic S9(4) Comp-5.
10 Chapt24a-Pan-Row
Pic S9(4) Comp-5.
10 Chapt24a-Pan-Col
Pic S9(4) Comp-5.
******** Chapt24a-Op-Char-Data ********
10 Chapt24a-New-Window
Pic X.
10 Chapt24a-Display-Sw
Pic X.
******** Chapt24a-Op-Var-Data ********
05 Chapt24a-Fields.
10 Chapt24a-Number
Pic X(0008).
10 Chapt24a-Last
Pic X(0025).
10 Chapt24a-First
Pic X(0015).
10 Chapt24a-Middle
Pic X(0010).
10 Chapt24a-Address-Line-1
Pic X(0050).
10 Chapt24a-Address-Line-2
Pic X(0050).
10 Chapt24a-City
Pic X(0040).
10 Chapt24a-State-Or-Country
Pic X(0020).
10 Chapt24a-Postal-Code
Pic X(0015).
10 Chapt24a-Home-Phone
Pic X(0020).
10 Chapt24a-Work-Phone
Pic X(0020).
10 Chapt24a-Other-Phone
Pic X(0020).
10 Chapt24a-Start-Date
Pic 9(0008).
10 Chapt24a-Last-Rent-Paid-Date
Pic 9(0008).
10 Chapt24a-Next-Rent-Due-Date
Pic 9(0008).
10 Chapt24a-Rent-Amount
Pic 9(04)v9(02).
10 Chapt24a-Consignment-Percent
Pic 9(003).
10 Chapt24a-Operation-Type
Pic X(0018).
05 Chapt24a-Colrs.
10 Chapt24a-Number-C
Pic X.
10 Chapt24a-Last-C
Pic X.
10 Chapt24a-First-C
Pic X.
10 Chapt24a-Middle-C
Pic X.
10 Chapt24a-Address-Line-1-C
Pic X.
10 Chapt24a-Address-Line-2-C
Pic X.
10 Chapt24a-City-C
Pic X.
10 Chapt24a-State-Or-Country-C
Pic X.
10 Chapt24a-Postal-Code-C
Pic X.
10 Chapt24a-Home-Phone-C
Pic X.
10 Chapt24a-Work-Phone-C
Pic X.
10 Chapt24a-Other-Phone-C
Pic X.
10 Chapt24a-Start-Date-C
Pic X.
10 Chapt24a-Last-Rent-Paid-Date-C
Pic X.
10 Chapt24a-Next-Rent-Due-Date-C
Pic X.
10 Chapt24a-Rent-Amount-C
Pic X.
10 Chapt24a-Consignment-Percent-C
Pic X.
10 Chapt24a-Operation-Type-C
Pic X.
10 Chapt24a-Read-C
Pic X.
10 Chapt24a-Clear-C
Pic X.
10 Chapt24a-Exit-C
Pic X.
05 Chapt24a-Types.
10 Chapt24a-Number-T
Pic X.
10 Chapt24a-Last-T
Pic X.
10 Chapt24a-First-T
Pic X.
10 Chapt24a-Middle-T
Pic X.
10 Chapt24a-Address-Line-1-T
Pic X.
10 Chapt24a-Address-Line-2-T
Pic X.
10 Chapt24a-City-T
Pic X.
10 Chapt24a-State-Or-Country-T
Pic X.
10 Chapt24a-Postal-Code-T
Pic X.
10 Chapt24a-Home-Phone-T
Pic X.
10 Chapt24a-Work-Phone-T
Pic X.
10 Chapt24a-Other-Phone-T
Pic X.
10 Chapt24a-Start-Date-T
Pic X.
10 Chapt24a-Last-Rent-Paid-Date-T
Pic X.
10 Chapt24a-Next-Rent-Due-Date-T
Pic X.
10 Chapt24a-Rent-Amount-T
Pic X.
10 Chapt24a-Consignment-Percent-T
Pic X.
10 Chapt24a-Operation-Type-T
Pic X.
10 Chapt24a-Read-T
Pic X.
10 Chapt24a-Clear-T
Pic X.
10 Chapt24a-Exit-T
Pic X.
************************************************
* Field Ids - Use For Cursor Positioning, Etc. *
************************************************
01 Chapt24a-Ids.
05 Chapt24a-Number-I
Pic S9(4) Comp-5 Value +1.
05 Chapt24a-Last-I
Pic S9(4) Comp-5 Value +2.
05 Chapt24a-First-I
Pic S9(4) Comp-5 Value +3.
05 Chapt24a-Middle-I
Pic S9(4) Comp-5 Value +4.
05 Chapt24a-Address-Line-1-I
Pic S9(4) Comp-5 Value +5.
05 Chapt24a-Address-Line-2-I
Pic S9(4) Comp-5 Value +6.
05 Chapt24a-City-I
Pic S9(4) Comp-5 Value +7.
05 Chapt24a-State-Or-Country-I
Pic S9(4) Comp-5 Value +8.
05 Chapt24a-Postal-Code-I
Pic S9(4) Comp-5 Value +9.
05 Chapt24a-Home-Phone-I
Pic S9(4) Comp-5 Value +10.
05 Chapt24a-Work-Phone-I
Pic S9(4) Comp-5 Value +11.
05 Chapt24a-Other-Phone-I
Pic S9(4) Comp-5 Value +12.
05 Chapt24a-Start-Date-I
Pic S9(4) Comp-5 Value +13.
05 Chapt24a-Last-Rent-Paid-Date-I
Pic S9(4) Comp-5 Value +14.
05 Chapt24a-Next-Rent-Due-Date-I
Pic S9(4) Comp-5 Value +15.
05 Chapt24a-Rent-Amount-I
Pic S9(4) Comp-5 Value +16.
05 Chapt24a-Consignment-Percent-I
Pic S9(4) Comp-5 Value +17.
05 Chapt24a-Operation-Type-I
Pic S9(4) Comp-5 Value +18.
05 Chapt24a-Read-I
Pic S9(4) Comp-5 Value +19.
05 Chapt24a-Clear-I
Pic S9(4) Comp-5 Value +20.
05 Chapt24a-Exit-I
Pic S9(4) Comp-5 Value +21.
