This function deletes the original input spooled file.
Hint: If you use the Save attribute of the spooled file as a condition for the delete you can make InterForm400 behave a bit like a normal writer job: Delete the spooled file if the save attribute is *NO after it has been merged:
Update AFC-functions attached to output queues AFC305D
Queue: AFC_INPUT1 Library: APF3812
Seqnbr F. Formtyp Save Jobname Filename Device file Program UserData 0001 1 MY_SPOOL Merge, Overlay: IF400DEMO Fileset: SAMPLE 0002 7 *NO MY_SPOOL Delete Spooled File
Seqnbr Function Attributes of input file for which to execute the function 2.0 7 Form type . . . . . . . . . . . . . . __________ Save attribute . . . . . . . . . . . . *NO *NO *YES Jobname . . . . . . . . . . . . . . . __________ Spooled file name . . . . . . . . . . MY SPOOL Device file . . . . . . . . . . . . . __________ Library . . . . . . . . . . . . . . __________ Program that opened file . . . . . . . __________ Library . . . . . . . . . . . . . . __________ F3=Exit F13=Fold/Unfold F11=Delete F12=Cancel
|
