Long, long time ago the COBOL FD was just a pointer to the DCB: pass the FD to a subprogram and map any DCB fields of interest in LINKAGE-SECTION, passing back any required information to caller. More modern versions of COBOL and LE may well have clobbered that method but I recall doing a similar thing for PL/I via the FIB(?) when we converted to Enterprise flavor. Memory fades and I've never been a PL/1 programmer. In any case, "SET ADDRESS" opens up the world of programmer-accessible z/OS control blocks to COBOL and a good starting place is often your TCB which is pointed to in offset x'21C' in the PSA. You don't *need* to write in Assembler unless you just want to. Never anything wrong with writing Assembler, IMHO. Don't forget that the DDNAME in the DCB is overwritten after OPEN. I may have forgotten that once or, well, more than twice.
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
