>From What I under The IKJKEYWD macro followed IKJNAME defines a keyword parameter in my case ASID,JOBNAME,DUMP adding a SUBF parameter to the IKJNAME points to a IKJSUBF macro which acts as a header to a macro such as IKJIDENT
Which specifies the format and layout of what follows the KEYOWRD operand e.g. keyword JOBNAME(IBMUSER) IKJIDENT defines the attribute and storage for IBMUSER After calling CALLTSSR EP=IKJPARS,MF=(E,PPL) The field PPLANS which is in the control block PPL a parameter to IKJPARS has the address of the parsed field the layout of what is in IKJPPLANS is pointed by the first macro IKJPARM DSECT=XXXXXX One these macros will generated the mapping for the positional parameters following the KEYWORD e.g. JOBNAME in my case I just have one positional parameter following the keyword This how I understand the process However since it isn't working I must be doing something wrong -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Lizette Koehler Sent: Tuesday, August 28, 2012 4:03 AM To: [email protected] Subject: Re: No Data returned in PPLANS area I would like to understand better what you are trying to do. What is the CMD to do? What version of the operating system? z/OS ???? Is this to be a production process or are you just trying to understand TSO Command Processors? Have you looked at manuals like TSO/E Programming Services. Have you reviewed the TSO manual on how to structure this process? Is this an authorized command? If so did you add it to TSO IKJTSOxx member in PARMLIB? What language have you written this process in? Assembler, Cobol, etc... What is PPLANS? Is that your program? Have you tried adding an dump or some other option/instruction inside your program to produce a dump? How do you know the fields are not filled in? If you are using IPCS then you may not see the data due to the TSO command processor environment. You may need to use some other function to test a TSO Command Processor. Have you searched the internet for articles on writing a TSO Command Processor? http://www.tsotimes.com/articles/archive/fall03/whatistsocommandprocessor.ht ml Lizette > > Hi, > > I am issuing the following TSO command > > TSO CMD JOBNAME(JOBNAME) ASID(X'0037') DUMP(YES) > > The following is the layout of the IKJ macros I am using to parse > this statement > > CANCEL IKJPARM DSECT=PARSEAT > > JOBNAME IKJKEYWD > > IKJNAME 'JOBNAME',SUBFLD=JOB > > ASID IKJKEYWD > > IKJNAME 'ASID',SUBFLD=ASIDX > > DUMP IKJKEYWD > > IKJNAME 'DUMP',SUBFLD=DUMPX > > * > > * SUBFIELDS > > * > > JOB IKJSUBF > > JOBX IKJIDENT 'JOBNAME',FIRST=ALPHANUM,MAXLNTH=8,PROMPT='JOBNAME > > ASIDX IKJSUBF > > ASIDF IKJIDENT 'ASID',FIRST=ALPHANUM,OTHER=ALPHANUM,PROMPT='ASID' > > DUMPX IKJSUBF > > DUMPF IKJIDENT 'DUMP',FIRST=ALPHA,MAXLNTH=2 > > IKJENDP > > > > > > When I retrieve the address returned in PPLANS > > > > This is what it looks like nothing is returned > > > > 00064F00. FF000000 01000100 00000000 00000000 *................* > > 00000000 00000000 00000000 00000000 *................* > > 00064F20. 00000000 00000000 00000000 00000000 *................* > > 00000000 000000D0 00000000 00000000 *................* > > 00064F40. 00000000 00000000 00000000 00000000 *................* > > 00000000 00000000 00000000 00000000 *................* > > 00064F60. 00000000 00000000 00000000 00000000 *................* > > 00000000 00000000 00000000 00000000 *................* > > 00064F80. 00000000 00000000 00000000 00000000 *................* > > 00000000 00000000 00000000 00000000 *................* > > 00064FA0. 00000000 00000000 00000000 00000000 *................* > > 00000000 00000000 00000000 00000000 *................* > > 00064FC0. 00000000 00000000 00000000 00000000 *................* > > 00000000 00000000 00000000 00000000 *................* > > 00064FE0. 00000000 00000000 00000000 00000000 *................* > > 00000000 00000000 00000000 000000 *............... * > > > No data has been parsed > ---------------------------------------------------------------------- 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
