This program converts the SOURCE entry utility length to 112 so that the comments field is also visible while entering the SOURCE.
0000.02
/********************************************************************/
0000.03 /*
*/
0000.04 /* THIS PROGRAM CONVERTS THE SOURCE ENTRY UTILITY LENGTH
*/
0000.05 /* TO 112 SO THAT THE COMMENTS FIELD IS ALSO VISIBLE
*/
0000.06 /* WHILE ENTERING THE SOURCE
*/
0000.07 /*
*/
0000.08
/********************************************************************/
0000.09
0001.00 PGM PARM(&LIB) /* Accept the LIBRARY where the +
0001.01 changes have to be made as the Input. */
0002.00
0002.01 /* Existing File SRCPF in the Library PRAVIN */
0003.00 DCLF FILE(PRAVIN/SRCPF)
0003.03
0004.00 DCL VAR(&LIB) TYPE(*CHAR) LEN(10)
0005.00
0006.00 DLTF FILE(PRAVIN/SRCPF)
0007.00 MONMSG MSGID(CPF9999)
0007.01 0008.00 DLTF
FILE(TMPSRCPF)
0009.00 MONMSG MSGID(CPF9999)
0010.00
0011.00 DSPFD FILE(&LIB/*ALL) TYPE(*BASATR) +
0012.00 OUTPUT(*OUTFILE) FILEATR(*PF) +
0013.00 OUTFILE(PRAVIN/SRCPF)
0014.00
0015.00 READ: RCVF RCDFMT(QWHFDBAS)
0016.00 MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))
0017.00
0018.00 IF COND((&ATDTAT *EQ 'S') *AND (&ATFTYP *EQ +
0019.00 'P')) THEN(DO)
0020.00 RNMOBJ OBJ(&ATLIB/&ATFILE) OBJTYPE(*FILE) +
0021.00 NEWOBJ(TMPSRCPF) /* Rename the Exisiting
+
0022.00 Source File */
0023.00
0024.00 CRTSRCPF FILE(&ATLIB/&ATFILE) RCDLEN(112) +
0025.00 TEXT(&ATTXT) /* Create a Source file with
+
0026.00 length 112 */
0027.00
0028.00 CPYSRCF FROMFILE(TMPSRCPF) TOFILE(&ATLIB/&ATFILE) +
0029.00 FROMMBR(*ALL) MBROPT(*ADD) /* Copying all
+
0030.00 the member from renamed source file to +
0031.00 newly created file */
0033.00
0034.00 MONMSG MSGID(CPF2817) /* Error while copying empty
+
0035.00 member */
0036.00
0037.00 DLTF FILE(TMPSRCPF) /* Delete the renamed file */
0038.00
0039.00 ENDDO /* LOOP FOR SOURCE FILE */
0040.00
0041.00 GOTO CMDLBL(READ) /* Loop for Reading the Next +
0042.00 Record */
0043.00 END:
0044.00 SNDPGMMSG MSG('Completed
Normally................]')
0045.00 ENDPGM
****************** End of data ************************
This was first published in May 2001