INVALIDE COMMAND SYNTAXE



IBM's Command List programming language & Restructured Extended Executor

INVALIDE COMMAND SYNTAXE

Postby samb01 » Mon Jul 02, 2018 8:45 pm

Hello,

i'am running en rexx programme but i can't anderstand why i have this message :


    21 *-*  QUEUE '                   'FIC.I'        -'                      
       >L>    "                   "                                          
       >C>    "FIC.9038"                                                      
       >V>    "XDM.FIC01.DATASET"                      
       >O>    "                   XDM.FIC01.DATASET"    
       >L>    "        -"                                                    
       >O>    "                   XDM.FIC01.DATASET         -"      
    22 *-* END                                                                
     7 *-* DO I=1 TO DT.0                                                    
IKJ56621I INVALID COMMAND NAME SYNTAX                                        
IKJ56621I INVALID COMMAND NAME SYNTAX                                        
IKJ56621I INVALID COMMAND NAME SYNTAX                                        
IKJ56621I INVALID COMMAND NAME SYNTAX                                        

 
samb01
 
Posts: 294
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: INVALIDE COMMAND SYNTAXE

 

Re: INVALIDE COMMAND SYNTAXE

Postby willy jensen » Mon Jul 02, 2018 10:08 pm

Most likely because you do not have any PULL commands, or a command pulling from the stack.
willy jensen
 
Posts: 197
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 30 times

Re: INVALIDE COMMAND SYNTAXE

Postby samb01 » Mon Jul 02, 2018 11:05 pm

Hello, i have queue commands. That's not enought ?
samb01
 
Posts: 294
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: INVALIDE COMMAND SYNTAXE

Postby Jim Ruddy » Mon Jul 02, 2018 11:38 pm

Perhaps if you posted the REXX source it may help figure out what is going on.
Jim Ruddy
 
Posts: 2
Joined: Tue Jan 16, 2018 11:45 pm
Has thanked: 0 time
Been thanked: 0 time

Re: INVALIDE COMMAND SYNTAXE

Postby samb01 » Tue Jul 03, 2018 12:33 pm

The main programme :


/* REXX */                                            
TRACE I                                              
"EXECIO * DISKR IN (STEM DT."                        
NUM=1                                                
SPACE = 0                                            
CALL NEWJCL NUM SPACE                                
DO I=1 TO DT.0                                        
     FIC.I = WORD(DT.I,1)                            
     SPACE.I = WORD(DT.I,7)                          
     SPACE = SPACE.I + SPACE                          
     IF SPACE > 83333                                
     THEN DO                                          
            SAY 'ON EST DANS LA BOUCLE'              
            SPACE = 0                                
            NUM = NUM + 1                            
QUEUE '                   ))                          
                              QUEUE ""                
            "EXECIO * DISKW OUT ("                    
            CALL NEWJCL NUM,SPACE      
          END                          
QUEUE '
                  'FIC.I'      
END                                    
EXIT;                                  

 


the called profgramme :


/* REXX */                                                        
TRACE I                                                          
PARSE ARG NUM SPACE                                              
NEWJCL:                                                          
STEP.1='//COOLJOB (S),'MOVE VSAM',NOTIFY=&SYSUID,REGION=7M,'
STEP.2='//     CLASS=O,MSGCLASS=X,MSGLEVEL=(1,1)'                
STEP.3='//STEP1  EXEC  PGM=ADRDSSU'                              
STEP.4='//SYSPRINT  DD  SYSOUT=*'                                
STEP.5='//OUT1  DD DSN=XXX.DATASETS','              
STEP.6='
//      DISP=(NEW,CATLG,),'                              
STEP.7='
//     UNIT=VTS2,LABEL=RETPD=400'                        
STEP.8='
//SYSIN    DD    *'                                      
STEP.9=' DUMP OUTDDNAME(OUT1) OPTIMIZE(3) FORCECP(0) TOL(ENQF) -'
STEP.10='      DATASET(INCL(                                    -'
DO K=1 TO 10                                                      
  QUEUE  STEP.K                                                  
  "EXECIO 1 DISKW OUT ("                                          
END                                                              
RETURN
 


and the error is :


       >C>    "FIC.9038"                                                  
       >V>    "X.FILE.DATASET"                
       >O>    "                   X.FILE.DATASET"
       >L>    "        -"                                                
       >O>    "                   X.FILE.DATASET        -"
    22 *-* END                                                            
     7 *-* DO I=1 TO DT.0                                                
    23 *-* EXIT                                                          
IKJ56621I INVALID COMMAND NAME SYNTAX                                    
IKJ56621I INVALID COMMAND NAME SYNTAX                                    
IKJ56621I INVALID COMMAND NAME SYNTAX                                    
IKJ56621I INVALID COMMAND NAME SYNTAX                                    
IKJ56621I INVALID COMMAND NAME SYNTAX                                    
IKJ56621I INVALID COMMAND NAME SYNTAX                                    
IKJ56621I INVALID COMMAND NAME SYNTAX            
...                        

 
samb01
 
Posts: 294
Joined: Mon Nov 16, 2009 7:24 pm
Has thanked: 0 time
Been thanked: 0 time

Re: INVALIDE COMMAND SYNTAXE

Postby NicC » Tue Jul 03, 2018 2:36 pm

For a start you need to use double quotes when assigning strings to the step stem as some of those strings have single quotes as part of the data. You also have an extra quote when assigning to step.5. No point having syntax colouring if you are going to ignore it.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2823
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 118 times

Re: INVALIDE COMMAND SYNTAXE

Postby willy jensen » Tue Jul 03, 2018 3:40 pm

As NicC says, start with fixing your quotes, then look at the logic.
Your program has a QUEUE after the "EXECIO * DISKW OUT ", which will cause problems like the one you are seeing. And I strongly recommend that you do "EXECIO" queued() " DISKW OUT ", plus a "delstack" at the beginning and the end of your program.
willy jensen
 
Posts: 197
Joined: Thu Mar 10, 2016 5:03 pm
Has thanked: 0 time
Been thanked: 30 times

Re: INVALIDE COMMAND SYNTAXE

Postby expat » Tue Jul 03, 2018 6:10 pm

And why oh why are you building JCL like that ................. ISPF file tailoring is so much better and easier

and why not use the DFdss dataset list in a dataset ?

//SYSIN   DD *
 DUMP OUTDDNAME(OUT1) OPTIMIZE(3) FORCECP(0) TOL(ENQF) -'
      DATASET(INCL(                                    -'

//        DSN=whatever it is ,DISP=SHR
  ))
/*
 


If you explain what it is that you are trying to achieve, maybe we can suggest a better method
expat
 
Posts: 433
Joined: Sat Jun 09, 2007 3:21 pm
Has thanked: 0 time
Been thanked: 5 times


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post