Routine: SDRPA09

Package	Total	Caller Graph
Scheduling	1	SD-PAIT MANUAL BATCH REJECT

Entry Points

Name	Comments	DBIA/ICR reference
AR(BATCH)	;whole batch rejection
QUE
SELECT	;Select Batch Control Id for the rejection process
STRT	;Tasked Entry

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Correct Running Date? " Line Location: SELECT+3
Function Call: WRITE	Prompt: !,"Batch already Acknowledged!" Line Location: SELECT+6
Function Call: WRITE	Prompt: !,"Non existing batch control ID from this run!" Line Location: SELECT+8
Function Call: WRITE	Prompt: !,"No Batches Selected, OK to quit? " Line Location: SELECT+9
Function Call: WRITE	Prompt: !!,"This job has been tasked" Line Location: QUE+0
Function Call: WRITE	Prompt: ! Line Location: QUE+2
Routine Call	DIE Line Location: STRT+5 AR+13 AR+16
Routine Call	DIC Line Location: SELECT+1
Routine Call	DIR Line Location: SELECT+4

Name	Line Occurrences (* Changed, ! Killed)
^SDWL(409.6 - [#409.6]	SELECT+5, SELECT+6, SELECT+7, SELECT+8, STRT+3, AR+7, AR+8, AR+9, AR+10, AR+14 , AR+15

Name	Line Occurrences
AR	STRT+2

Name	Field # of Occurrence
%	SELECT+1~, SELECT+3, SELECT+9*
BATCH	AR~, AR+7, AR+8, AR+9
BATCHID0	STRT+1~, STRT+2*, STRT+3
DA	SELECT+4~, STRT+4, AR+5~, AR+12
DA(1	STRT+4, AR+12
DIC	SELECT+1~*
DIC("A"	SELECT+1*
DIC(0	SELECT+1*
DIE	STRT+4, STRT+5!, AR+5~, AR+12
>> DIR(0	SELECT+4*
DR	STRT+4, AR+5~, AR+13, AR+16*
IOP	QUE+1~*
SDAR	SELECT+1~, SELECT+10
SDAR(	SELECT+7*, STRT+2
SDAR(""	SELECT+9
SDB	SELECT+4, SELECT+5, SELECT+7, SELECT+8, STRT+1~, STRT+2
SDBM	SELECT+1~, SELECT+7*
SDBS	SELECT+1~, SELECT+5*, SELECT+6, SELECT+7
SDOUT	SELECT+1~, SELECT+9, QUE+2*
SDPT	SELECT+1~, SELECT+2, SELECT+3, SELECT+5, SELECT+6, SELECT+7, SELECT+8, STRT+2, STRT+3, STRT+4
V1	AR+5~, AR+6, AR+7, AR+8, AR+9
V2	AR+5~, AR+8*, AR+9, AR+10, AR+12, AR+14, AR+15
V3	AR+5~, AR+9*, AR+10, AR+12, AR+14, AR+15
V4	STRT+1~, STRT+3*, STRT+4
>> X	QUE+1*
Y	SELECT+1~, SELECT+2, SELECT+3, SELECT+4
ZNODE	AR+5~, AR+10*
ZTSAVE	QUE+1~, QUE+2
ZTSAVE(	QUE+1*