在JCL里面一次如何注释掉一整段连续的Statement? 下面这个替换思想的方法不错,不妨一试!
命令:C '//' '//*' ALL .X .Y
File Edit Edit_Settings Menu Utilities Compilers Test Help
VIEW IBMUSER.TEST.JCL(SORT) - 01.99 Columns 00001 00072
Command ===> C '//' '//*' ALL .X .Y Scroll ===> CSR
******** Top of Data *********************************************************
000001 //IBMUSERS JOB '000000000000000000CMP',
000002 // CLASS=0,NOTIFY=&SYSUID,MSGCLASS=R,TIME=NOLIMIT
000003 //*********************************************************************
.X //STEP001 EXEC PGM=ICETOOL,REGION=0M
000005 //INPUT1 DD DSN=&HLQ1..AEN.INPUT1.EXT(0),DISP=SHR
000006 //INPUT2 DD DSN=&HLQ1..AEN.INPUT2.EXT(0),DISP=SHR
000007 //INPUT3 DD DSN=&HLQ1..AEN.INPUT3.EXT(0),DISP=SHR
000008 //OUTPUT DD DSN=IBMUSER.OUTPUT,
000009 // DISP=(MOD,CATLG,),UNIT=SYSDA,SPACE=(CYL,(10,8),RLSE),
000010 // DCB=(SYS1.MODEL,RECFM=FB,LRECL=600,DSORG=PS)
000011 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(10,8),RLSE)
000012 //TOOLMSG DD SYSOUT=
000013 //DFSMSG DD SYSOUT=*
000014 //TOOLIN DD DSN=&CONTROL(MYCNTL01),DISP=SHR
.Y //CTL1CNTL DD DSN=&CONTROL(MYCNTL02),DISP=SHR
000016 //*
F1=Help F2=Split F3=Exit F5=Rfind F6=Rchange F7=Up
F8=Down F9=Swap F10=Left F11=Right F12=Cancel
Comments !