I am looking for a load module which is going to do some XMEM stuff towards
that end it has to be APF authorized if not I prompt the user to renter the
DDNAME or DSN 

 

If its not APF Authorized I come up with the following message I would then
like them to re-enter the dsn name however when they do I get a IKJ  INVALID
KEYWORD message

 

      
So syntax is CMDA ASID(xx)  MODULE
         Enter X to Terminate using log/list defaults

 IKJ56702I INVALID DATASET IBMUSER.TEST.LOAD IS NOT APF AUTHORIZED IT IS
REFRENC
ED BY DD = STEPLIB  ENTER EITHER DDNAME OR DSN .., DACEE

 IKJ56718A REENTER THIS OPERAND+ -

  IBMUSER.TEST.LOAD     
                              
 IKJ56712I INVALID KEYWORD, IBMUSER.TEST.LOAD       
 IKJ56703A REENTER THIS OPERAND - 
 

This is my original layout  

  CMDA     IKJPARM DSECT=PARSEAT                                          
 ASID     IKJKEYWD                                                       
          IKJNAME  'ASID',SUBFLD=ASIDF                                   
 *                                                                       
 *                                                                       
 PROG     IKJUNFLD VERIFCK=PROGLOOK                                      
*                                                                       
 *                                                                       
 *   SUBFIELDS                                                           
 *                                                                       
 *                                                                       
 ASIDF    IKJSUBF                                                        
 ASIDX    IKJIDENT 'ASID',FIRST=ALPHANUM,OTHER=ALPHANUM,PROMPT='ASID',VAX
                LIDCK=ASIDLOOK                                           
 *                                                                       
"But I thought that I defined the load load module positional parameter with
a IKJPOSIT macro with a DSN parm it would work since it encompasses a load
module as well e.g."

So I coded this layout

 *                                                                       
CMDA     IKJPARM DSECT=PARSEAT                                          
ASID     IKJKEYWD                                                       
         IKJNAME  'ASID',SUBFLD=ASIDF                                   
*                                                                       
*                                                                       
PROGX    IKJPOSIT DSNAME,VALIDCK=PROGLOOK                               
*                                                                       
*SN      IKJSUBF                                                        
*ROG     IKJTERM UPPERCASE,TYPE=ANY,VALIDCK=PROGLOOK                    
*                                                                       
*                                                                       
*   SUBFIELDS                                                           
*                                                                       
*                                                                       
ASIDF    IKJSUBF                                                        
ASIDX    IKJIDENT 'ASID',FIRST=ALPHANUM,OTHER=ALPHANUM,PROMPT='ASID',VAX
               LIDCK=ASIDLOOK                                           
*                                                                       
         IKJENDP

But when I do I get the following message


                           ISPF Primary Option Menu                     
Option ===> tso cmda asid(11) dacee                                    
                                                                        
0  Settings      Terminal and user parameters            User ID . : IBM
1  View          Display source data or listings         Time. . . : 00:
2  Edit          Create or change source data            Terminal. : 327
3  Utilities     Perform utility functions               Screen. . : 1  
4  Foreground    Interactive language processing         Language. : ENG
5  Batch         Submit job for language processing      Appl ID . : ISR
6  Command       Enter TSO or Workstation commands       TSO logon : ISP
7  Dialog Test   Perform dialog testing                  TSO prefix:    
9  IBM Products  IBM program development products        System ID : ADC
10 SCLM          SW Configuration Library Manager        MVS acct. : ACC
11 Workplace     ISPF Object/Action Workplace            Release . : ISP
M  More          Additional IBM Products                                
                                                                        
                                                                        
     Enter X to Terminate using log/list defaults                       
IKJ56712I INVALID KEYWORD, DACEE                                        
IKJ56703A REENTER THIS OPERAND -                                        
                                                                        
                                                                        



                                                           
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of Anthony Thompson
Sent: Monday, June 30, 2014 4:22 AM
To: [email protected]
Subject: Re: IKJPOSIT question

Quote ' I am looking for to enter a string following a keyword towards that
end I use IKJPOSIT SPACE,VALIDCK='

Making a positional parameter follow a keyword doesn't make much sense to
me.

For further help, I think you'll need to supply:

1) the intended syntax of your command;
2) the parameters passed to IKJPARS (the IKJPARM macro and all the following
IKJ* macros through to the IKJENDP macro);
3) what you entered on your TSO session to cause the error message.

Ant.


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of MichealButz
Sent: Monday, 30 June 2014 10:48 AM
To: [email protected]
Subject: IKJPOSIT question

I am looking for to enter a string following a keyword towards that end I
use IKJPOSIT SPACE,VALIDCK=

I am looking to enter program name which is up to a 8 byte character string

When I enter the string it comes back to me  IKJ56712I INVALID KEYWORD 

I don't understand this as there isn't keyword it's a positional operand  


----------------------------------------------------------------------
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

Reply via email to