IBM,ZOS] H.Q RENAME, FILE manager 예제, 특정 lib.의 모든 memeber 들에 명시된 이름 변경

//JS010 EXEC PGM=FMNMAIN
//SYSPRINT DD SYSOUT=*
//FMNTSPRT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSIN DD *
$$FILEM FCH,
$$FILEM MEMBER=*,
$$FILEM PACK=ASIS,
$$FILEM JCL=NO,
$$FILEM DSNIN=KBS.TEST.JCLPDS,
$$FILEM PROC=*
OUTREC=SUBSTR(INREC,1,72)
OUTREC=CHANGE(OUTREC,'PLCH.','QLCH.')
RETURN
/+
/*