I could use some help. I am writing a REXX exec which interfaces with the
ADDRESS SDSF stuff. Almost everything is working. But, from the H display, I
cannot get the JOBID field populated. The REXX exec looks like:
/* REXX */
XX=ISFCALLS('ON')
IF XX <> 0 THEN DO
SAY 'ISFCALLS FAILED. RC='XX
EXIT 16
END
ISFPREFIX='*'
ADDRESS SDSF "ISFEXEC H (DELAYED ALTERNATE)"
SAY 'ISFDISPLAY='ISFDISPLAY
SAY 'ISFCOLS='ISFCOLS
SAY 'ISFDCOLS='ISFDCOLS
IF RC <> 0 THEN DO
SAY 'ISFEXEC H * FAILED. RC='RC
EXIT 16
END
SAY 'ISFROWS='ISFROWS
DO I=1 TO ISFROWS
SAY JNAME.I JTYPE.I JNUM.I JOBID.I OWNERID.I OCLASS.I FORMS.I STATUS.I,
TIMER.I DATER.I
END
My output is:
ISFDISPLAY=PREFIX=* DEST=LOCAL OWNER=* SYSNAME=
ISFCOLS=JNAME TOKEN JTYPE JNUM DSDATE OCLASS FORMS DESTN DEST NODE OGNAME
RECCNT ROOMN PNAME ACCTN NOTIFY ISYSID TIMER DATER ESYSID
TIMEE DATEE TIMEN DATEN ICARDS JPRIO STATUS UCSID JCLASS BURST PRMODE WTRID
MCLASS FLASHID OWNERID PAGECNT SECLABEL FCBID
ISFDCOLS=ROOMN PNAME ACCTN NOTIFY ISYSID TIMER DATER ESYSID TIMEE DATEE TIMEN
DATEN ICARDS MCLASS
ISFROWS=5
TSH009Z JOB 24116 JOBID.1 TSH009 X STD8 07:47:57.02 2009.141
TSH009Z JOB 24121 JOBID.2 TSH009 X STD8 07:57:37.48 2009.141
TSH009Z JOB 24132 JOBID.3 TSH009 X STD8 08:02:55.44 2009.141
TSH009Z JOB 24142 JOBID.4 TSH009 X STD8 08:13:01.27 2009.141
TSH009Z JOB 24146 JOBID.5 TSH009 X STD8 08:18:52.59 2009.141
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone * (817)-961-6183 cell
[email protected] * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets(r) is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company(r), Mid-West National Life Insurance Company of TennesseeSM and The
MEGA Life and Health Insurance Company.SM
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
