00010019CONTROL NOMSG
00020019FREE ATTRLIST(VB255)
00030019DELETE MANUALS.TEMP
00040019CONTROL MSG
00050019ATTRIB VB255 DSORG(PS) RECFM(V B) LRECL(255) BLKSIZE(6356)
00060019ALLOCATE DDNAME(MANUALS) REUSE DSNAME(&SYSUID..MANUALS.TEMP) NEW UNIT(TESTDISK) +
00070019         BLOCK(6356) SPACE(28,7) USING(VB255)
00080019FREE ATTR(VB255)
00090019ALLOCATE DDNAME(INPUT) REUSE DSNAME('TECH.LIBR.MANUALS') SHR
00100019REPRO INFILE(INPUT) OUTFILE(MANUALS)
00110019FREE DDNAME(INPUT)
00120019WRITENR EDIT WILL OCCUR AUTOMATICALLY, HIT ENTER WHEN THREE ASTERISKS APPEAR
00130019ISPEXEC EDIT DATASET(&SYSUID..MANUALS.TEMP)
00140019FREE DDNAME(MANUALS) DELETE