AGS call to HR13.1

 6 Replies
 1 Subscribed to this topic
 52 Subscribed to this forum
Sort:
Author
Messages
Lance Jurgensen
Advanced Member Send Private Message
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 Send Private Message
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 Send Private Message
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 Send Private Message
Posts: 1127
Veteran Member
Try adding &PT-XMIT=1 and see what it does.
David Williams
Lance Jurgensen
Advanced Member Send Private Message
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 Send Private Message
Posts: 477
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 Send Private Message
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