Mainframe, MVS and zOS Discussion

8. CICS Dump Analysis -
If you don't have a dump analysis tool like Dump Master at your shop and you like to find out the instruction where the program failed, here's a CICS transaction dump cookbook, which lays down steps on how to find the COBOL statement, WS- or LS-Variable state from the dump ...

I don't want to hijack the topic. But, what is ABSTR.

While it may seem common-sense, I found a few old programs at my shop that actually use programmatic joins.

MINE is a small REXX tool, I wrote at my shop, that generates a list of caller/called routines from a COBOL paragraph. With MINE, you can directly jump to any paragraph PERFORM <1111-PARA-1>. You can dive any number of levels deep <1111-PARA-1>, <2222-PARA-2>, <3333-PARA-3>, ..., <mmmm-PARA-m>and ...

Here's an interesting link about how "SPOOL" programs, HASP and JES2 were born.
http://www.redbug.org/dba/sharerpt/share79/o441.html

9.In addition to the above tip, I'd like to post an interesting link about how "SPOOL" programs, HASP and JES2 were born.
http://www.redbug.org/dba/sharerpt/share79/o441.html

Do you need me to put the follow-on note there?

Anuj,

Let's say, one had to produce a report of Employees(EMPLOYEE_ID, FIRST_NAME, LAST_NAME) earning more than 5k and their respective JOB_HISTORY(EMPLOYEE_ID,JOB_ID, JOB_NAME). One algorithm might be, for each candidate row of Employee, (i) Retrieve the set of job-histories (ii) Loop through the ...

18. Common Table Expressions and WITH Clause

Very often, you might have used in-line SELECT's in SQL Queries(look at Query X and Query Y).

SELECT X.col1,X.col2,Y.col1,Y.col2
FROM
(SELECT a,b,c
FROM tbl1
) AS X,
(SELECT d,e,f
FROM tbl2
) AS Y

With common table expressions allow you can re ...

Sure thing!

Hi all,

I just happened to know, Accenture Mumbai has open positions through referral.

Quasar C.

17. An SQL join on most occasions out-performs a programmatic join . Programmatic joins are bad and should be avoided at all times.

Programmatic join

----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
EXEC SQL
OPEN C1
END-EXEC

PERFORM UNTIL END-OF-C1
EXEC SQL
FETCH ...

16. Use Multi-row fetch : A multi-row fetch retrieves multiple rows into a host-variable array in your application program.


EXEC SQL
DECLARE CURSOR C1 WITH ROWSET POSITIONING FOR
SELECT FIRST_NAME,LAST_NAME
FROM DSN8910.EMP
END-EXEC


Multi-row fetch is good technique - it can even be used ...

13. As a follow-on tip to the above, I worked at a shop, where all COBOL batch modules had this standard -


5500-GET-TRADES.
MOVE '5500-GET-TRADES' TO WS-PARA-NAME
PERFORM 9000-DEBUG THRU 9000-EXIT
...
para-body
...
5500-EXIT. EXIT.

9000-DEBUG.
IF LS-DEBUG-SW = 'Y'
DISPLAY WS-PARA-NAME ...

7. Online Job Submissions
Sometimes an online application may need to trigger and run a batch job for processing a large workload, asynchronously. EXEC CICS SPOOLOPEN and EXEC CICS SPOOLWRITE allow you to write information to a SYSOUT dataset. If you write JCL statements to a SYSOUT dataset using ...

32. MOVE/COPY a line to multiple destinations (zOS 1.10 and above)
When you would like to MOVE/COPY a source line to multiple destination lines, you can suffix K to the A,B,O and OO commands. For example, to copy (CC) a block of COBOL code to multiple target destinations, you'd type AK, AK, AK ...

Yes indeed! Cool.

There is no such thing as better option. As Dick says, you should follow your shop standards.

Say if you have a COBOL Date-validation module that gets called from a million other modules, you'd use a dynamic call. If the date-validation module in turn calls some Assembler routine, it can be ...

Read a couple of columns on the Internet. My notion of any FOREGROUND program/application was, it's got to always stay in main storage. It doesn't have to!

A TSO user address space can be logically swapped out during the "think-time". And even physically swapped after that.

I was just doing some general reading on the Internet about the evolution of the z/OS dispatcher, SRM(now WLM) amongst other things. What I gather is, in the old MVS/370, there were just two CPUs. As one TCB or SRB would access resources this would put the whole system in a WAIT mode. The dispatcher ...