Data Build Manual

Enscribe Conversion Program
Sample Conversion Programs
099331 Tandem Computers Incorporated B–5
91 05 SWT-RECV-OPEN PIC X VALUE SPACE.
92 05 CONS-RESP PIC X VALUE SPACE.
93 05 WK-FNAME PIC X(8) VALUE SPACES.
94 01 SAVE-WK-STOR PIC X(100).
95 01 SYSTEM-VERSION PIC X(5) VALUE "N 20 ".
96 01 SYSTEM-SERIES PIC X VALUE "D".
97 01 WK-NULLINDS.
98 05 WK-NULLIND PIC S9(4) COMP OCCURS 500 TIMES.
99 01 WK-DEFINE PIC X(40).
100 01 WK-TIMESTAMP.
101 05 WK-DATE.
102 10 WK-YR PIC 9(4).
103 10 FILLER PIC X.
104 10 WK-MO PIC 99.
105 10 FILLER PIC X.
106 10 WK-DA PIC 99.
107 05 FILLER PIC X.
108 05 WK-TIME.
109 10 WK-HR PIC 99.
110 10 FILLER PIC X.
111 10 WK-MN PIC 99.
112 10 FILLER PIC X.
113 10 WK-SC PIC 99.
114 05 FILLER PIC X.
115 05 WK-FRACTN1 PIC 999.
116 05 WK-FRACTN2 PIC 999.
117 01 W1-DATE-TIME.
118 05 W1-DATE-TIME1 PIC 9(4) COMP.
119 05 W1-DATE-TIME2 PIC 9(4) COMP.
120 05 W1-DATE-TIME3 PIC 9(4) COMP.
121 05 W1-DATE-TIME4 PIC 9(4) COMP.
122 05 W1-DATE-TIME5 PIC 9(4) COMP.
123 05 W1-DATE-TIME6 PIC 9(4) COMP.
124 05 W1-DATE-TIME7 PIC 9(4) COMP.
125 01 W2-DATE-TIME.
126 05 W2-DATE-TIME1 PIC 99.
127 05 W2-DATE-TIME2 PIC 99.
128 05 W2-DATE-TIME3 PIC 99.
129 05 W2-DATE-TIME4 PIC 99.
130 05 W2-DATE-TIME5 PIC 99.
131 05 W2-DATE-TIME6 PIC 99.
132 05 W2-DATE-TIME7 PIC 99.
133 01 W2-TIMESTAMP.
134 05 W2-YR PIC 9(4) COMP.
135 05 W2-MO PIC 9(4) COMP.
136 05 W2-DA PIC 9(4) COMP.
137 05 W2-HR PIC 9(4) COMP.
138 05 W2-MN PIC 9(4) COMP.
139 05 W2-SC PIC 9(4) COMP.
140 05 W2-FRACTN1 PIC 9(4) COMP.
141 05 W2-FRACTN2 PIC 9(4) COMP.
142 01 W2-JUL64 PIC S9(18) COMP.
143 01 W3-DATE PIC 9(8).
144 01 W3-DATEX REDEFINES W3-DATE.
145 05 W3-YR PIC 9(4).
146 05 W3-MO PIC 99.