midrange.com code scratchpad |
Name:
Matt
|
Scriptlanguage:
Plain Text
|
Tabwidth:
0
|
Date:
12/12/2012 02:55:35 pm
|
IP:
Logged
|
|
Description:
Data structures I had to comment out
|
Code:
- Dqusec ds
- D qusbprv 10i 0 inz(%size(qusec)) Bytes Provided
- D qusbavl 10i 0 inz(0) Bytes Available
- D qusei 7 Exception Id
- D 1 Reserved
- D msgdata 500
-
- * Data Structures
- D DS
- D TIMENUM 1 14S 0
- D DATE1N 7 14S 0
- D DS
- D DATE2 1 8S 0
- D DATE2STR 1 8A
- *
- * below maps session variable savedata to fields the program needs
- D DS
- D SAVEDATA 3000
- D TRIES 3S 0 OVERLAY(SAVEDATA:1)
- D LOCKED 1 OVERLAY(SAVEDATA:4)
- *
- D DS
- D SDDATLONG 1 15S 0
- D SDDATN 8 15S 0
|
|
|