DataMuseum.dk

Presents historical artifacts from the history of:

Q1 computer

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Q1 computer

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦4e29b6966⟧ Q1_Text, reclen=79

    Length: 4819 (0x12d3)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »D_INIT_S«

Derivation

└─⟦415b26bc8⟧ Bits:30008568 DDMQ1-0003_Source_For_Q1_Payroll_Package_Diskette_1_1
    └─⟦this⟧ »D_INIT_S« 

Text

/* *** This Program Initializes the DEPARTMT File *** */                       
                                                                               
DCL DEPARTMT FILE;                                                             
DCL 1 DEPARTMENT,                                                              
      2 ID#         FIXED(3),   /* Department Number        */                 
      2 INM         CHAR(16),   /* Department Name-Optional */                 
      2 ISEX(2)     BINARY,     /* 1- # of Males, 2- # of F */                 
      2 ITOTALS(2),             /* 1 - YTD , 2 - QTD        */                 
        3 IVAC      FIXED(8,2), /* Number of Vacation Hours */                 
        3 ISICK     FIXED(8,2), /* Number of Sick Hours     */                 
        3 IREG      FIXED(8,2), /* Number of Regular Hours  */                 
        3 IOVER     FIXED(8,2), /* Number of Overtime Hours */                 
        3 IOTHRA    FIXED(9,2), /* "Other-Taxable" Amount   */                 
        3 IOTHRB    FIXED(9,2), /* "Other-NonTaxble" Amount */                 
        3 IVAC$     FIXED(9,2), /* Total Vacation Amount    */                 
        3 ISICK$    FIXED(9,2), /* Total Sick Amount        */                 
        3 IREG$     FIXED(9,2), /* Total Regular Pay Amount */                 
        3 IOT$      FIXED(9,2), /* Total Overtime Pay Amt   */                 
        3 IGROSS    FIXED(9,2), /* Total Gross for Departmt */                 
        3 IFEDTX    FIXED(9,2), /* Total Federal Tax Amount */                 
        3 IFICA     FIXED(7,2), /* Total FICA Tax Amount    */                 
        3 ISUI      FIXED(7,2), /* Total SUI & DIS Amount   */                 
        3 ISTATE    FIXED(9,2), /* Total State Taxes Amount */                 
        3 ICITY     FIXED(9,2), /* Total City Taxes Amount  */                 
      2 DCOUNTER    CHAR(2), /* '00'-Ready for current Pay-Freq #M,F */        
      2 IFILLER(4)  CHAR(10) INIT(' ',' ',' ','         Y');                   
                                                                               
DCL 1 TINIT,                                                                   
    2 SVAC    FIXED(8,2) INIT(0),                                              
    2 SSICK   FIXED(8,2) INIT(0),                                              
    2 SREG    FIXED(8,2) INIT(0),                                              
    2 SOVER   FIXED(8,2) INIT(0),                                              
    2 SOTHRA  FIXED(9,2) INIT(0),                                              
    2 SOTHRB  FIXED(9,2) INIT(0),                                              
    2 SVAC$   FIXED(9,2) INIT(0),                                              
    2 SSICK$  FIXED(9,2) INIT(0),                                              
    2 SREG$   FIXED(9,2) INIT(0),                                              
    2 SOT$    FIXED(9,2) INIT(0),                                              
    2 SGROSS  FIXED(9,2) INIT(0),                                              
    2 SFEDTX  FIXED(9,2) INIT(0),                                              
    2 SFICA   FIXED(7,2) INIT(0),                                              
    2 SSUI    FIXED(7,2) INIT(0),                                              
    2 SSTATE  FIXED(9,2) INIT(0),                                              
    2 SCITY   FIXED(9,2) INIT(0);                                              
      ID# = 999;                                                               
      INM = ('END OF FILE REC');                                               
      COUNTER = '00'; /* '11'-Yet have old P_FREQ Value for #M,F */            
DO I = 1 TO 2;                                                                 
      ITOTALS(I) = TINIT;                                                      
      ISEX(I) = 0;                                                             
      END;                                                                     
                                                                               
      OPEN DEPARTMT;                                                           
      WRITE FILE(DEPARTMT) FROM(DEPARTMENT);                                   
      CLOSE DEPARTMT;                                                          
      PUT FILE(D) SKIP LIST('OK');                                             
      GET SKIP LIST('');                                                       
      IFILLER(4) = ('         N'); OPEN DEPARTMT;                              
READ FILE(DEPARTMT) INTO(DEPARTMENT); PUT FILE(D) LIST(IFILLER(4));            
GET SKIP LIST('');                                                             
      END;