私はRTVRPGSCを用いて落としてます。
C　　　　　　　　　　　　　　　　　　　　　MOVEL*BLANK　　　　#SRFL　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL*BLANK　　　　#SRLIB　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL*BLANK　　　　#SRMBR　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL*BLANK　　　　#CCSID　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL*BLANK　　　　#SRCCD　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL*BLANK　　　　#SRCCT　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL*BLANK　　　　#SRCHD　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL*BLANK　　　　#SRCHT　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　CALL　'RTVRPGSC'PLIST1　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL#SRFL　　　　　ODSRCF　　　　　　　　　　　FILE　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL#SRLIB　　　　ODSRCL　　　　　　　　　　　LIB　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL#SRMBR　　　　ODSRCM　　　　　　　　　　　MBR　　　　　　　　　　　　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL#SRCHD　　　　ODSRCD　　　　　　　　　　　ソース変更日　　　　　
C　　　　　　　　　　　　　　　　　　　　　MOVEL#SRCHT　　　　ODSRCT　　　　　　　　　　　ソース変更時間