I have data where the format has been changed slightly by the carrier and now this change is causing my job to abend. The last page number of each file reads ex.'160 OF 160' however, the new format must read '160 of 160' which means that the last page number needs to justfied to the right to pos 68. This change only needs to be made at the end if the file. How do I accomplish this? Should there be a JUSTIFY command in the code below that will do this? IF END-OF-FILE-2 (RESPONSE-PAGE-A EQUAL RESPONSE-PAGE-B AND RESPONSE-OF EQUAL ' OF ') SET END-OF-MESSAGES TO TRUE GO TO 0300-EXIT.
October 19, 2009 4:33 PM
October 20, 2009 1:57 PM