/* REXX */
user = USERID()
queue "//"user"B JOB 'BOBGUO',CLASS=A,NOTIFY="user",MSGCLASS=A "
queue "//REXX EXEC PGM=IKJEFT01, "
queue "// PARM='REXX1' "
queue "//SYSTSPRT DD SYSOUT=* "
queue "//SYSTSIN DD DUMMY "
queue "//SYSPROC DD DSN=XXXXX.REXX,DISP=SHR "
queue "// "
queue "$$ "
o = OUTTRAP("output.",,"CONCAT")
ADDRESS TSO "SUBMIT * END($$)"
o = OUTTRAP(OFF)
say output.1
say output.2
RETURN
user = USERID()
queue "//"user"B JOB 'BOBGUO',CLASS=A,NOTIFY="user",MSGCLASS=A "
queue "//REXX EXEC PGM=IKJEFT01, "
queue "// PARM='REXX1' "
queue "//SYSTSPRT DD SYSOUT=* "
queue "//SYSTSIN DD DUMMY "
queue "//SYSPROC DD DSN=XXXXX.REXX,DISP=SHR "
queue "// "
queue "$$ "
o = OUTTRAP("output.",,"CONCAT")
ADDRESS TSO "SUBMIT * END($$)"
o = OUTTRAP(OFF)
say output.1
say output.2
RETURN
i am new to rexx and this is one sample program copied from book. but when i ran it, i got one problem below, can somobody help me to resolve it, thanks.
IKJ56701I MISSING END CHARACTER(S)+
IKJ56701I MISSING ONE OR TWO CHARACTERS (I.E. ALPHABETIC, NUMERIC, OR NATIONAL)
THAT WILL TERMINATE THE INPUT JOB STREAM
A command entered or contained in a CLIST has invalid syntax.
***
