Edit macro CHECK72 Edit macro CHECK72 Author: David McRitchie formatted on 1995/04/01 06:54 for assistance contact: D. McRitchie DMcRitchie@hotmail.com -------------------------------------------------------------------------------- Macro name. CHECK72 users. PDF EDIT users with JCL containing utility control cards type. Edit Macro resides in SYS1.TSOCLIST -------------------------------------------------------------------------------- CHECK72 Check for possible continuation update required in col 72 -------------------------------------------------------------------------------- CHECK72 can be used to quickly check for the possibility that some control cards may need a punch in column 72. -------------------------------------------------------------------------------- ISREDIT CHECK72 -------------------------------------------------------------------------------- lptr-range indicates that two line pointers are optional to indicate a range of lines to be changed. The line pointers must be a labels. Specifying one line pointer is invalid. The default, if not specified, is .ZFIRST and .ZLAST, indicating that all lines are to be processed. Examples: CHECK72 check from beginning to end CHECK72 .A .B check from label .a through label .b Internal Aspects: 1) exclude all .a .b 2) find all .a .b ', ' and find all .a .b ',' 71 80 3) exclude all .a .b '//' 1 4) exclude all .a .b '@' 72 5) exclude all .a .b ' x' 71 6) exclude all .a .b ' -' 71 Additional Hints on column checking: When editing text data or with terminals which display only 72 columns of data, it can become quite a shock to find data where one did not expect it to be. To help find some of this misplaced or lost data the following sequence can be tried. It does not lend itself easily to a CLIST. ===> loc 0 /* to start at beginning ===> &find p'ª' 73 600 /* the & will retain command for repeated use