18 FORCE NEW RECORD
00010 0 01303 0 01332 2HTRX−1,0,LOCREC CARD FOR DE
01303 3ORGLOCREC
TD01303 3 00000 0 00010 4TXH8 4160 FT 34
01304 0 07400 4 00740 5TSXPRINT,4
01305 0 01252 0 01244 6HTRSOURCE,0,SOURCE+6
01306 0 07400 4 00740 7TSXPRINT,4
01307 0 01333 0 01311 8HTRPR,0,PR+18
01310 0 02000 0 00272 9TRASPEND
01311 606060606060 10PR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
01312 606060606060 11
01313 475146275121 12BCD PROGRAM␣HAS␣MORE␣THAN␣50␣DO␣STATEMENTS␣IN␣A␣NEST.␣␣REWRITE␣P
01314 446030216260 13
01315 444651256063 14
01316 302145600500 15
01317 602446606263 16
01320 216325442545 17
01321 636260314560 18
01322 216045256263 19
01323 336060512566 20
01324 513163256047 21
01325 514627512144 22BCD6ROGRAM␣WITH␣SIMPLER␣DO␣STRUCTURE.␣␣␣
01326 606631633060 23
01327 623144474325 24
01330 516024466062 25
01331 635164236364 26
01332 512533606060 27
01333 0 00000 0 00000 28X