"FTOPEN TEMP" "FTINCL ........" /* customize JCL */ if rc > 0 then do "SETMSG MSG(ISRZ002)" sw.error_found = "1"; return end /* FTINCL error */ "FTCLOSE" if rc > 0 then do "SETMSG MSG(ISRZ002)" sw.error_found = "1"; return end /* FTCLOSE error */ "VGET (ZTEMPF ZTEMPN)" if modify then do "LMINIT DATAID(DDNID) DDNAME("ztempn")" "EDIT DATAID("ddnid")" end else, address TSO "SUBMIT '"ZTEMPF"'"