COMTRAN Reconstruction

J28-6169 · January 1962

90.05 listing

PDF page 193 of 221. Download the scanned PDF

The page as scanned

The scan of PDF page 193 of J28-6169
Select the scan to open it at full size.

The text read off it

[90.05 sample-program listing, PDF p.193]

Compilation listing of the sample problem, page 2 — DATA DIVISION (PAYRECORD, DEPARTMENT.TOTAL, BONDORDER records) Compilation of Sample Problem, printer listing page 2 (PDF p.193).

        DATE 10/18/61  TIME  2.45  ACCOUNT                     ID. CT PUBLICATIONS         PAGE  2

         48,00   71260    EMPLOYEE.NUMBER            2
         49,00   71261      DEPARTMENT               3        AA
         50,00           GN)005                      3        A ' '
         51,00   71263      EMPLOYEE                 3        AAAA
         52,00           GN)006                      3        A ' '
         53,00   71265      NAME                     2        A(15)
         54,00           GN)007                      2        A ' '
         55,00   71267      DATE                     2
         56,00   71270        MONTH                  3        AA
         57,00           GN)008                      3        A '-'
         58,00   71272        DAY                    3        AA
         59,00           GN)009                      3        A '-'
         60,00   71274        YEAR                   3        AA
         61,00           GN)010                      2        AAA ' '
         62,00   71276      HRS                      2        8889.9
         63,00           GN)011                      2        AA ' '
         64,00   71300      GROSS                    2        88889.99
         65,00           GN)012                      2        AA ' '
         66,00   71302      WHT                      2        88889.99
         67,00           GN)013                      2        AA ' '
         68,00   71304      FICA                     2        8889.99
         69,00           GN)014                      2        AA ' '
         70,00   71306      BONDEDUCTION             2        8889.99
         71,00           GN)015                      2        AA ' '
         72,00   71310      INS.PREM                 2        8889.99
         73,00           GN)016                      2        AA ' '
         74,00   71312      RET.PREM                 2        8889.99
         75,00           GN)017                      2        AAA ' '
         76,00   71314      NETPAY                   2        8889.99
         77,00           GN)018                      2        AA ' '
         78,00   71316      BONDENOMINATION          2        88889.99
         79,00   71317  DEPARTMENT.TOTAL          1RECORD
         80,00           GN)019                      2        A(21) '          DEPARTMENT '
         81,00   71322    CURRENT.DEPT               2        AA
         82,00           GN)020                      2        A(12) ' TOTALS     '
         83,00   71324    HOURS                      2        8889.9
         84,00           GN)021                      2        AA ' '
         85,00   71326    GROSS                      2        88889.99
         86,00           GN)022                      2        AA ' '
         87,00   71330    WHT                        2        88889.99
         88,00           GN)023                      2        AA ' '
         89,00   71332    FICA                       2        8889.99
         90,00           GN)024                      2        AA ' '
         91,00   71334    BONDEDUCTION               2        8889.99
         92,00           GN)025                      2        AA ' '
         93,00   71336    INSURANCE                  2        8889.99
         94,00           GN)026                      2        AA ' '
         95,00   71340    RETIREMENT                 2        8889.99
         96,00           GN)027                      2        AA ' '
         97,00   71342    NETPAY                     2        88889.99
         98,00           GN)028                      2        AA ' '
         99,00   71344    BONDPURCHASES              2        88889.99
        100,00   71345  BONDORDER                1RECORD
        101,00           GN)029                      2        A ' '
        102,00   71350    DAT                        2