zOs/REXX.O13/JOBID

/* rexx ****************************************************************
        write
            jobName  jobId
            time     date
        and ddIn
        to ddOut
***********************************************************************/
             /* control block chaining see mvs / data areas */
TCB      = PTR(540)
say 'tcb eye' stg(tcb+256, 4)
JSCB     = PTR(TCB+180)
SSIB     = PTR(JSCB+316)
JOBid    = STG(SSIB+12,8)

x.1 = ' '
x.2 = ' '
x.3 = 'jobName   ' mvsVar('symDef', 'jobName') 'jobId' jobId
x.4 = '   time   ' time() 'date' date('e')
x.5 = ' '
x.6 = ' '

address tso "EXECIO 6 DISKW ddOut (STEM x. )"
if rc <> 0 then
    call err 'writing to ddOUt rc' rc

address tso "EXECIO * DISKR ddIn (STEM x. finis)"
if rc <> 0 then
    call err 'reading to ddIn rc' rc

address tso "EXECIO" x.0 "DISKW ddOut (STEM x. )"
if rc <> 0 then
    call err 'writing to ddOUt rc' rc
exit 0

PTR: RETURN C2D(STORAGE(D2X(ARG(1)),4))
STG: RETURN STORAGE(D2X(ARG(1)),ARG(2))

err:
parse arg msg
    say '*** error' msg
    exit 8