Routine: GECSPURG

Information

GECSPURG ;WISC/RFJ/KLD-purge code sheets (ask prompts) ; 5/21/12 5:05am

Name	Comments	DBIA/ICR reference
ASK	; ask days to retain code sheets
DT	;Ask processing date GEC239
ALL	; ask to delete all code sheets
PURGEDT(GECSTHRU,GECSYRS)	;ARCHIVE/PURGE date query ;GEC239
P1
Q
DTGEC

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This routine will delete Code Sheets from the Code Sheet file and" Line Location: GECSPURG+6
Function Call: WRITE	Prompt: !,"Batch and Transmission records from the Transmission Record file." Line Location: GECSPURG+7
Function Call: WRITE	Prompt: !,"Deletion is based upon the date a batch and a code sheet is" Line Location: GECSPURG+8
Function Call: WRITE	Prompt: !,"created.",! Line Location: GECSPURG+9
Function Call: WRITE	Prompt: !!,"This program will remove all stack file entries which were created before",!,Y,"." Line Location: DT+7
Function Call: WRITE	Prompt: ! Line Location: DT+15
Function Call: WRITE	Prompt: !!,">> please wait <<" Line Location: DT+17
Function Call: WRITE	Prompt: ! Line Location: ALL+2
Function Call: WRITE	Prompt: !,"CANNOT RUN THIS OPTION FOR LESS THAN LAST "_GECSYRS_" FISCAL YEARS + CURRENT FISCAL YEAR" Line Location: P1+8