Routine: PSXDODAT

Entry Points

Name	Comments	DBIA/ICR reference
PUT(REC,DLM,XX)	; ; Set Variable V into piece P of REC using delimiter DLM
AUTO	; AUTO SCAN IN DIRECTORY AND FIRE UP JOBS
MSGSEQER	;send error message to folks & DOD
EN(PATH,FNAME)	; needs directory & file name
EN1	;
PIECE(REC,DLM,XX)	; ; Set variable V = piece P of REC using delimiter DLM
ERRMSG	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"MSGTYPID ",MSGTYPID Line Location: EN1+7
Function Call: WRITE	Prompt: !,"STOPPING ",MSGTYPID Line Location: EN1+13
Function Call: WRITE	Prompt: !," FILING RESPONSE ",PATH," ",FNAME2," ",Y Line Location: EN1+32
Function Call: WRITE	Prompt: !,"NO FILES FOUND" Line Location: AUTO+5
Function Call: WRITE	Prompt: !," processing ",PATH," ",FNAME Line Location: AUTO+7

Name	Line Occurrences (* Changed, ! Killed)
^PSX(552	EN1+9
^TMP($J	EN+3!, EN+6, EN+8, EN1+2, EN1+21!, EN1+26, EN1+28, EN1+30, EN1+31, EN1+34 , EN1+35

Name	Field # of Occurrence
>> %	EN1+22
>> ARQ	EN1+2, EN1+3, EN1+10, EN1+11
>> DATE	EN1+12*
>> DATETM	EN1+22*
DLM	PIECE~, PIECE+2, PUT~, PUT+3
FNAME	EN~, EN+1, EN+4, EN+6, EN+7, EN+8, EN1+4, AUTO+6*, AUTO+7, AUTO+8
>> FNAME1	EN+4*, EN1+29
>> FNAME2	EN1+29*, EN1+30, EN1+31, EN1+34, EN1+35
>> GBL	EN+5, EN1+31, EN1+35*
>> HOUR	EN1+12*
IOST	EN1+7, EN1+13, AUTO+5, AUTO+7
>> MSA	EN1+27*, EN1+28
>> MSGID	EN1+8, EN1+27
>> MSGTYPID	EN1+7, EN1+13, EN1+23
>> MSH	EN1+2, EN1+3, EN1+6, EN1+24, EN1+25, EN1+26
>> MSH1	EN1+2*
P	PIECE+2~, PUT+2~, PUT+3
PATH	EN~, EN+1, EN+6, EN+7, EN+8, EN1+4, EN1+29, EN1+30, EN1+31, EN1+33 , EN1+34, EN1+35, AUTO+1*, AUTO+2, AUTO+4, AUTO+7, AUTO+8
>> PSXCS	EN1+16, EN1+17, EN1+18, EN1+19
PSXERR	EN+2, EN+7, EN+8, EN1+1!, EN1+4, MSGSEQER+7
PSXF	AUTO+3!
PSXF("*.SCH"	AUTO+4*
PSXL	AUTO+3!
PSXL(	AUTO+6
>> PSXTXT(1	MSGSEQER+6*
>> PSXTXT(2	MSGSEQER+7*
REC	PIECE~, PIECE+2, PUT~, PUT+3*
>> RESP	EN1+23*
>> ROFF	EN1+14*
>> SITE	EN1+8*, EN1+9
>> SITENM	EN1+9*
>> STAT	EN1+16, EN1+17, EN1+18, EN1+19
U	EN+7, EN+8, EN1+4, PIECE+2, PUT+2
V	PIECE+2~, PUT+2~, PUT+3
>> XMSUB	MSGSEQER+2*
>> XMTEXT	MSGSEQER+5*
>> XMY("G.CMOP M	ANAGERS" , MSGSEQER+4*
XX	EN1+9, EN1+30, EN1+34*, PIECE~, PIECE+2, PUT~, PUT+2
>> Y	EN+6, EN+7, EN1+30, EN1+31, EN1+34, EN1+35, AUTO+4, AUTO+5
>> YY	EN1+6, EN1+11, EN1+25*