Re: Slip trap for cross memory mode
Peter, Good spot. We are on z/OS 1.13 and do not have PTF UA64306 applied. Thanks. Ron. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Running clist ending with PROC - Invalid expression
*were , thank you . On Mon, Oct 15, 2012 at 11:23 AM, Matan Cohen matancohen...@gmail.comwrote: you all was right ... I moved the Dataset to the SYSPROC. On Wed, Oct 3, 2012 at 4:01 PM, Paul Gilmartin paulgboul...@aim.comwrote: On Wed, 3 Oct 2012 13:58:44 +0200, Hunkeler Peter (KIUP 4) wrote: ... If you invoke a script by EX SOMTEHING(SCRIPT), then TSO will complete the DSN by prefixing it with your TSO PROFILE PREFIX(...) value and will suffix it with CLIST. This is not done by ISPF and you seem to have coded the CMD... line in a panel's PROC section. DSN prefixing should be performed (if at all; opinions vary) by DFSMS, not by individual interfaces such as TSO, C RTL, FTP, ... so it would be uniform for all DSN accesses, batch, TSO, UNIX (USS), etc. IBM habitually adds function to the wrong layer. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- __ best regards, matan cohen MF System Administrator. -- __ best regards, matan cohen MF System Administrator. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Sample course materials
On 10/14/2012 10:46 PM, Ravi Kumar.C.Gowda wrote: Hi Steve.. Dont you have course materials for zOS systems stuff such as Rexx programming.. Sysplex.. IPCS and things like that.. Appreciate ur response if u have any of these. Thanks Sorry. We focus on applications programmers. Some of our courses are useful for systems staff, but we don't have any courses for systems staff explicitly. On Oct 15, 2012 4:38 AM, Graham Hobbs gho...@cdpwise.net wrote: .. was me:-) - Original Message - From: Steve Comstock st...@trainersfriend.com Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@LISTSERV.UA.EDU Sent: Sunday, October 14, 2012 5:53 PM Subject: Re: Sample course materials On 10/14/2012 3:32 PM, Graham Hobbs wrote: Unless I've missed something 'The first 80 pages of the lecture file' downloads in its entirelty but there's no rightmost scroll bar, all I can see is the title page. Rest are OK. .. is me?? Graham Hobbs I don't understand your question. So, the file (SampleLectureFile.pdf) downloads in it's entirelty; good; but there's no rightmost scroll bar what does that mean? Have you opened the file in Acrobat reader? It should place you in full screen browse mode. PageUp and PageDown move you through the file. 'Esc' gets you out of full screen mode, Ctrl-L gets you back in. I never see a scroll bar. I don't expect to see a scroll bar. All this is explained on page 3 of the A brief look at our approach to teaching (HowToTeachOurCourses.pdf). Does that answer your question? - Original Message - From: Steve Comstock st...@trainersfriend.com Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@LISTSERV.UA.EDU Sent: Sunday, October 14, 2012 8:55 AM Subject: Sample course materials Some people looking at our sale of training kits have asked about having a sample of our course materials. I thought it was a good idea so I've built a small sample from an existing course. See if this is of value to you: http://www.trainersfriend.com/**SpecialSale/sampleCourse.htmlhttp://www.trainersfriend.com/SpecialSale/sampleCourse.html The sample includes * Extract from the lecture file * Extract from the student handout print master * Extract from the instructor notes * Extract from the setup instructions for the lab files, and you can actually install the labs for the sample course (the sample is drawn from our course Developing Dialog Manager Applications in z/OS) Please remember, our sale ends 19 October. -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * Check out our sale of training materials at http://www.trainersfriend.com/**SpecialSale/http://www.trainersfriend.com/SpecialSale/ (sale absolutely ends 19 October, 2012) * Let us know if you are interested in our training materials reseller program --**--** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN --**--** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * Check out our sale of training materials at http://www.trainersfriend.com/**SpecialSale/http://www.trainersfriend.com/SpecialSale/ (sale absolutely ends 19 October, 2012) * Let us know if you are interested in our training materials reseller program --**--** -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN --**--**-- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- Kind regards, -Steve Comstock The Trainer's Friend, Inc. 303-355-2752 http://www.trainersfriend.com * Check out our sale of training materials at http://www.trainersfriend.com/SpecialSale/ (sale absolutely ends 19 October, 2012) * Let us know if you are interested in our training materials reseller program -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Convert data tape to ASCII format
Hello, I need to copy data from STK/9840 tape media (text sequential dsns) to disk on Ascii format. To send them to AIX. What is the best way of doing it ?? Env is z/os 1.12 1) recall dsns (they are hsm migrated) 2) running ditto to convert those dsns to ascii format 3) send those ascii files to AIX machine ?? Any hint is welcome, A.CEcilio -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert data tape to ASCII format
Found a something from Google using dd, http://www.akadia.com/services/unix_tools.html#Converting%20between%20ASCII%20and%20EBCDIC Date: Mon, 15 Oct 2012 16:34:24 +0100 From: acbi...@gmail.com Subject: Convert data tape to ASCII format To: IBM-MAIN@LISTSERV.UA.EDU Hello, I need to copy data from STK/9840 tape media (text sequential dsns) to disk on Ascii format. To send them to AIX. What is the best way of doing it ?? Env is z/os 1.12 1) recall dsns (they are hsm migrated) 2) running ditto to convert those dsns to ascii format 3) send those ascii files to AIX machine ?? Any hint is welcome, A.CEcilio -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert data tape to ASCII format
Forgot to mention, you really need to be sure that the data on z/OS is textual. That basically means that it could be successfully printed out on a normal printer. It cannot contain binary information. Why? Because if you do an EBCDIC to ASCII translate on the binary data, the result is just plain unusable. There are ways to translate the EBCDIC textual data to ASCII textual data on z/OS. But I don't see why anybody would really want to do this (excepting maybe Gil grin). I'm sure Gil may reply as well. He does a lot of z/OS and Solaris stuff. And, like AIX, Solar is ASCII based. He might even explain how to use NFS to do the transport between z/OS and AIX. I seem to have a mental block on doing NFS. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of McKown, John Sent: Monday, October 15, 2012 10:50 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Convert data tape to ASCII format What is the transport mechanism to the AIX box? FTP will read z/OS textual data in EBCDIC and can translate it to ASCII on the fly as it is sent to the AIX box. I do this all the time sending from z/OS 1.12 to an ASCII Linux system. sftp (transport via encrypted SSH) can also do EBCDIC to ASCII translation. Since they are HSM migrated, you are stuck with doing an HSM recall. Now, the ftp process can do that as well. Although, thinking about it, I would first do the HSM recall to disk, then do the ftp; otherwise the ftp could possibly time out if HSM took too long to do the recall. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of af dc Sent: Monday, October 15, 2012 10:34 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Convert data tape to ASCII format Hello, I need to copy data from STK/9840 tape media (text sequential dsns) to disk on Ascii format. To send them to AIX. What is the best way of doing it ?? Env is z/os 1.12 1) recall dsns (they are hsm migrated) 2) running ditto to convert those dsns to ascii format 3) send those ascii files to AIX machine ?? Any hint is welcome, A.CEcilio -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert data tape to ASCII format
Hi John, yes, all data are text based, reports, listings. This 2 step approach will be the best one, due to the recall time. Many thx,A,Cecilio On Mon, Oct 15, 2012 at 4:56 PM, McKown, John john.mck...@healthmarkets.com wrote: Forgot to mention, you really need to be sure that the data on z/OS is textual. That basically means that it could be successfully printed out on a normal printer. It cannot contain binary information. Why? Because if you do an EBCDIC to ASCII translate on the binary data, the result is just plain unusable. There are ways to translate the EBCDIC textual data to ASCII textual data on z/OS. But I don't see why anybody would really want to do this (excepting maybe Gil grin). I'm sure Gil may reply as well. He does a lot of z/OS and Solaris stuff. And, like AIX, Solar is ASCII based. He might even explain how to use NFS to do the transport between z/OS and AIX. I seem to have a mental block on doing NFS. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of McKown, John Sent: Monday, October 15, 2012 10:50 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Convert data tape to ASCII format What is the transport mechanism to the AIX box? FTP will read z/OS textual data in EBCDIC and can translate it to ASCII on the fly as it is sent to the AIX box. I do this all the time sending from z/OS 1.12 to an ASCII Linux system. sftp (transport via encrypted SSH) can also do EBCDIC to ASCII translation. Since they are HSM migrated, you are stuck with doing an HSM recall. Now, the ftp process can do that as well. Although, thinking about it, I would first do the HSM recall to disk, then do the ftp; otherwise the ftp could possibly time out if HSM took too long to do the recall. -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of af dc Sent: Monday, October 15, 2012 10:34 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Convert data tape to ASCII format Hello, I need to copy data from STK/9840 tape media (text sequential dsns) to disk on Ascii format. To send them to AIX. What is the best way of doing it ?? Env is z/os 1.12 1) recall dsns (they are hsm migrated) 2) running ditto to convert those dsns to ascii format 3) send those ascii files to AIX machine ?? Any hint is welcome, A.CEcilio -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert data tape to ASCII format
Cecilio, You can use DFSORT's new translation function ETOA which translates characters from EBCDIC to ASCII using the default standard TCP/IP service EBCDIC-to-ASCII translation table. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DISP=SHR,DSN=Your Input Tape DSN //SORTOUT DD DSN=Your output ASCII dataset, //DISP=(NEW,CATLG,DELETE), //UNIT=SYSDA, //SPACE=(CYL,(X,Y),RLSE) //SYSINDD * OPTION COPY INREC BUILD=(1,80,TRAN=ETOA) //* The input records will be copied with the characters in positions 1-80 translated from EBCDIC to ASCII using the default standard TCP/IP service ASCII-to-EBCDIC table. If your input is VB , then change the INREC statement to the following INREC BUILD=(1,4,5,TRAN=ETOA) Sri Hari Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu wrote on 10/15/2012 08:34:24 AM: From: af dc acbi...@gmail.com To: IBM-MAIN@listserv.ua.edu, Date: 10/15/2012 08:42 AM Subject: Convert data tape to ASCII format Sent by: IBM Mainframe Discussion List IBM-MAIN@listserv.ua.edu Hello, I need to copy data from STK/9840 tape media (text sequential dsns) to disk on Ascii format. To send them to AIX. What is the best way of doing it ?? Env is z/os 1.12 1) recall dsns (they are hsm migrated) 2) running ditto to convert those dsns to ascii format 3) send those ascii files to AIX machine ?? Any hint is welcome, A.CEcilio -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert data tape to ASCII format
On Mon, 15 Oct 2012 16:34:24 +0100, af dc wrote: Hello, I need to copy data from STK/9840 tape media (text sequential dsns) to disk on Ascii format. To send them to AIX. What is the best way of doing it ?? Env is z/os 1.12 1) recall dsns (they are hsm migrated) 2) running ditto to convert those dsns to ascii format Does DITTO use the dreaded IGC0010C translate table? If so, avoid it. 3) send those ascii files to AIX machine I'll second John's FTP suggestion. Easy PoC: ftp AIX user password cd 'SYS1.MACLIB' ascii put SPLEVEL quit Log in to AIX and see what got there. You have some control of code page conversion with QUOTE SITE/LOCSITE sbdataconn(...,...) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert data tape to ASCII format
On Mon, 15 Oct 2012 09:34:17 -0700, Ulrich Krueger wrote: If it's important for you to keep these reports in a format that allows proper viewing of each page and also proper printing, I recommend you convert each dataset into a PDF-file (and then FTP the PDF file in binary format to the destination system). There's a free program available, TXT2PDF: http://cmtk3.webring.org/l/rd?ring=dinos;id=30;url=http%3A%2F%2Fwww%2Elbdsof tware%2Ecom%2Fxmitip%2Ehtml Optionally, you can create each report on a simulated green-bar paper. Look in the options for TXT2PDF. Sounds almost like overkill. And once the data are converted to PDF, it becomes difficult to extract them for further processing. Is there a TXT2TXT utility that will convert FORTRAN-style carriage motion codes to the standard USASCII equivalents such as FF, VT, ...? And thinking about it, does ISPF BROWSE/VIEW support scrolling by the page markers in the data, perhaps with Page Up/Page Down keys? (Yah, I know, You could write a macro to do that.) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: NY Metro NaSPA Chapter Meeting: Tuesday, 30 October 2012
On 10/14/2012 9:29 PM, Mark Nelson wrote: The next meeting of the NY Metro NaSPA Chapter will be on Tuesday, 30 October, 2012, in room 1219 at the IBM Building at 590 Madison Avenue, New York City, from 10:00 AM until 4:30 PM. We are following the same registration process as we followed for our March 2012 meeting. Please see below for the details. Sessions for the day include: What System z can do that Intel based Systems can’t, David Rhoderick, Manager of the IBM Software Group System z Competitive Project Office The What and Why of System z Millicode, Bob Rogers, Distinguished Engineer, IBM Wow! Talk about distinguished guests! It's not often I wished I lived in the New York City area... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Convert data tape to ASCII format
On Mon, 15 Oct 2012 16:24:07 -0500, Mike Schwab wrote: SDSF requires the string first, so Set PF19=F '1' 1 prev Set PF20=F '1' 1 next Probably works better in SDSF than native ISPF because SDSF always positions the search target at line 1 (usually I find this behavior annoying, but I suppose I could use SE instead) while Browse/View is likely just to move the cursor. And, in SDSF, I sometimes need to issue Repeat Find twice to get it to reposition at all. And thinking about it, does ISPF BROWSE/VIEW support scrolling by the page markers in the data, perhaps with Page Up/Page Down keys? (Yah, I know, You could write a macro to do that.) -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: NY Metro NaSPA Chapter Meeting: Tuesday, 30 October 2012
On 15 October 2012 17:29, Edward Jaffe edja...@phoenixsoftware.com wrote: On 10/14/2012 9:29 PM, Mark Nelson wrote: The next meeting of the NY Metro NaSPA Chapter will be on Tuesday, 30 October, 2012, in room 1219 at the IBM Building at 590 Madison Avenue, New York City, from 10:00 AM until 4:30 PM. We are following the same registration process as we followed for our March 2012 meeting. Please see below for the details. Sessions for the day include: What System z can do that Intel based Systems can’t, David Rhoderick, Manager of the IBM Software Group System z Competitive Project Office The What and Why of System z Millicode, Bob Rogers, Distinguished Engineer, IBM Wow! Talk about distinguished guests! It's not often I wished I lived in the New York City area... D'you think they get the helicopter, or is it Metro North all the way...? Tony H. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: NY Metro NaSPA Chapter Meeting: Tuesday, 30 October 2012
Maybe they could look into streaming these meetings on the web? I, too, was wishing that I lived close enough to attend. /jack - Original Message - From: Edward Jaffe edja...@phoenixsoftware.com Newsgroups: bit.listserv.ibm-main To: IBM-MAIN@LISTSERV.UA.EDU Sent: Monday, October 15, 2012 5:29 PM Subject: Re: NY Metro NaSPA Chapter Meeting: Tuesday, 30 October 2012 On 10/14/2012 9:29 PM, Mark Nelson wrote: The next meeting of the NY Metro NaSPA Chapter will be on Tuesday, 30 October, 2012, in room 1219 at the IBM Building at 590 Madison Avenue, New York City, from 10:00 AM until 4:30 PM. We are following the same registration process as we followed for our March 2012 meeting. Please see below for the details. Sessions for the day include: What System z can do that Intel based Systems can’t, David Rhoderick, Manager of the IBM Software Group System z Competitive Project Office The What and Why of System z Millicode, Bob Rogers, Distinguished Engineer, IBM Wow! Talk about distinguished guests! It's not often I wished I lived in the New York City area... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: COBOL Compiler Question
Great information Frank. Excellent, thanks.
On Sat, Oct 13, 2012 at 11:11 AM, Frank Swarbrick
frank.swarbr...@yahoo.com wrote:
What is CTRCOBMOD?
If you do a COBOL static call, or even a COBOL dynamic call, you are for the
most part not using CICS services to invoke your routine. For static I don't
think CICS knows or cares at all. For a dynamic call I think a CICS service
is invoked by the COBOL/LE runtime to load the module, but from there its
basically COBOL.
If you have no CICS commands inside the called module you don't have to do
anything special with the called module. You compile it just as a batch
COBOL program. (You still don't want to use things that directly invoke MVS
services, though, such as COBOL I/O, etc.)
If you have CICS commands you have a couple options. Others will probably
tell you about the way that I do not prefer. What I prefer is the following:
Place the following at the top of the called modules source code:
PROCESS CICS('NOLINKAGE')
(This assumes you're using the COBOL/CICS integrated preprocessor; if you
still use the CICS translator then specify the NOLINKAGE translator option in
the appropriate manner.)
By doing this, the CICS translator/preprocessor will not add the implicit
DFHEIBLK and DFHCOMMAREA fields to the COBOL LINKAGE SECTION and PROCEDURE
DIVISION USING. This allows you to do a COBOL CALL to the routine just like
you would in a batch program, i.e.:
CALL 'MYSUBR' USING PARM-1, PARM-2, PARM-3.
In your example below you could just do:
CALL 'PROGRAM1' USING WS-COMMAREA
Your called routine, if executing a CICS command, still needs to have the
DFHEIBLK area; you just have to add it explicitly. Add the following to your
LINKAGE SECTION:
COPY DFHEIBLC.
Then add the following to the beginning of your PROCEDURE DIVISION:
exec cics address
eib (address of dfheiblk)
end-exec
You now have DFHEIBLK addressability without requiring it to be passed as a
parameter from your calling program.
For the most part your called program can stay the same. You must eliminate
any EXEC CICS RETURN statements, though, and replace them with a COBOL
GOBACK. If you do EXEC CICS RETURN it behaves as if the calling program
executed it, and most likely will not be what you want (which is to go back
to the caller, not to return to CICS). This is because to CICS your calling
program and your called program ARE THE SAME PROGRAM. With EXEC CICS LINK
you go up a level, and a RETURN goes back down. With COBOL CALL you do not
go up a level, so if you do RETURN you still go back a level, which is
probably back to CICS (unless your caller was LINKed to...)
Anyway, once you get a few things straight there's not much to it.
I'm sure that a static call gives the best performance.
I believe a dynamic call is still better than a LINK because when you do a
LINK you enter and initialize a new LE enclave each time.
Which brings up another caveat. If you do a CALL to the same program from
the same program multiple times within a task it behaves exactly as how this
behaves in batch. That is, your WORKING STORAGE section is initialized only
upon the first call. This is different than CICS LINK where you get fresh
working-storage each time. This can actually be quite an advantage, but you
have to make sure that your program that your currently LINKing to doesn't
depend on it. If it does, there are a couple of things you can do:
- Use the AS INITIAL clause of the COBOL PROGRAM-ID statement.
- Do a COBOL CANCEL after each COBOL CALL (I don't recommend this, and I
don't think it even works if you do a static call).
- Place any variables that you need initialized each time your program is
called in LOCAL-STORAGE SECTION rather than WORKING-STORAGE SECTION. (You
could just put all of your variables in LOCAL STORAGE, but I imagine this
would have unwanted overhead.)
- Leave everything in WORKING-STORAGE and add PROCEDURE DIVISION statements
to explicitly initialize any fields that require it.
I would guess that options 3 (LOCAL STORAGE) or 4 (explicit initialization)
would give you the best performance.
Have I forgotten anything? Possibly.
Have fun!
Frank
From: John Weber j...@fiteq.com
To: IBM-MAIN@LISTSERV.UA.EDU
Sent: Friday, October 12, 2012 5:21 PM
Subject: COBOL Compiler Question
We have a COBOL CICS module being called using the LINK command.
Here is the interface call:
EXEC CICS
LINK PROGRAM('PROGRAM1')
RESP(WS-RESP)
COMMAREA(WS-COMMAREA)
END-EXEC
However, it has been brought up that creating a bound module instead of
using LINK can speed up response time.
Is this binding compiler in question CTRCOBMOD? If so, is this worth
pursuing?
Thanks a lot...
John
--
For IBM-MAIN subscribe /
Re: NY Metro NaSPA Chapter Meeting: Tuesday, 30 October 2012
I am surprised Rogers has survived (actually good for him) After they fiasco at the system center picnic I though he would have ended up in podunk iowa selling card punches. Ed On Oct 15, 2012, at 4:29 PM, Edward Jaffe wrote: On 10/14/2012 9:29 PM, Mark Nelson wrote: The next meeting of the NY Metro NaSPA Chapter will be on Tuesday, 30 October, 2012, in room 1219 at the IBM Building at 590 Madison Avenue, New York City, from 10:00 AM until 4:30 PM. We are following the same registration process as we followed for our March 2012 meeting. Please see below for the details. Sessions for the day include: What System z can do that Intel based Systems can’t, David Rhoderick, Manager of the IBM Software Group System z Competitive Project Office The What and Why of System z Millicode, Bob Rogers, Distinguished Engineer, IBM Wow! Talk about distinguished guests! It's not often I wished I lived in the New York City area... -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
