ibmi-brunch-learn

Announcement

Collapse
No announcement yet.

Reg I-Spec in RPG

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Reg I-Spec in RPG

    Hi All,

    Im in very urgent need of usage of I-spec with primary file along with control level indicators.

    Can anyone pls pls explain me with example
    it wud be of great help.........................

    Pls Help

  • #2
    Re: Reg I-Spec in RPG

    pls pls pls try to look up these very basic questions. rather than give you the answer to your test questions i'll refer you to the manuals http://publib.boulder.ibm.com/iserie...c092508402.htm happy hunting and good luck on your quiz
    I'm not anti-social, I just don't like people -Tommy Holden

    Comment


    • #3
      Re: Reg I-Spec in RPG

      I swear, the core posters on this Forum are getting grumpier by the day

      The easy answer is "i-specs are evil in carnate". Please don't muddle any code you write with them and look up the more modern alternatives that 1.) Make your code easier to write, 2.) Make your code easier to read and 3.) Make your code easier to maintain.

      Comment


      • #4
        Re: Reg I-Spec in RPG

        I think tom has always been a bit grumpy...

        I found some very old "stuff" I also think Tom worked for this
        company at one time....
        PHP Code:
             H********************************************************************
             
        H*** PROGRAM:      CLKITPS
             H
        ***
             
        H*** DESCRIPTION:  PROGRAM CREATES CKTIPOST FILE FROM CKTIMEPS TO
             H
        ***               INTERFACE INTO SOFTWARE PAYROLL SYSTEMS
             H
        ***
             
        H*** DATE WRITTEN10/21/94     TK/AS VERSION 7
             H
        ***     DATE MOD01/16/98 JMB ZERO OUT TPPRAT FIELD AND CHECK
             H
        ***                            COEX43 FIELD OF CKCOMPAN FOR A
             H
        ***                            $ ADJ FLAG COPY ADJ RECS
             H
        ***                            IN CKADJPOS TO CKTIPOST IF FLAG
             H
        ***
             
        H***               06/22/98 HWW GET PAYROLL COMPANY FROM EMPLOYEE MASTER
             H
        ***               06/30/00 JWB DON'T ZERO OUT TPPRAT FIELD.
             H********************************************************************
             H        1
             FCKTIMEPSIP  E           K        DISK
             FCKWORKCDIF  E           K        DISK
             FCKCOMPANIF  E           K        DISK
        HWW01FCKEMPLMSIF  E           K        DISK
             FCKTIPOSTO   E                    DISK
             E                    TC         10  5               TPPC01-10
             E                    TH         10  5 2             TPHR01-10
             ITIMEPSFM    01
             I********************************************************************
             I*  DATA STRUCTURE - PAY CODES   (TPPC01 - 10)
             I********************************************************************
             I            DS
             I                                        1  50 TC
             I                                        1   5 TPPC01
             I                                        6  10 TPPC02
             I                                       11  15 TPPC03
             I                                       16  20 TPPC04
             I                                       21  25 TPPC05
             I                                       26  30 TPPC06
             I                                       31  35 TPPC07
             I                                       36  40 TPPC08
             I                                       41  45 TPPC09
             I                                       46  50 TPPC10
             I**
             I********************************************************************
             I*  DATA STRUCTURE - HOURS (TPHR01-10) FOR PAYCODES(TPPC01 - 10)
             I********************************************************************
             I            DS
             I                                        1  50 TH
             I                                        1   52TPHR01
             I                                        6  102TPHR02
             I                                       11  152TPHR03
             I                                       16  202TPHR04
             I                                       21  252TPHR05
             I                                       26  302TPHR06
             I                                       31  352TPHR07
             I                                       36  402TPHR08
             I                                       41  452TPHR09
             I                                       46  502TPHR10
             I********************************************************************
             I              01                    C         DFTCOM
             I              '
        $'                   C         ADJFLG
             I********************************************************************
        HWW01C           KY1       KLIST
          Ý  C                     KFLD           TPCONO
          Ý  C                     KFLD           TPEMPN
          Ý  C*
          Ý  C           KY1       CHAINCKEMPLMS             60
          Ý  C           *IN60     IFEQ *OFF
          Ý  C                     MOVELEEPRCO    TPPRCO
        HWW01C                     ENDIF
             C*
        J0630C*****                MOVE *ZEROS    TPPRAT
             C*
             C                     Z-ADD1         Z       20
             C                     DO   10
             C           TC,Z      IFNE *BLANKS
        T0125C           TH,Z      ANDNE*ZEROS
             C           TC,Z      CHAINCKWORKCD             98
             C                     Z-ADD*ZEROS    TPRETM
             C                     Z-ADD*ZEROS    TPREGH
             C                     Z-ADD*ZEROS    TPOTT1
             C                     Z-ADD*ZEROS    TPOTT2
             C                     Z-ADD*ZEROS    TPOTT3
             C                     Z-ADD*ZEROS    TPOTT4
             C                     MOVE TC,Z      TPCODE
             C           WCNONP    IFEQ '
        Y'
             C           WCNONW    ANDEQ'
        Y'
             C                     Z-ADDTH,Z      TPSETM
             C                     ELSE
             C                     Z-ADDTH,Z      TPRETM
             C                     END
             C                     Z-ADDWCMULT    OVRATE  52
             C           OVRATE    IFLE 1.00
             C                     Z-ADDTH,Z      TPREGH
             C                     ELSE
             C           OVRATE    IFEQ 1.50
             C                     Z-ADDTH,Z      TPOTT1
             C                     ELSE
             C           OVRATE    IFEQ 2.00
             C                     Z-ADDTH,Z      TPOTT2
             C                     ELSE
             C           OVRATE    IFEQ 2.50
             C                     Z-ADDTH,Z      TPOTT3
             C                     ELSE
             C           OVRATE    IFEQ 3.00
             C                     Z-ADDTH,Z      TPOTT4
             C                     ELSE
             C                     Z-ADDTH,Z      TPOTT1
             C                     END
             C                     END
             C                     END
             C                     END
             C*
             C                     END
        J0830C*
        |    C                     MOVELTPBSFT    TPRDTI
        |    C           TPRDTI    IFEQ *ZEROS
        |    C                     MOVELTPRTIM    TPRDTI
        |    C                     ENDIF
        J0830C*
             C                     WRITETIPOSTFM
             C                     END
             C                     ADD  1         Z
             C                     END
             C*
             CLR         DFTCOM    CHAINCKCOMPAN             98
             CLR   N98   CO$FLG    IFEQ ADJFLG
             CLR                   CALL '
        CLKADJ'
             CLR                   ENDIF 

        PHP Code:
             H********************************************************************
             
        FCKEMPLMSIP  E           K        DISK
             FCKCOMPANIF  E           K        DISK
             FCKSECRTYIF  E           K        DISK
             FCKSECRT2IF  E           K        DISK
             FCKTIMLIMIF  E           K        DISK
             FCKCLASSFIF  E           K        DISK
             FCKCLASSAIF  E           K        DISK
             FCKTIMHIMIF  E           K        DISK
             FCKWORKCDIF  E           K        DISK
             FCKMASSUPUF  E           K        DISK
        ACCRUFCKACRHISUF  E           K        DISK                      A
        ACCRUFCKACRAMTIF  E           K        DISK
             FCKAUDITFO   E           K        DISK                      A
             FCKTIMEFLUF  E           K        DISK                      A
             FCKCOMENTUF  E           K        DISK                      A
             FCKPRORATIF  E           K        DISK
             FCKEVENTSIF  E           K        DISK                      A
             FQSYSPRT O   F     132     OF     PRINTER
             E                    LINE    1   1 64               DASHES
             E                    HRA        15  5 2             HOURS
             E                    PCA        15  5 2             PERCENT
             E                    GCA        15  2               GROUP    CODES
        F0120E                    DOWS        7  1 0             NO AUTO LCH D
        .O.W.
             
        E                    CLK        10 10
             IEMPLMSFM    01
             I            DS
             I                                        1 100 CLK
             I                                        1  10 EECK01                INDV
        .
             
        I                                       11  20 EECK02
             I                                       21  30 EECK03
             I                                       31  40 EECK04
             I                                       41  50 EECK05
             I                                       51  60 EECK06
             I                                       61  70 EECK07
             I                                       71  80 EECK08
             I                                       81  90 EECK09
             I                                       91 100 EECK10
        F0120I            DS
          Ý  I                                        1   70DOWS
        J1007I                                        1   10CA1DY1
        J1007I                                        2   20CA1DY2
        J1007I                                        3   30CA1DY3
        J1007I                                        4   40CA1DY4
        J1007I                                        5   50CA1DY5
        J1007I                                        6   60CA1DY6
        J1007I                                        7   70CA1DY7
             I            DS
             I                                        1  30 GCA
             I                                        1   2 RPGC01
             I                                        3   4 RPGC02
             I                                        5   6 RPGC03
             I                                        7   8 RPGC04
             I                                        9  10 RPGC05
             I                                       11  12 RPGC06
             I                                       13  14 RPGC07
             I                                       15  16 RPGC08
             I                                       17  18 RPGC09
             I                                       19  20 RPGC10
             I                                       21  22 RPGC11
             I                                       23  24 RPGC12
             I                                       25  26 RPGC13
             I                                       27  28 RPGC14
             I                                       29  30 RPGC15
             I
        *-------------------------------------------------------------------
             
        I*  DATA STRUCTURE PRORATE GROUP CODE  ARRAY
             
        I*-------------------------------------------------------------------
             
        I            DS
             I                                        1  75 HRA
             I                                        1   52RPHR01
             I                                        6  102RPHR02
             I                                       11  152RPHR03
             I                                       16  202RPHR04
             I                                       21  252RPHR05
             I                                       26  302RPHR06
             I                                       31  352RPHR07
             I                                       36  402RPHR08
             I                                       41  452RPHR09
             I                                       46  502RPHR10
             I                                       51  552RPHR11
             I                                       56  602RPHR12
             I                                       61  652RPHR13
             I                                       66  702RPHR14
             I                                       71  752RPHR15
             I
        *-------------------------------------------------------------------
             
        I*  DATA STRUCTURE PRORATE HOURS       ARRAY
             
        I*-------------------------------------------------------------------
             
        I            DS
             I                                        1  75 PCA
             I                                        1   52RPPC01
             I                                        6  102RPPC02
             I                                       11  152RPPC03
             I                                       16  202RPPC04
             I                                       21  252RPPC05
             I                                       26  302RPPC06
             I                                       31  352RPPC07
             I                                       36  402RPPC08
             I                                       41  452RPPC09
             I                                       46  502RPPC10
             I                                       51  552RPPC11
             I                                       56  602RPPC12
             I                                       61  652RPPC13
             I                                       66  702RPPC14
             I                                       71  752RPPC15
             I
        *-------------------------------------------------------------------
             
        I*  DATA STRUCTURE PRORATE PERCENT     ARRAY
             
        I*-------------------------------------------------------------------
             
        I/COPY KTXXCOPY,DATFMTDS
             ISPARMS     UDS
             I                                        1   20EMPNO
             I                                        3  12 USERID
             I                                       13  14 PGM
             I                                       15  54 DISP
             I                                       55  84 FLD1
             I                                       85  94 PGMNAM
             I                                       95  95 LOPTN
             I                                       96  96 PORS
             I                                       97  97 SUBM
             I                                      153 153 LLD2
             I                                      501 560 FLEVLS
             I                                      501 530 FLEVL1
             I                                      531 545 FLEVL2
             I                                      546 560 FLEVL3
             I
        /COPY KTXXCOPY,$SELECTDS
             I
        DEFINED CONSTANTS
             I              
        'CLKSCHEDUL'          C         SCHEDL
             C
        *                                                                ***
             
        C           *IN01     IFEQ '1'
             
        C                     MOVE *OFF      CNTCK   1
             C                     MOVE 
        'Y'       ACROK   1        ACRUAL HRS
             C
        *                                                     ENOUGH     ---
             
        C*   CHECK SECURITY88=PASS                                      ---
             
        C*
             
        C                     EXSR SECURE
             C  N88                
        GOTO END
             C
        *
             
        C*   CHECK SELECTIONIPASS=IF PASS                             ---
             
        C*
             
        C/COPY KTXXCOPY,$EMFILT
             C           IPASS     CABNE
        'Y'       END
             C
        *
             
        C                     SELEC
             C           CODFRP    WHEQ 
        'U1'
             
        C                     MOVELEEUSR1    DFTFLD  10
             C           CODFRP    WHEQ 
        'U2'
             
        C                     MOVELEEUSR2    DFTFLD
             C           CODFRP    WHEQ 
        'U3'
             
        C                     MOVELEEUSR3    DFTFLD
             C           CODFRP    WHEQ 
        'U4'
             
        C                     MOVELEEUSR4    DFTFLD
             C           CODFRP    WHEQ 
        'S1'
             
        C                     MOVELEESEC1    DFTFLD
             C           CODFRP    WHEQ 
        'S2'
             
        C                     MOVELEESEC2    DFTFLD
             C           CODFRP    WHEQ 
        'S3'
             
        C                     MOVELEESEC3    DFTFLD
             C                     OTHER
             C                     MOVELEEUSR1    DFTFLD
             C                     ENDSL
             C
        *
             
        C           EETCOD    CHAINCKCLASSF             36    36=NO HIT
             C                     Z
        -ADDEEEMPN    EMPN    90
             C
        *
             
        C                     MOVE *OFF      RUNLAB  1
             C
        *----------------------------------------------------------------
             
        C*  MASS ENTRY OF TIME CREATION OF TIME RECORD IN AND OUT
             C
        *----------------------------------------------------------------
             
        C           MAZCOD    IFEQ 1
             C
        *
             
        C           MABSDY    IFNE *ZERO
             C           MAASDY    ORNE 
        *ZERO
             C                     CALL 
        'CLK305H'
             
        C                     PARM           EEEMPN
             C                     PARM           MADAYI
             C                     PARM           MATIMI
             C                     PARM           MABSDY
             C                     PARM           MAASDY
             C                     PARM           ZZPASS  1
             C                     FREE 
        'CLK305H'
             
        C           ZZPASS    CABNE'Y'       END01
             C                     
        ELSE
             
        C*
             
        C           MABHOL    IFEQ 'Y'
             
        C                     Z-ADDEMPNO     TCONO   20
             C                     Z
        -ADDEEEMPN    TEMPN   90
             C                     Z
        -ADD0         TTIME  140
             C                     Z
        -ADDMABFDY    ERVT1   80
             C                     Z
        -ADDMABTDY    ERVT2   80
             C                     MOVELMABFTM    ERVT1X  60
             C                     MOVELMABTTM    ERVT2X  60
             C                     MOVE ERVT1X    ERV1   140
             C                     MOVE ERVT2X    ERV2   140
             C                     MOVELERVT1     ERV1
             C                     MOVELERVT2     ERV2
             C
        *
             
        C           QKEY      SETLLCKTIMLIM
             C                     Z
        -ADD0         CNTQ    52
             C                     MOVE 
        *OFF      *IN89
             C
        *
             
        C           *IN89     DOWEQ*OFF
             C                     READ CKTIMLIM                 89
             C           
        *IN89     IFEQ *OFF
             C           EEEMPN    IFEQ TLEMPN
             C           TLRTIM    IFGE ERV1
             C           TLRTIM    ANDLEERV2
        G0926C           TLMIS1    IFNE 
        'Y'
          
        Ý  C                     ADD  TLRETM    CNTQ
          Ý  C                     
        ELSE
          
        Ý  C           TLPC01    CHAINWORKCDFM             90
          Ý  C           WCAPAB    IFEQ 
        'N'
          
        Ý  C                     ADD  TLRETM    CNTQ
          Ý  C                     
        ENDIF
        G0926C                     END
             C                     END
             C                     
        ELSE
             
        C                     MOVE *ON       *IN89
             C                     
        ENDIF
             
        C                     ENDIF
             
        C                     ENDDO
             C
        *
             
        C           CNTQ      IFLT MAMNHR
             C
        *
             
        C                     Z-ADD0         TTIME  140
             C           QKEY      SETLLCKTIMHIM
             C                     Z
        -ADD0         CNTY    52
             C                     MOVE 
        *OFF      *IN89
             C
        *
             
        C           *IN89     DOWEQ*OFF
             C                     READ CKTIMHIM                 89
             C           
        *IN89     IFEQ *OFF
             C           EEEMPN    IFEQ TLEMPN
             C           TLRTIM    IFGE ERV1
             C           TLRTIM    ANDLEERV2
             C           TLPHST    ANDEQ
        'P'
        G0926C           TLMIS1    IFNE 'Y'
          
        Ý  C                     ADD  TLRETM    CNTY
          Ý  C                     
        ELSE
          
        Ý  C           TLPC01    CHAINWORKCDFM             90
          Ý  C           WCAPAB    IFEQ 
        'N'
          
        Ý  C                     ADD  TLRETM    CNTY
          Ý  C                     
        ENDIF
        G0926C                     END
             C                     END
             C                     
        ELSE
             
        C                     MOVE *ON       *IN89
             C                     
        ENDIF
             
        C                     ENDIF
             
        C                     ENDDO
             C           CNTY      CABLTMAMNHR    END01
             C                     END
             C                     END
             C
        *
             
        C           MAAHOL    IFEQ 'Y'
             
        C                     Z-ADDMAAFDY    ERVT1
             C                     Z
        -ADDMAATDY    ERVT2
             C                     MOVELMAAFTM    ERVT1X
             C                     MOVELMAATTM    ERVT2X
             C                     MOVE ERVT1X    ERV1
             C                     MOVE ERVT2X    ERV2
             C                     MOVELERVT1     ERV1
             C                     MOVELERVT2     ERV2
             C                     Z
        -ADDEMPNO     TCONO   20
             C                     Z
        -ADDEEEMPN    TEMPN   90
             C                     Z
        -ADD0         TTIME
             C
        *
             
        C           QKEY      SETLLCKTIMLIM
             C                     Z
        -ADD0         CNTQ    52
             C                     MOVE 
        *OFF      *IN89
             C
        *
             
        C           *IN89     DOWEQ*OFF
             C                     READ CKTIMLIM                 89
             C           
        *IN89     IFEQ *OFF
             C           EEEMPN    IFEQ TLEMPN
             C           TLRTIM    IFGE ERV1
             C           TLRTIM    ANDLEERV2
        G0926C           TLMIS1    IFNE 
        'Y'
          
        Ý  C                     ADD  TLRETM    CNTQ
          Ý  C                     
        ELSE
          
        Ý  C           TLPC01    CHAINWORKCDFM             90
          Ý  C           WCAPAB    IFEQ 
        'N'
          
        Ý  C                     ADD  TLRETM    CNTQ
          Ý  C                     
        ENDIF
        G0926C                     ENDIF
             
        C                     END
             C                     
        ELSE
             
        C                     MOVE *ON       *IN89
             C                     
        ENDIF
             
        C                     ENDIF
             
        C                     ENDDO
             C
        *
             
        C           CNTQ      IFLT MAMNHR
             C
        *
             
        C                     Z-ADD0         TTIME
             C           QKEY      SETLLCKTIMHIM
             C                     Z
        -ADD0         CNTY
             C                     MOVE 
        *OFF      *IN89
             C
        *
             
        C           *IN89     DOWEQ*OFF
             C                     READ CKTIMHIM                 89
             C           
        *IN89     IFEQ *OFF
             C           EEEMPN    IFEQ TLEMPN
             C           TLRTIM    IFGE ERV1
             C           TLRTIM    ANDLEERV2
             C           TLPHST    ANDEQ
        'P'
        G0926C           TLMIS1    IFNE 'Y'
          
        Ý  C                     ADD  TLRETM    CNTY
          Ý  C                     
        ELSE
          
        Ý  C           TLPC01    CHAINWORKCDFM             90
          Ý  C           WCAPAB    IFEQ 
        'N'
          
        Ý  C                     ADD  TLRETM    CNTY
          Ý  C                     
        ENDIF
        G0926C                     ENDIF
             
        C                     END
             C                     
        ELSE
             
        C                     MOVE *ON       *IN89
             C                     
        ENDIF
             
        C                     ENDIF
             
        C                     ENDDO
             C           CNTY      CABLTMAMNHR    END01
             C                     END
             C                     END
             C
        *                                                                ---
             
        C                     ENDIF
             
        C*
             
        C                     MOVELMADAYI    RTIM   140
             C                     MOVE MATIMI    RTIM
             C                     MOVELMADAYO    RTOM   140
             C                     MOVE MATIMO    RTOM
             C                     Z
        -ADDMARETM    RETM    52
             C                     Z
        -ADD1         U       40       INIT U
             C                     MOVE 
        *OFF      *IN40
             C                     MOVE 
        *OFF      *IN41
             C
        *
             
        C           MAPCDE    IFNE *BLANKS
             C
        *
             
        C           MAPCDE    CHAINCKPRORAT             40    40=NO HIT
             C           
        *IN40     IFEQ '0'
             
        C           EEGRUP    ANDNE*BLANKS
             C           EEGRUP    LOKUPGCA
        ,U                    41 41=FOUND IT
             C           
        *IN41     IFEQ '1'
             
        C*
             
        C*  IF FOUND AND HOURS PERCENT ARE BOTH ZERO, RETURN 0 TIME AMOUNT
             C
        *
             
        C           HRA,U     IFEQ *ZEROS
             C           PCA
        ,U     ANDEQ*ZEROS
             C                     Z
        -ADD*ZEROS    RETM             TIME AMOUNT
             C                     END
             C
        *
             
        C           HRA,U     IFNE *ZEROS
             C                     Z
        -ADDHRA,U     RETM             TIME  AMOUNT
             C                     
        ELSE
             
        C           PCA,U     IFNE *ZEROS
             C           MARETM    MULT PCA
        ,U     RETMX  155       TIME  AMOUNT
             C           RETMX     DIV  100       RETM      H      TIME  AMOUNT
             C                     END
             C                     END
             C                     END
             C                     END
             C
        CHECK ACCRUAL AVAILABILITY
             C           MAPCDE    CHAINCKWORKCD             90    40
        =NO HIT
             C                     MOVE WCAMTH    
        @TMP1A
             C           WCACCR    IFEQ 
        'Y'                        NON-WORK?
             
        C           @TMP1A    ANDEQ'-'
             
        C           MADAYO    IFEQ *ZERO
             C                     MOVELMADAYI    
        @TMP80
             C                     
        ELSE
             
        C                     MOVELMADAYO    @TMP80
             C                     
        ENDIF
             
        C                     EXSR CHKACR
             C           ACROK     IFEQ 
        'N'
        LB511C                     GOTO ENDNXT
             C                     
        ENDIF
             
        C                     ENDIF
             
        C*
             
        C                     END
             C
        *                                                                ---
             
        C                     Z-ADDEMPNO     TCONO
             C                     Z
        -ADDEEEMPN    TEMPN
             C                     Z
        -ADDRTIM      TTIME
             C                     SETOF                     90
             C           
        *IN90     DOWEQ*OFF
             C           QKEY      CHAINCKTIMEFL             90
             C  N90                ADD  1         TTIME
             C                     ENDDO
             C
        *
             
        C           *IN90     IFEQ '1'
             
        C*
             
        C                     MOVE MAPCDE    XTPCDE
             C
        *
             
        C                     Z-ADDRETM      POHOUR
             C                     Z
        -ADDMADAYI    PODAT8
             C                     MOVELMATIMI    POTIM6
             C                     MOVE 
        'O'       PMODE
             C                     MOVE 
        *ZEROS    PIDAT6
             C                     MOVE 
        *ZEROS    PITIM5
             C                     MOVE 
        *ZEROS    PIHOUR
             C                     CALL DATFMT    PDTFMT
             C                     Z
        -ADDPIHOUR    XTRETM  52
             C                     Z
        -ADDPIDAT6    XTIDAY  60
             C                     MOVELPITIM5    VTITIM  5
             C
        *
             
        C                     Z-ADDMADAYO    PODAT8
             C                     MOVELMATIMO    POTIM6
             C                     MOVE 
        'O'       PMODE
             C                     MOVE 
        *ZEROS    PIDAT6
             C                     MOVE 
        *ZEROS    PITIM5
             C                     MOVE 
        *ZEROS    PIHOUR
             C                     CALL DATFMT    PDTFMT
             C                     Z
        -ADDPIDAT6    XTODAY  60
             C                     MOVELPITIM5    VTOTIM  5
             C
        *
             
        C           CNTCK     IFEQ *OFF
             C                     ADD  1         CNTRX   50
             C                     MOVE 
        *ON       CNTCK
             C                     
        ENDIF
             
        C                     ADD  RETM      HRTOTS  92
             C
        *
             
        C                     MOVELMADAYI    PUNCHI
             C                     MOVE MATIMI    PUNCHI
             C                     MOVELMADAYO    PUNCHO
             C                     MOVE MATIMO    PUNCHO
             C                     CALL SCHEDL    SPARM
             C
        *
             
        C           SCHED     IFNE *BLANKS
             C                     Z
        -ADDBS        STIM   140
             C           SCHED     IFNE 
        'G'
             
        C                     Z-ADDES        STOM   140
             C                     END
             C                     Z
        -ADDTOTSH     SETM    52
             C                     
        ELSE
             
        C                     Z-ADD0         STIM
             C                     Z
        -ADD0         STOM
             C                     Z
        -ADD0         SETM
             C                     END
             C
        *
             
        C   U1                EXSR ALOAD
             C   U1                WRITETIMEFLFM                   WRITE CKTIME
             C   U1                EXSR PAYHIS
             C   U1                EXSR COMENT
             C   U1                MOVEL
        *BLANKS   AUCODE
             C   U1                MOVEL
        'ADD'     AUCODE
             C   U1                EXSR AUDIT
             C
        *
             
        C           *INOF     IFEQ '1'
             
        C                     EXCPTHEAD                       PRINT HEAD
             C                     SETOF                     OF    OF
        =OVRFLO
             C                     END
             C
        *
             
        C                     EXCPTDETLIN                     PRINT DETLIN
             C
        *
             
        C   U1                CALL 'TOTALZER'PL314            CALL TOTALIZER
             C   U1      RUNLAB    IFEQ 
        *ON
             C           FLEVLS    IFGT 
        *BLANKS
             C                     EXSR ADDEVT
             C                     
        ENDIF
             
        C                     CALL 'LABORZER'
             
        C                     PARM           EEEMPN
             C                     PARM           TISEQN
             C                     
        ENDIF
             
        C                     END
             C                     END
             C           END01     TAG                             E N D 0 1 
        All my answers were extracted from the "Big Dummy's Guide to the As400"
        and I take no responsibility for any of them.

        www.code400.com

        Comment


        • #5
          Re: Reg I-Spec in RPG

          Originally posted by susan View Post
          Hi All,

          Im in very urgent need of usage of I-spec with primary file along with control level indicators.

          Control level indicators follow the RPG cycle. You will not be able to simply look at a program and understand the full concept of control level indicators, you have to know the RPG cycle. There are detail and total time control indicator processing, and the details of how these work are tucked away in the RPG cycle. They are not controlled by the program logic, so you wouldn't be able to quickly scan program source and fully understand control level indicators. In fact, if you did quickly scan a program that used control level indicators, you could give yourself the false impression that you understand them when you actually don't. Most of the behavior is controlled "under the covers" of the RPG cycle.
          Michael Catalani
          IS Director, eCommerce & Web Development
          Acceptance Insurance Corporation
          www.AcceptanceInsurance.com
          www.ProvatoSys.com

          Comment


          • #6
            Re: Reg I-Spec in RPG

            Originally posted by jamief View Post
            I think tom has always been a bit grumpy...

            I found some very old "stuff" I also think Tom worked for this
            company at one time....
            PHP Code:
                 H********************************************************************
                 
            H*** PROGRAM:      CLKITPS
                 H
            ***
                 
            H*** DESCRIPTION:  PROGRAM CREATES CKTIPOST FILE FROM CKTIMEPS TO
                 H
            ***               INTERFACE INTO SOFTWARE PAYROLL SYSTEMS
                 H
            ***
                 
            H*** DATE WRITTEN10/21/94     TK/AS VERSION 7
                 H
            ***     DATE MOD01/16/98 JMB ZERO OUT TPPRAT FIELD AND CHECK
                 H
            ***                            COEX43 FIELD OF CKCOMPAN FOR A
                 H
            ***                            $ ADJ FLAG COPY ADJ RECS
                 H
            ***                            IN CKADJPOS TO CKTIPOST IF FLAG
                 H
            ***
                 
            H***               06/22/98 HWW GET PAYROLL COMPANY FROM EMPLOYEE MASTER
                 H
            ***               06/30/00 JWB DON'T ZERO OUT TPPRAT FIELD.
                 H********************************************************************
                 H        1
                 FCKTIMEPSIP  E           K        DISK
                 FCKWORKCDIF  E           K        DISK
                 FCKCOMPANIF  E           K        DISK
            HWW01FCKEMPLMSIF  E           K        DISK
                 FCKTIPOSTO   E                    DISK
                 E                    TC         10  5               TPPC01-10
                 E                    TH         10  5 2             TPHR01-10
                 ITIMEPSFM    01
                 I********************************************************************
                 I*  DATA STRUCTURE - PAY CODES   (TPPC01 - 10)
                 I********************************************************************
                 I            DS
                 I                                        1  50 TC
                 I                                        1   5 TPPC01
                 I                                        6  10 TPPC02
                 I                                       11  15 TPPC03
                 I                                       16  20 TPPC04
                 I                                       21  25 TPPC05
                 I                                       26  30 TPPC06
                 I                                       31  35 TPPC07
                 I                                       36  40 TPPC08
                 I                                       41  45 TPPC09
                 I                                       46  50 TPPC10
                 I**
                 I********************************************************************
                 I*  DATA STRUCTURE - HOURS (TPHR01-10) FOR PAYCODES(TPPC01 - 10)
                 I********************************************************************
                 I            DS
                 I                                        1  50 TH
                 I                                        1   52TPHR01
                 I                                        6  102TPHR02
                 I                                       11  152TPHR03
                 I                                       16  202TPHR04
                 I                                       21  252TPHR05
                 I                                       26  302TPHR06
                 I                                       31  352TPHR07
                 I                                       36  402TPHR08
                 I                                       41  452TPHR09
                 I                                       46  502TPHR10
                 I********************************************************************
                 I              01                    C         DFTCOM
                 I              '
            $'                   C         ADJFLG
                 I********************************************************************
            HWW01C           KY1       KLIST
              Ý  C                     KFLD           TPCONO
              Ý  C                     KFLD           TPEMPN
              Ý  C*
              Ý  C           KY1       CHAINCKEMPLMS             60
              Ý  C           *IN60     IFEQ *OFF
              Ý  C                     MOVELEEPRCO    TPPRCO
            HWW01C                     ENDIF
                 C*
            J0630C*****                MOVE *ZEROS    TPPRAT
                 C*
                 C                     Z-ADD1         Z       20
                 C                     DO   10
                 C           TC,Z      IFNE *BLANKS
            T0125C           TH,Z      ANDNE*ZEROS
                 C           TC,Z      CHAINCKWORKCD             98
                 C                     Z-ADD*ZEROS    TPRETM
                 C                     Z-ADD*ZEROS    TPREGH
                 C                     Z-ADD*ZEROS    TPOTT1
                 C                     Z-ADD*ZEROS    TPOTT2
                 C                     Z-ADD*ZEROS    TPOTT3
                 C                     Z-ADD*ZEROS    TPOTT4
                 C                     MOVE TC,Z      TPCODE
                 C           WCNONP    IFEQ '
            Y'
                 C           WCNONW    ANDEQ'
            Y'
                 C                     Z-ADDTH,Z      TPSETM
                 C                     ELSE
                 C                     Z-ADDTH,Z      TPRETM
                 C                     END
                 C                     Z-ADDWCMULT    OVRATE  52
                 C           OVRATE    IFLE 1.00
                 C                     Z-ADDTH,Z      TPREGH
                 C                     ELSE
                 C           OVRATE    IFEQ 1.50
                 C                     Z-ADDTH,Z      TPOTT1
                 C                     ELSE
                 C           OVRATE    IFEQ 2.00
                 C                     Z-ADDTH,Z      TPOTT2
                 C                     ELSE
                 C           OVRATE    IFEQ 2.50
                 C                     Z-ADDTH,Z      TPOTT3
                 C                     ELSE
                 C           OVRATE    IFEQ 3.00
                 C                     Z-ADDTH,Z      TPOTT4
                 C                     ELSE
                 C                     Z-ADDTH,Z      TPOTT1
                 C                     END
                 C                     END
                 C                     END
                 C                     END
                 C*
                 C                     END
            J0830C*
            |    C                     MOVELTPBSFT    TPRDTI
            |    C           TPRDTI    IFEQ *ZEROS
            |    C                     MOVELTPRTIM    TPRDTI
            |    C                     ENDIF
            J0830C*
                 C                     WRITETIPOSTFM
                 C                     END
                 C                     ADD  1         Z
                 C                     END
                 C*
                 CLR         DFTCOM    CHAINCKCOMPAN             98
                 CLR   N98   CO$FLG    IFEQ ADJFLG
                 CLR                   CALL '
            CLKADJ'
                 CLR                   ENDIF 

            PHP Code:
                 H********************************************************************
                 
            FCKEMPLMSIP  E           K        DISK
                 FCKCOMPANIF  E           K        DISK
                 FCKSECRTYIF  E           K        DISK
                 FCKSECRT2IF  E           K        DISK
                 FCKTIMLIMIF  E           K        DISK
                 FCKCLASSFIF  E           K        DISK
                 FCKCLASSAIF  E           K        DISK
                 FCKTIMHIMIF  E           K        DISK
                 FCKWORKCDIF  E           K        DISK
                 FCKMASSUPUF  E           K        DISK
            ACCRUFCKACRHISUF  E           K        DISK                      A
            ACCRUFCKACRAMTIF  E           K        DISK
                 FCKAUDITFO   E           K        DISK                      A
                 FCKTIMEFLUF  E           K        DISK                      A
                 FCKCOMENTUF  E           K        DISK                      A
                 FCKPRORATIF  E           K        DISK
                 FCKEVENTSIF  E           K        DISK                      A
                 FQSYSPRT O   F     132     OF     PRINTER
                 E                    LINE    1   1 64               DASHES
                 E                    HRA        15  5 2             HOURS
                 E                    PCA        15  5 2             PERCENT
                 E                    GCA        15  2               GROUP    CODES
            F0120E                    DOWS        7  1 0             NO AUTO LCH D
            .O.W.
                 
            E                    CLK        10 10
                 IEMPLMSFM    01
                 I            DS
                 I                                        1 100 CLK
                 I                                        1  10 EECK01                INDV
            .
                 
            I                                       11  20 EECK02
                 I                                       21  30 EECK03
                 I                                       31  40 EECK04
                 I                                       41  50 EECK05
                 I                                       51  60 EECK06
                 I                                       61  70 EECK07
                 I                                       71  80 EECK08
                 I                                       81  90 EECK09
                 I                                       91 100 EECK10
            F0120I            DS
              Ý  I                                        1   70DOWS
            J1007I                                        1   10CA1DY1
            J1007I                                        2   20CA1DY2
            J1007I                                        3   30CA1DY3
            J1007I                                        4   40CA1DY4
            J1007I                                        5   50CA1DY5
            J1007I                                        6   60CA1DY6
            J1007I                                        7   70CA1DY7
                 I            DS
                 I                                        1  30 GCA
                 I                                        1   2 RPGC01
                 I                                        3   4 RPGC02
                 I                                        5   6 RPGC03
                 I                                        7   8 RPGC04
                 I                                        9  10 RPGC05
                 I                                       11  12 RPGC06
                 I                                       13  14 RPGC07
                 I                                       15  16 RPGC08
                 I                                       17  18 RPGC09
                 I                                       19  20 RPGC10
                 I                                       21  22 RPGC11
                 I                                       23  24 RPGC12
                 I                                       25  26 RPGC13
                 I                                       27  28 RPGC14
                 I                                       29  30 RPGC15
                 I
            *-------------------------------------------------------------------
                 
            I*  DATA STRUCTURE PRORATE GROUP CODE  ARRAY
                 
            I*-------------------------------------------------------------------
                 
            I            DS
                 I                                        1  75 HRA
                 I                                        1   52RPHR01
                 I                                        6  102RPHR02
                 I                                       11  152RPHR03
                 I                                       16  202RPHR04
                 I                                       21  252RPHR05
                 I                                       26  302RPHR06
                 I                                       31  352RPHR07
                 I                                       36  402RPHR08
                 I                                       41  452RPHR09
                 I                                       46  502RPHR10
                 I                                       51  552RPHR11
                 I                                       56  602RPHR12
                 I                                       61  652RPHR13
                 I                                       66  702RPHR14
                 I                                       71  752RPHR15
                 I
            *-------------------------------------------------------------------
                 
            I*  DATA STRUCTURE PRORATE HOURS       ARRAY
                 
            I*-------------------------------------------------------------------
                 
            I            DS
                 I                                        1  75 PCA
                 I                                        1   52RPPC01
                 I                                        6  102RPPC02
                 I                                       11  152RPPC03
                 I                                       16  202RPPC04
                 I                                       21  252RPPC05
                 I                                       26  302RPPC06
                 I                                       31  352RPPC07
                 I                                       36  402RPPC08
                 I                                       41  452RPPC09
                 I                                       46  502RPPC10
                 I                                       51  552RPPC11
                 I                                       56  602RPPC12
                 I                                       61  652RPPC13
                 I                                       66  702RPPC14
                 I                                       71  752RPPC15
                 I
            *-------------------------------------------------------------------
                 
            I*  DATA STRUCTURE PRORATE PERCENT     ARRAY
                 
            I*-------------------------------------------------------------------
                 
            I/COPY KTXXCOPY,DATFMTDS
                 ISPARMS     UDS
                 I                                        1   20EMPNO
                 I                                        3  12 USERID
                 I                                       13  14 PGM
                 I                                       15  54 DISP
                 I                                       55  84 FLD1
                 I                                       85  94 PGMNAM
                 I                                       95  95 LOPTN
                 I                                       96  96 PORS
                 I                                       97  97 SUBM
                 I                                      153 153 LLD2
                 I                                      501 560 FLEVLS
                 I                                      501 530 FLEVL1
                 I                                      531 545 FLEVL2
                 I                                      546 560 FLEVL3
                 I
            /COPY KTXXCOPY,$SELECTDS
                 I
            DEFINED CONSTANTS
                 I              
            'CLKSCHEDUL'          C         SCHEDL
                 C
            *                                                                ***
                 
            C           *IN01     IFEQ '1'
                 
            C                     MOVE *OFF      CNTCK   1
                 C                     MOVE 
            'Y'       ACROK   1        ACRUAL HRS
                 C
            *                                                     ENOUGH     ---
                 
            C*   CHECK SECURITY88=PASS                                      ---
                 
            C*
                 
            C                     EXSR SECURE
                 C  N88                
            GOTO END
                 C
            *
                 
            C*   CHECK SELECTIONIPASS=IF PASS                             ---
                 
            C*
                 
            C/COPY KTXXCOPY,$EMFILT
                 C           IPASS     CABNE
            'Y'       END
                 C
            *
                 
            C                     SELEC
                 C           CODFRP    WHEQ 
            'U1'
                 
            C                     MOVELEEUSR1    DFTFLD  10
                 C           CODFRP    WHEQ 
            'U2'
                 
            C                     MOVELEEUSR2    DFTFLD
                 C           CODFRP    WHEQ 
            'U3'
                 
            C                     MOVELEEUSR3    DFTFLD
                 C           CODFRP    WHEQ 
            'U4'
                 
            C                     MOVELEEUSR4    DFTFLD
                 C           CODFRP    WHEQ 
            'S1'
                 
            C                     MOVELEESEC1    DFTFLD
                 C           CODFRP    WHEQ 
            'S2'
                 
            C                     MOVELEESEC2    DFTFLD
                 C           CODFRP    WHEQ 
            'S3'
                 
            C                     MOVELEESEC3    DFTFLD
                 C                     OTHER
                 C                     MOVELEEUSR1    DFTFLD
                 C                     ENDSL
                 C
            *
                 
            C           EETCOD    CHAINCKCLASSF             36    36=NO HIT
                 C                     Z
            -ADDEEEMPN    EMPN    90
                 C
            *
                 
            C                     MOVE *OFF      RUNLAB  1
                 C
            *----------------------------------------------------------------
                 
            C*  MASS ENTRY OF TIME CREATION OF TIME RECORD IN AND OUT
                 C
            *----------------------------------------------------------------
                 
            C           MAZCOD    IFEQ 1
                 C
            *
                 
            C           MABSDY    IFNE *ZERO
                 C           MAASDY    ORNE 
            *ZERO
                 C                     CALL 
            'CLK305H'
                 
            C                     PARM           EEEMPN
                 C                     PARM           MADAYI
                 C                     PARM           MATIMI
                 C                     PARM           MABSDY
                 C                     PARM           MAASDY
                 C                     PARM           ZZPASS  1
                 C                     FREE 
            'CLK305H'
                 
            C           ZZPASS    CABNE'Y'       END01
                 C                     
            ELSE
                 
            C*
                 
            C           MABHOL    IFEQ 'Y'
                 
            C                     Z-ADDEMPNO     TCONO   20
                 C                     Z
            -ADDEEEMPN    TEMPN   90
                 C                     Z
            -ADD0         TTIME  140
                 C                     Z
            -ADDMABFDY    ERVT1   80
                 C                     Z
            -ADDMABTDY    ERVT2   80
                 C                     MOVELMABFTM    ERVT1X  60
                 C                     MOVELMABTTM    ERVT2X  60
                 C                     MOVE ERVT1X    ERV1   140
                 C                     MOVE ERVT2X    ERV2   140
                 C                     MOVELERVT1     ERV1
                 C                     MOVELERVT2     ERV2
                 C
            *
                 
            C           QKEY      SETLLCKTIMLIM
                 C                     Z
            -ADD0         CNTQ    52
                 C                     MOVE 
            *OFF      *IN89
                 C
            *
                 
            C           *IN89     DOWEQ*OFF
                 C                     READ CKTIMLIM                 89
                 C           
            *IN89     IFEQ *OFF
                 C           EEEMPN    IFEQ TLEMPN
                 C           TLRTIM    IFGE ERV1
                 C           TLRTIM    ANDLEERV2
            G0926C           TLMIS1    IFNE 
            'Y'
              
            Ý  C                     ADD  TLRETM    CNTQ
              Ý  C                     
            ELSE
              
            Ý  C           TLPC01    CHAINWORKCDFM             90
              Ý  C           WCAPAB    IFEQ 
            'N'
              
            Ý  C                     ADD  TLRETM    CNTQ
              Ý  C                     
            ENDIF
            G0926C                     END
                 C                     END
                 C                     
            ELSE
                 
            C                     MOVE *ON       *IN89
                 C                     
            ENDIF
                 
            C                     ENDIF
                 
            C                     ENDDO
                 C
            *
                 
            C           CNTQ      IFLT MAMNHR
                 C
            *
                 
            C                     Z-ADD0         TTIME  140
                 C           QKEY      SETLLCKTIMHIM
                 C                     Z
            -ADD0         CNTY    52
                 C                     MOVE 
            *OFF      *IN89
                 C
            *
                 
            C           *IN89     DOWEQ*OFF
                 C                     READ CKTIMHIM                 89
                 C           
            *IN89     IFEQ *OFF
                 C           EEEMPN    IFEQ TLEMPN
                 C           TLRTIM    IFGE ERV1
                 C           TLRTIM    ANDLEERV2
                 C           TLPHST    ANDEQ
            'P'
            G0926C           TLMIS1    IFNE 'Y'
              
            Ý  C                     ADD  TLRETM    CNTY
              Ý  C                     
            ELSE
              
            Ý  C           TLPC01    CHAINWORKCDFM             90
              Ý  C           WCAPAB    IFEQ 
            'N'
              
            Ý  C                     ADD  TLRETM    CNTY
              Ý  C                     
            ENDIF
            G0926C                     END
                 C                     END
                 C                     
            ELSE
                 
            C                     MOVE *ON       *IN89
                 C                     
            ENDIF
                 
            C                     ENDIF
                 
            C                     ENDDO
                 C           CNTY      CABLTMAMNHR    END01
                 C                     END
                 C                     END
                 C
            *
                 
            C           MAAHOL    IFEQ 'Y'
                 
            C                     Z-ADDMAAFDY    ERVT1
                 C                     Z
            -ADDMAATDY    ERVT2
                 C                     MOVELMAAFTM    ERVT1X
                 C                     MOVELMAATTM    ERVT2X
                 C                     MOVE ERVT1X    ERV1
                 C                     MOVE ERVT2X    ERV2
                 C                     MOVELERVT1     ERV1
                 C                     MOVELERVT2     ERV2
                 C                     Z
            -ADDEMPNO     TCONO   20
                 C                     Z
            -ADDEEEMPN    TEMPN   90
                 C                     Z
            -ADD0         TTIME
                 C
            *
                 
            C           QKEY      SETLLCKTIMLIM
                 C                     Z
            -ADD0         CNTQ    52
                 C                     MOVE 
            *OFF      *IN89
                 C
            *
                 
            C           *IN89     DOWEQ*OFF
                 C                     READ CKTIMLIM                 89
                 C           
            *IN89     IFEQ *OFF
                 C           EEEMPN    IFEQ TLEMPN
                 C           TLRTIM    IFGE ERV1
                 C           TLRTIM    ANDLEERV2
            G0926C           TLMIS1    IFNE 
            'Y'
              
            Ý  C                     ADD  TLRETM    CNTQ
              Ý  C                     
            ELSE
              
            Ý  C           TLPC01    CHAINWORKCDFM             90
              Ý  C           WCAPAB    IFEQ 
            'N'
              
            Ý  C                     ADD  TLRETM    CNTQ
              Ý  C                     
            ENDIF
            G0926C                     ENDIF
                 
            C                     END
                 C                     
            ELSE
                 
            C                     MOVE *ON       *IN89
                 C                     
            ENDIF
                 
            C                     ENDIF
                 
            C                     ENDDO
                 C
            *
                 
            C           CNTQ      IFLT MAMNHR
                 C
            *
                 
            C                     Z-ADD0         TTIME
                 C           QKEY      SETLLCKTIMHIM
                 C                     Z
            -ADD0         CNTY
                 C                     MOVE 
            *OFF      *IN89
                 C
            *
                 
            C           *IN89     DOWEQ*OFF
                 C                     READ CKTIMHIM                 89
                 C           
            *IN89     IFEQ *OFF
                 C           EEEMPN    IFEQ TLEMPN
                 C           TLRTIM    IFGE ERV1
                 C           TLRTIM    ANDLEERV2
                 C           TLPHST    ANDEQ
            'P'
            G0926C           TLMIS1    IFNE 'Y'
              
            Ý  C                     ADD  TLRETM    CNTY
              Ý  C                     
            ELSE
              
            Ý  C           TLPC01    CHAINWORKCDFM             90
              Ý  C           WCAPAB    IFEQ 
            'N'
              
            Ý  C                     ADD  TLRETM    CNTY
              Ý  C                     
            ENDIF
            G0926C                     ENDIF
                 
            C                     END
                 C                     
            ELSE
                 
            C                     MOVE *ON       *IN89
                 C                     
            ENDIF
                 
            C                     ENDIF
                 
            C                     ENDDO
                 C           CNTY      CABLTMAMNHR    END01
                 C                     END
                 C                     END
                 C
            *                                                                ---
                 
            C                     ENDIF
                 
            C*
                 
            C                     MOVELMADAYI    RTIM   140
                 C                     MOVE MATIMI    RTIM
                 C                     MOVELMADAYO    RTOM   140
                 C                     MOVE MATIMO    RTOM
                 C                     Z
            -ADDMARETM    RETM    52
                 C                     Z
            -ADD1         U       40       INIT U
                 C                     MOVE 
            *OFF      *IN40
                 C                     MOVE 
            *OFF      *IN41
                 C
            *
                 
            C           MAPCDE    IFNE *BLANKS
                 C
            *
                 
            C           MAPCDE    CHAINCKPRORAT             40    40=NO HIT
                 C           
            *IN40     IFEQ '0'
                 
            C           EEGRUP    ANDNE*BLANKS
                 C           EEGRUP    LOKUPGCA
            ,U                    41 41=FOUND IT
                 C           
            *IN41     IFEQ '1'
                 
            C*
                 
            C*  IF FOUND AND HOURS PERCENT ARE BOTH ZERO, RETURN 0 TIME AMOUNT
                 C
            *
                 
            C           HRA,U     IFEQ *ZEROS
                 C           PCA
            ,U     ANDEQ*ZEROS
                 C                     Z
            -ADD*ZEROS    RETM             TIME AMOUNT
                 C                     END
                 C
            *
                 
            C           HRA,U     IFNE *ZEROS
                 C                     Z
            -ADDHRA,U     RETM             TIME  AMOUNT
                 C                     
            ELSE
                 
            C           PCA,U     IFNE *ZEROS
                 C           MARETM    MULT PCA
            ,U     RETMX  155       TIME  AMOUNT
                 C           RETMX     DIV  100       RETM      H      TIME  AMOUNT
                 C                     END
                 C                     END
                 C                     END
                 C                     END
                 C
            CHECK ACCRUAL AVAILABILITY
                 C           MAPCDE    CHAINCKWORKCD             90    40
            =NO HIT
                 C                     MOVE WCAMTH    
            @TMP1A
                 C           WCACCR    IFEQ 
            'Y'                        NON-WORK?
                 
            C           @TMP1A    ANDEQ'-'
                 
            C           MADAYO    IFEQ *ZERO
                 C                     MOVELMADAYI    
            @TMP80
                 C                     
            ELSE
                 
            C                     MOVELMADAYO    @TMP80
                 C                     
            ENDIF
                 
            C                     EXSR CHKACR
                 C           ACROK     IFEQ 
            'N'
            LB511C                     GOTO ENDNXT
                 C                     
            ENDIF
                 
            C                     ENDIF
                 
            C*
                 
            C                     END
                 C
            *                                                                ---
                 
            C                     Z-ADDEMPNO     TCONO
                 C                     Z
            -ADDEEEMPN    TEMPN
                 C                     Z
            -ADDRTIM      TTIME
                 C                     SETOF                     90
                 C           
            *IN90     DOWEQ*OFF
                 C           QKEY      CHAINCKTIMEFL             90
                 C  N90                ADD  1         TTIME
                 C                     ENDDO
                 C
            *
                 
            C           *IN90     IFEQ '1'
                 
            C*
                 
            C                     MOVE MAPCDE    XTPCDE
                 C
            *
                 
            C                     Z-ADDRETM      POHOUR
                 C                     Z
            -ADDMADAYI    PODAT8
                 C                     MOVELMATIMI    POTIM6
                 C                     MOVE 
            'O'       PMODE
                 C                     MOVE 
            *ZEROS    PIDAT6
                 C                     MOVE 
            *ZEROS    PITIM5
                 C                     MOVE 
            *ZEROS    PIHOUR
                 C                     CALL DATFMT    PDTFMT
                 C                     Z
            -ADDPIHOUR    XTRETM  52
                 C                     Z
            -ADDPIDAT6    XTIDAY  60
                 C                     MOVELPITIM5    VTITIM  5
                 C
            *
                 
            C                     Z-ADDMADAYO    PODAT8
                 C                     MOVELMATIMO    POTIM6
                 C                     MOVE 
            'O'       PMODE
                 C                     MOVE 
            *ZEROS    PIDAT6
                 C                     MOVE 
            *ZEROS    PITIM5
                 C                     MOVE 
            *ZEROS    PIHOUR
                 C                     CALL DATFMT    PDTFMT
                 C                     Z
            -ADDPIDAT6    XTODAY  60
                 C                     MOVELPITIM5    VTOTIM  5
                 C
            *
                 
            C           CNTCK     IFEQ *OFF
                 C                     ADD  1         CNTRX   50
                 C                     MOVE 
            *ON       CNTCK
                 C                     
            ENDIF
                 
            C                     ADD  RETM      HRTOTS  92
                 C
            *
                 
            C                     MOVELMADAYI    PUNCHI
                 C                     MOVE MATIMI    PUNCHI
                 C                     MOVELMADAYO    PUNCHO
                 C                     MOVE MATIMO    PUNCHO
                 C                     CALL SCHEDL    SPARM
                 C
            *
                 
            C           SCHED     IFNE *BLANKS
                 C                     Z
            -ADDBS        STIM   140
                 C           SCHED     IFNE 
            'G'
                 
            C                     Z-ADDES        STOM   140
                 C                     END
                 C                     Z
            -ADDTOTSH     SETM    52
                 C                     
            ELSE
                 
            C                     Z-ADD0         STIM
                 C                     Z
            -ADD0         STOM
                 C                     Z
            -ADD0         SETM
                 C                     END
                 C
            *
                 
            C   U1                EXSR ALOAD
                 C   U1                WRITETIMEFLFM                   WRITE CKTIME
                 C   U1                EXSR PAYHIS
                 C   U1                EXSR COMENT
                 C   U1                MOVEL
            *BLANKS   AUCODE
                 C   U1                MOVEL
            'ADD'     AUCODE
                 C   U1                EXSR AUDIT
                 C
            *
                 
            C           *INOF     IFEQ '1'
                 
            C                     EXCPTHEAD                       PRINT HEAD
                 C                     SETOF                     OF    OF
            =OVRFLO
                 C                     END
                 C
            *
                 
            C                     EXCPTDETLIN                     PRINT DETLIN
                 C
            *
                 
            C   U1                CALL 'TOTALZER'PL314            CALL TOTALIZER
                 C   U1      RUNLAB    IFEQ 
            *ON
                 C           FLEVLS    IFGT 
            *BLANKS
                 C                     EXSR ADDEVT
                 C                     
            ENDIF
                 
            C                     CALL 'LABORZER'
                 
            C                     PARM           EEEMPN
                 C                     PARM           TISEQN
                 C                     
            ENDIF
                 
            C                     END
                 C                     END
                 C           END01     TAG                             E N D 0 1 
            no i didn't work for that company but i'd recognize Kronos software anywhere ... ewww....

            P.S. working on this (and RPG/36) type of code is why i'm grumpy...
            I'm not anti-social, I just don't like people -Tommy Holden

            Comment


            • #7
              Re: Reg I-Spec in RPG

              Originally posted by tomholden View Post
              \
              P.S. working on this (and RPG/36) type of code is why i'm grumpy...

              so starting a new thread about matching records and using the look ahead buffer would not help?
              Michael Catalani
              IS Director, eCommerce & Web Development
              Acceptance Insurance Corporation
              www.AcceptanceInsurance.com
              www.ProvatoSys.com

              Comment


              • #8
                Re: Reg I-Spec in RPG

                Michael... You're bad! You're REALLY bad...

                But Funny as hell!!

                LMAO!!

                Comment


                • #9
                  Re: Reg I-Spec in RPG

                  Originally posted by MichaelCatalani View Post
                  so starting a new thread about matching records and using the look ahead buffer would not help?
                  Not to mention fetch overflow, halt indicators and record relation indicators.
                  http://www.linkedin.com/in/chippermiller

                  Comment


                  • #10
                    Re: Reg I-Spec in RPG

                    Everybody, please, please STOP! You are making me feel SO old...
                    "Tis better to be thought a fool then to open one's mouth and remove all doubt." - Benjamin Franklin

                    Comment


                    • #11
                      Re: Reg I-Spec in RPG

                      Alright, that's it. I'm going to find that pair of parachute pants and put them on before reading anything more in this thread.
                      Michael Catalani
                      IS Director, eCommerce & Web Development
                      Acceptance Insurance Corporation
                      www.AcceptanceInsurance.com
                      www.ProvatoSys.com

                      Comment


                      • #12
                        Re: Reg I-Spec in RPG

                        Originally posted by MichaelCatalani View Post
                        Alright, that's it. I'm going to find that pair of parachute pants and put them on before reading anything more in this thread.
                        Parachute pants? Hmm...

                        By the way, since we're in the 80s, Aug 10 is "National Duran Duran Appreciation Day"
                        August 2026 Monthly, Weekly and Daily Validated Holidays, Calendar, and Observances.

                        (scroll down to see Aug 10)
                        http://www.linkedin.com/in/chippermiller

                        Comment


                        • #13
                          Re: Reg I-Spec in RPG

                          Originally posted by Chipper View Post
                          Parachute pants? Hmm...

                          By the way, since we're in the 80s, Aug 10 is "National Duran Duran Appreciation Day"
                          August 2026 Monthly, Weekly and Daily Validated Holidays, Calendar, and Observances.

                          (scroll down to see Aug 10)
                          My wife will be thrilled!
                          Michael Catalani
                          IS Director, eCommerce & Web Development
                          Acceptance Insurance Corporation
                          www.AcceptanceInsurance.com
                          www.ProvatoSys.com

                          Comment

                          Working...
                          X