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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
