0

我正在尝试将 的值复制LINE.I到变量中THIS_IS_A_COMMENT2，以便可以在 JCL 中使用它。

JCL 已正确生成和执行，但该行QUEUE "//* THIS IS A COMMENT2 : " THIS_IS_A_COMMENT2被完全忽略。

工作得SAY "VALUE OF LINE.I : " LINE.I很好，我不知道将值复制LINE.I到一个简单的变量中。

THIS_IS_A_COMMENT  = "HELLO"
THIS_IS_A_COMMENT2 = ""

DO I = 1 TO LINE.0
    SAY "VALUE OF LINE.I : " LINE.I

    THIS_IS_A_COMMENT2 = LINE.I

    QUEUE "//USERIDK JOB 0000,'HELLO',"
    QUEUE "//            CLASS=T,"
    QUEUE "//            MSGCLASS=X,"
    QUEUE "//            MSGLEVEL=(1,1),"
    QUEUE "//            USER=USERID,"
    QUEUE "//            PASSWORD="
    QUEUE "//* THIS IS A COMMENT  : " THIS_IS_A_COMMENT
    QUEUE "//* THIS IS A COMMENT2 : " THIS_IS_A_COMMENT2
    QUEUE "//STEP1 EXEC PGM=IEFBR14"
    QUEUE "//DD1 DD DUMMY"
    QUEUE "/*"
    QUEUE "$$"
    O = OUTTRAP("OUTPUT.",,"CONCAT")
    "SUBMIT * END($$)"
    O = OUTTRAP(OFF)
END

我使用以下 jcl 提交我的 rexx 代码：

//JCLSAYHI JOB 00000,'SAY HI',
//             CLASS=T,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
// USER=MYUSER,PASSWORD=
/*JOBPARM R=H101,T=999,L=9999,S=ANY
//*----------------------------------------------
//STEPREXX EXEC PGM=IKJEFT01,PARM='SAYHI3'
//SYSEXEC  DD DISP=SHR,DSN=MYUSER.REXX
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DUMMY
//MYDATA   DD DISP=SHR,DSN=MYUSER.REXX.DATASET

SYSEXEC执行上面的代码，数据MYUSER.REXX.DATASET集包含：

********************************* Top of Data ******
HELLO1
HELLO2
HELLO3
HELLO4
HELLO5
******************************** Bottom of Data ****

追踪结果

发现了问题（REXX 没有在 THIS IS A COMMENT2 行的末尾添加双引号，因此在生成的 JCL 中忽略了该行）。只是不知道如何解决这个问题：

27 *-*  QUEUE "//* THIS IS A COMMENT  : " THIS_IS_A_COMMENT
    >>> "//* THIS IS A COMMENT  :  HELLO"
28 *-*  QUEUE "//* THIS IS A COMMENT2 : " THIS_IS_A_COMMENT2 ""
    >>> "//* THIS IS A COMMENT2 :  HELLO1     <--- DOUBLE QUOTE MISSING AT THE END HERE
4

0 回答 0