Modify this subroutine to check for statements that need to be deleted from or commented out of the JCL.
/********************************************************************/
/* Raw Data Processing Logic */
/********************************************************************/
RAW_DATA_PROCESSING:
IF delete_flag = 'Y' Then
Do
$CA.RCOUNT = 0 /* Setting record count to zero deletes statement */
delete_flag = 'N' /* Reset flag */
End
IF comment_flag = 'Y' Then
Do
$CA.RCOUNT = $CA.RCOUNT + 0
Do n = 1 to $ca.rcount
temp_work = SUBSTR($CA.RECORD.n,3,77)
temp_record = '//*'temp_work
$CA.RECORD.n = temp_record
End
comment_flag = 'N' /* Reset flag */
End
Return
|
Copyright © 2013 CA.
All rights reserved.
|
|