This might be of interest. //***FILE 214 IS FROM FRED SCHUFF, OF WAYNE PENNSYLVANIA, AND * //* CONTAINS COBOL COPY MEMBERS TO MAP MVS CONTROL * //* BLOCKS. INCLUDED CONTROL BLOCKS ARE: * //* * //* ACB CDE PDS * //* ACEE CVT RB * //* ASCB DCB TCB * //* ASVT DEB TIOT * //* ASXB JFCB UCB * //* * //* THIS TAKES ADVANTAGE OF A NEW FEATURE IN COBOL II * //* THAT ALLOWS POINTERS TO MVS ADDRESSABLE AREAS IN * //* THE LINKAGE SECTION OF COBOL II PROGRAMS. NOW * //* YOU CAN PUT THE LAST IPL DATE AND TIME, CPUID AND * //* SERIAL NUMBER, ON THE TOP OF YOUR COMPANY'S * //* ACCOUNTS RECEIVABLE REPORTS. ALSO, ALL THE * //* ALLOCATED DDNAMES ETCETERA. SERIOUSLY, THE * //* PURPOSE OF THE FEATURE SEEMS TO BE THE ABILITY TO * //* ADD SYSTEM-TYPE DATA INTO BUSINESS PROGRAMS IF IT * //* IS WANTED. ANYWAY, IF YOU EVER GET INVOLVED IN * //* IMPLEMENTING THIS TYPE OF THING, THIS FILE WILL * //* GIVE YOU VERY EXTENSIVE MACHINE-READABLE HELP. * //* DOCUMENTATION IS INCLUDED IN MEMBER $$$DOC. * //* *
File # 214 MVS Control Blocks formatted for COBOL 2 http://www.cbttape.org/ftp/cbt/CBT214.zip Best Regards, Sam Knutson, GEICO Performance and Availability Management mailto:[EMAIL PROTECTED] (office) 301.986.3574 Bart Simpson: Aren't we forgetting the true meaning of Christmas? You know, the birth of Santa. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Luis Alcibar Sent: Tuesday, December 20, 2005 10:19 AM To: [email protected] Subject: Z/OS System Blocks Hello listers. I'm looking for information to know how to navigate through MVS System Areas to find the DCB's of the Data Set that a COBOL program is using, in order to know the RECFM, the LRECL, etc..... . I would like some reference about books, manual or so, that help me to solve the question but too, investigate some other data that can be obtained. Thanks in advance. ==================== This email/fax message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution of this email/fax is prohibited. If you are not the intended recipient, please destroy all paper and electronic copies of the original message. ---------------------------------------------------------------------- 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
