AGS call to HR13.1

 6 Replies
 1 Subscribed to this topic
 52 Subscribed to this forum
Sort:
Author
Messages
Lance Jurgensen
Advanced Member
Posts: 36
Advanced Member

    Hello,

    I have been looking and trying everything I have found but still can not get past the Ok to continue prompt. Is there documentation somewhere on these for each form?

    My AGS call to update the STUDENT flag to N

    _PDL=HRDEV&_TKN=HR13.1&_EVT=CHG&_RTN=DATA&_LFN=ALL&_TDS=IGNORE&FC=C&EMD-COMPANY=15&EMD-EMPLOYEE=123456&EMD-SEQ-NBR=2&EMD-STUDENT=N&VERIFY-DATE=&EFFECT-DATE=20181210&CREATE-TRANS=N&_DELIM=%09&_OUT=XML&_EOT=TRUE

    I'm sure I'm missing something on the _PDL... I have looked in the HR13PD and HR13WS but I'm not seeing anything that would help here. 

    -Message-
    Warning: Dep Ben will not be updated; Press OK to continue
    -/Message-
    -MsgNbr-163-/MsgNbr-

    David Williams
    Veteran Member
    Posts: 1127
    Veteran Member
      Look for the option to add something like &PT-XMIT=1 in your AGS call or possibly add &XMIT-HREMP-BLOCK=1000000000 to block those 'OK to continue' messages. I would perform an Inquire AGS on your form to see which type of message shows up in the results to determine which scripting to use.
      David Williams
      Lance Jurgensen
      Advanced Member
      Posts: 36
      Advanced Member

        Hi David,

        Using:

        _PDL=HRDEV&_TKN=HR13.1&_EVT=CHG&_RTN=DATA&_LFN=ALL&_TDS=IGNORE&FC=I&EMD-COMPANY=15&EMD-EMPLOYEE=123456&EMD-SEQ-NBR=2&_DELIM=%09&_OUT=XML&_EOT=TRUE

        These are the only XMIT lines I see:

        ^PT-XMIT-NBR1^0^/PT-XMIT-NBR1^

        ^PT-XMIT-NBR2^0^/PT-XMIT-NBR2^

        ^XMIT-D^0^/XMIT-D^

         

        David Williams
        Veteran Member
        Posts: 1127
        Veteran Member
          Try adding &PT-XMIT=1 and see what it does.
          David Williams
          Lance Jurgensen
          Advanced Member
          Posts: 36
          Advanced Member

            I've been trying so many combinations I've lost track!

            No go with:

            _PDL=HRDEV&_TKN=HR13.1&_EVT=CHG&_RTN=DATA&_LFN=ALL&_TDS=IGNORE&FC=C&EMD-COMPANY=15&EMD-EMPLOYEE=123456&EMD-SEQ-NBR=2&EMD-STUDENT=N&VERIFY-DATE=&EFFECT-DATE=20181210&CREATE-TRANS=N&PT-XMIT-NBR1=1&PT-XMIT-NBR2=1&XMIT-D=1&XMIT-HREMP-BLOCK=1000000000&PT-XMIT=1&_DELIM=%09&_OUT=XML&_EOT=TRUE

            OR: 

            _PDL=HRDEV&_TKN=HR13.1&_EVT=CHG&_RTN=DATA&_LFN=ALL&_TDS=IGNORE&FC=C&EMD-COMPANY=15&EMD-EMPLOYEE=123456&EMD-SEQ-NBR=2&EMD-STUDENT=N&VERIFY-DATE=&EFFECT-DATE=20181210&CREATE-TRANS=N&PT-XMIT=1&_DELIM=%09&_OUT=XML&_EOT=TRUE

            Ragu Raghavan
            Veteran Member
            Posts: 476
            Veteran Member

              This is a code snippet from the lib HRDEPPD. You may need to set EFF-DT-XMIT to 1


              *------ no need to process HRDEPBENs because coverage won't change
              IF (HRDEP-EFF-DT-XMIT = ZEROES)
              MOVE 1 TO HRDEP-EFF-DT-XMIT
              052500 MOVE WS-TRUE TO HRDEP-ERROR-SW
              MOVE HRDEP-EFFECT-DATE-FN TO CRT-FIELD-NBR
              IF (HRDEP-CHANGE-COUNTER = ZEROES)
              AND (HRDEP-ADD-COUNTER = ZEROES)
              *------- Warning: Dep Ben will not be updated;Press OK to continue
              MOVE WS-TRUE TO HRDEP-ERROR-SW
              MOVE 163 TO CRT-ERROR-NBR
              MOVE 1 TO HRDEP-PT-XMIT-NBR1
              END-IF
              END-IF
              Lance Jurgensen
              Advanced Member
              Posts: 36
              Advanced Member

                That was it Ragu!

                My successful PDL:

                _PDL=HRDEV&_TKN=HR13.1&_EVT=CHG&_RTN=DATA&_LFN=ALL&_TDS=IGNORE&FC=C&EMD-COMPANY=15&EMD-EMPLOYEE=123456&EMD-SEQ-NBR=2&EMD-STUDENT=N&VERIFY-DATE=&EFFECT-DATE=20181210&CREATE-TRANS=N&EFF-DT-XMIT=1&_DELIM=%09&_OUT=XML&_EOT=TRUE