This is a IBM COLBL for OS/390 question. I need a simple pgm to check the first record in several files for a code. The record has the same format in all the files, but the files have differing record sizes (lrecl). The OPEN failes unless the record size of the file exactly matches the longest record in the FD. Any way around this in COBOL?
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Reading / writing Variable Blocked QSAM files 7
- Thread starter 50five
- Start date
Hi Jack,
TAL is a programming language, native to Tandem, closely related to Pascal (or C) in syntax. The Tandem OS is largely written in TAL, hence the 'ENTER TAL' calls. The main compilers on Tandem are TAL, C++ and COBOL85.
As for JCL, Tandem does have such a facility, called TACL. The main difference between TACL and JCL is that entire applications can be written in TACL alone, including client and server applications.
Dimandja
TAL is a programming language, native to Tandem, closely related to Pascal (or C) in syntax. The Tandem OS is largely written in TAL, hence the 'ENTER TAL' calls. The main compilers on Tandem are TAL, C++ and COBOL85.
As for JCL, Tandem does have such a facility, called TACL. The main difference between TACL and JCL is that entire applications can be written in TACL alone, including client and server applications.
Dimandja
-
1
- #24
It may have been mentioned earlier, but IBM (mainframe) COBOL *does* allow you to do a
Call ... Using file-name
if the file-name is QSAM (not VSAM).
When this is done, the called subprogram gets "access" to the DCB (and all information in the DCB). This can even be "Modified" - although this is usually a pretty risky thing to do (as far as maintenance goes).
For more information, see:
and look for "file-name".
***
It is also worth mentioning that anyone use the
Recording Mode U
"feature" in a COBOL FD (under IBM) should be aware of the changes that occurred awhile ago in LE. See:
Bill Klein
Call ... Using file-name
if the file-name is QSAM (not VSAM).
When this is done, the called subprogram gets "access" to the DCB (and all information in the DCB). This can even be "Modified" - although this is usually a pretty risky thing to do (as far as maintenance goes).
For more information, see:
and look for "file-name".
***
It is also worth mentioning that anyone use the
Recording Mode U
"feature" in a COBOL FD (under IBM) should be aware of the changes that occurred awhile ago in LE. See:
Bill Klein
Hi Bill,
I suspected IBM had to have something like what I described. I mean, if you are going to write on-line applications, for example, JCL will surely mostly get in the way.
I have used IBM JCL from time to time, but my IBM passion is the first programming language I formally studied: Assembler. The sheer elegance of the language. Haven't seen anything like it since. But I forget, this is a COBOL forum: another passion of mine.![[blush]](/data/assets/smilies/blush.gif "[blush] [blush]")
Dimandja
I suspected IBM had to have something like what I described. I mean, if you are going to write on-line applications, for example, JCL will surely mostly get in the way.
I have used IBM JCL from time to time, but my IBM passion is the first programming language I formally studied: Assembler. The sheer elegance of the language. Haven't seen anything like it since. But I forget, this is a COBOL forum: another passion of mine.
Dimandja
Hi D,
IBM's most popular on-line environment is CICS, with IMS/DC a distant 2nd, and JCL doesn't play much of a role there for the Application Pgmr. Files are allocated at CICS startup (usually at start of day or after restart) and generally, the pgmrs only choice is to use it or not use it.
CICS on-line pgms can be written in most of the IBM supported languages, including COBOL and BAL, but specialized I/O commands are used to access data.
Regards, Jack.
IBM's most popular on-line environment is CICS, with IMS/DC a distant 2nd, and JCL doesn't play much of a role there for the Application Pgmr. Files are allocated at CICS startup (usually at start of day or after restart) and generally, the pgmrs only choice is to use it or not use it.
CICS on-line pgms can be written in most of the IBM supported languages, including COBOL and BAL, but specialized I/O commands are used to access data.
Regards, Jack.
- Status
Similar threads
- Locked
- Question