What I'm Thinking

The steps to copy a file using File-Aid are : Go to TSO/ISPF Open fileaid giving command as per your shop’s configuration Once FileAid’s Primary Option Menu is opened Choose Utilities Choose Copy Give source PDS/dataset name (in FROM ) you might need to provide volume serial number if it is not cataloged. Give destination PDS/dataset name (in TO) you might need to provide volume serial number if it is not cataloged. ... Read More
Here is the way to find the last 10 datasets that you have accessed. GO TO ISPF 3.4 option. On the top, there is a MENUBAR. Select REFLIST Select Option 1 in it. Using this option you can find out the last 30 datasets that you have accessed.
When a Job abends at a program due to bind error with SQL code of -805 or -818 then generally there is issue with consistency token (often referred as CONTOKEN). These kind of abends can be easily fixed if we can find where the CONTOKEN mismatch occurs. STEP1:- CONTOKEN in Package RUN the following query: SELECT NAME, CONTOKEN, COLLID, PDSNAME FROM SYSIBM.SYSPACKAGE WHERE NAME=‘MODULE’ AND COLLID=‘COLLID’ Provide the name of the module in “NAME” and Collection name in “COLLID”. ... Read More
You need to know what date is 150 days from today (and this kind of stuff happens more often than you’d think)? Convert today to an integer date, add 150 to it and convert it back. No more checking which months you’re going through to see if it’s a 30 day or 31 day month. No more leap year calculations. Some sample COBOL Date Example: 01 WS-TODAY PIC 9(8).01 WS-FUTURE-DATE PIC 9(8). ... Read More

Filtering Jobs in Spool
18 January 2012

There is a possibility to list only the jobs which has ABENDED, leaving out all other jobs in the spool. For such a kind of listing, use the primary command FILTER on the command line as given in the examples below. FIL MAX AB* - shows jobs that has ABENDS Other Examples are: Shows jobs that has JCL errors: FIL MAX ‘JCL ERROR’ Shows jobs with “exceptional conditions”: ... Read More