It is telling you that you have embedded blanks between operands, some like this: D SMS (two blanks between D and SMS). Or what is COMM following SMS?
Bob -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of af dc Sent: Monday, January 21, 2013 6:53 AM To: [email protected] Subject: Re: SMS COMMAND VIA BATCH H Boris, I'm not understanding why I'm getting the following error: # of MVS commands to issue: 1 Issuing command #1... DISPLAY SMS 11.50.35 IGD029I ERROR FOR DISPLAY SMS COMM 137 11.50.35 ERROR IS EMBEDDED BLANKS BETWEEN OPERANDS OF COMMAND READY END however it worked on: # of MVS commands to issue: 1 Issuing command #1... D U,,,03C1,4 11.44.55 IEE457I 11.44.55 UNIT STATUS 433 11.44.55 UNIT TYPE STATUS VOLSER VOLSTATE 11.44.55 03C1 359L O-NRD -AS /REMOV 11.44.55 03C2 359L O-NRD -AS I00340 PRIV/REMOV 11.44.55 03C3 359L O-NRD -AS I00082 PRIV/REMOV 11.44.55 03C4 359L O-NRD -AS /REMOV READY END Can you pls geve me an hint ?? Many thx, A.Cecilio. On Thu, Jan 17, 2013 at 4:23 PM, Boris Lenz <[email protected]> wrote: > John, > > your command wasn't found because VARY is an MVS command, not a TSO > command, and IKJEFT01 is TSO. > > If, as others pointed out, the // COMMAND suggestion doesn't work due > to authorization issues or timing issues, you may want to try it in > TSO batch again, using the CONSOLE command (for which you're authorized > maybe). > > Something like this: > > //your-jobcard JOB ... > //STEP01 EXEC PGM=IEBUPDTE,PARM=NEW > //SYSPRINT DD DUMMY > //SYSUT2 DD DISP=(,PASS),SPACE=(TRK,(1,1)), > // RECFM=FB,LRECL=80,DSORG=PO,DSNTYPE=LIBRARY > //SYSIN DD DATA,DLM='¬¬' > ./ ADD NAME=MVSCMD > /* rexx */ > /* issues MVS commands */ > arg dd > call ReadInput > if result ^= 0 then exit result > call CountCmds > say "# of MVS commands to issue: "result cartpfx = userid cartcnt = 0 > address tso do k = 1 to inplines.0 "CONSOLE ACTIVATE NAME("userid"Z)" > 'CONSPROF SOLDISP(NO) UNSOLDISP(NO) SOLNUM(1024) UNSOLNUM(1024)' > conscmd = inplines.k > 'CONSOLE SYSCMD('conscmd') CART('conscart')' > gc = getmsg('R.','SOL',conscart,,5) > if gc = 4 then gc = getmsg('R.','EITHER',conscart,,5) if gc = 0 then > do > say " Issuing command #"k"..." > say " "conscmd > do i = 1 to r.0 > conscmdn = r.mdbgtimh ""r.i > say conscmdn > end > if gc > 0 then say 'Unable to retrieve message - GETMSG RC:' gc end > 'CONSPROF SOLDISP(YES) UNSOLDISP(YES) SOLNUM(1000) UNSOLNUM(1000)' > 'CONSOLE DEACTIVATE' > end > exit > /**/ > CountCmds: procedure expose inplines. > j = 0 > do i = 1 to inplines.0 > if (left(inplines.i,2) ^= "&&") then j=j+1 > end > return j > /**/ > ReadInput: procedure expose dd inplines. > maxcc = 0 > address mvs "EXECIO * DISKR "dd" (STEM INPLINES. FINIS" > if rc ^= 0 then do > say "RXLENZ01 ERROR READING INPUT FROM DD "dd > maxcc = 16 > end > if inplines.0 = 0 then do > say "RXLENZ02 NO INPUT PROVIDED IN DD "dd > maxcc = 16 > end > return maxcc > /**/ > ¬¬ > //* > //STEP02 EXEC PGM=IKJEFT01,PARM='%MVSCMD MVSCMDS' > //SYSEXEC DD DSN=*.STEP01.SYSUT2,DISP=(OLD,DELETE) > //SYSTSPRT DD SYSOUT=* > //SYSTSIN DD DUMMY > //MVSCMDS DD * > VARY SMS,VOLUME(SMC1G5),DISABLE,NEW > // > > > Regards, > Boris > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send > email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
