Routine: RGADTP1

Information

RGADTP1 ;BIR/DLR-ADT PROCESSOR TO RETRIGGER A08 or A04 MESSAGES WITH AL/AL (COMMIT/APPLICATION) ACKNOWLEDGEMENTS - CONTINUED ;7/19/21 12:43

Source file <RGADTP1.m>

Name	Comments	DBIA/ICR reference
PIDP(MSG,ARRAY,HL)	;process PID segment
IDSARR	;parse ids ;**61 MVI_2970 (dri)
NAMARR	;parse legal and alias names ;**61 MVI_2970 (dri)
QTON(X)	;**71,Story 841921 (mko): Convert two quotes to null
COUNTRY(CNTRY)	;

FileNo	Call Tags
^HL(779.004 - [#779.004]	FIND1^DIC, GET1^DIQ