Sign In

Dz Challenge: Tips and Techniques Got a great tip or technique to share?
z & A > Dz Challenge: Tips and Techniques > Take the Dz Tips and Techniques CHALLENGE! View modes: 
User avatar
Guest
Harry Yudenfriend - 3/30/2012 2:07:07 PM
   
RE:Take the Dz Tips and Techniques CHALLENGE!
The new List Prefetch Optimizer feature of zHPF and DS8000 may reduce the need for database re-org.

User avatar
Advanced member
Advanced member
tcosenza@us.ibm.com - 3/13/2012 2:15:20 PM
   
RE:Take the Dz Tips and Techniques CHALLENGE!
One trick that a lot of people do not know about is in the sdsf log:

On the command line if you run out of room you can add a + and hit enter. This will bring you to the extend command panel that allows three times more charcters for a command

User avatar
Guest
Kayalvizhi - 3/14/2012 12:07:54 AM
   
RE:Take the Dz Tips and Techniques CHALLENGE!
Tip1 : Simple way to provide access to other userids.
To give READ/UPDATE access of a PDS to different userid.
a) List down the PS or PDS for which we need to provide access using 3.4
b) In the left side of PS or PDS give AD command. It should return 0 RC.
c) Then give the below command with required access READ/UPDATE adn Userid. Need to give this command in left side of PS/PDS. You can overwrite the PS/PDS name while giving the command.
PE / ACCESS(UPDATE) ID(FRCTMD6)


Tip2 :
To search for particular member name in list of PDS:
a) Go to 3.4 and list down all the PDS with wildcard in which we want to search for a member
b) Give command, MEMBER member-name
This will highlight all the PDS in which the member exists.

User avatar
Member
Member
k0da - 3/16/2012 11:02:47 AM
   
RE:Take the Dz Tips and Techniques CHALLENGE!
Reduce Linux deployment time, build s390 SLES appliances with open-source tool KIWI.

User avatar
Member
Member
philip.yeo@gmail.com - 3/19/2012 12:51:30 PM
   
RE:Take the Dz Tips and Techniques CHALLENGE!
If you're coding in COBOL with Rational Developer for System z (RDz), many a times you'll find that as the code grows bigger, it gets harder to navigate through the multiple "perform" flows and hierarchy of your code. To help ease the pain, you can use the "Perform Hierarchy" feature.

1) Within RDz, ensure you are in the z/OS perspective.
2) Go Windows->Show View->Others and filter for the "Perform Hierarchy" view and select it.
3) With your cobol code opened in editor mode, head to the procedure division and set your cursor to any paragraph labels.
3) Right click from where your cursor is and select "Open Perform Hierarchy" in the context menu. You will see your "perform hierarchy" view populated with the perform forward flow information.
4) You can then click on any of the perform statements in the view to navigate directly to that area of your code without having to scroll down to it.

This solution increase the time taken to navigate ones code and increases productivity of a Cobol developer

User avatar
Member
Member
jan - 3/19/2012 1:22:37 PM
   
RE:Take the Dz Tips and Techniques CHALLENGE!
Do not develop new ISPF applications anymore. Launch a webserver on z/OS and write your application with REXX as CGI. The Rexx 'say' statement generates input for the browser. This way you can also for example put your help information available as a HTML link to a pdf file in the USS filesystem.

User avatar
Member
Member
jan - 3/19/2012 1:26:15 PM
   
RE:Take the Dz Tips and Techniques CHALLENGE!
When using REX as CGI language, there is an easy way to have all the environment variables defined in your REXX coding.

/*--------------------------------------------------------------------
GetEnv defines all the CGI environment variables to rexx variables.
--------------------------------------------------------------------*/
GetEnv:

/*
do i = 1 to __environment.0
parse var __environment.i p '=' v
interpret p "=" "'"v"'"
end
*/

User avatar
Member
Member
k0da - 3/19/2012 2:36:20 PM
   
RE:Take the Dz Tips and Techniques CHALLENGE!
use zPXE (part of Cobbler and s390-tools) to start installations over the network!

https://github.com/cobbler/cobbler/wiki/S390%20Support

User avatar
Member
Member
Shibu Thannikkunnath - 3/22/2012 4:34:04 PM
   
RE:Take the Dz Tips and Techniques CHALLENGE!
Hi All,
I'm Shibu, from India. I'm a mainframe hobbiyist and author of mainframegeek.wordpress.com blog. My tips will also be available in my blog.

My tip is about handling "GDG Generation Not Found JCL Error” in JCL itself.

If a generation is not found jcl will fail with a JCL Error, usually this is handled by creating GDG generation or using DD DUMMY, this is a manual time consuming process.
The method I used here is,
Using IDCAMS issue LISTCAT LVL to list all the generations for the GDG and the move the sysem output to an input file, then use SORT utility to Check the resultant file for the .G and V00 characters on the file. If no GDG generations found set Return code of the step to 4 (it can be anything). Then using IEFBR14 and COND parameter to create GDG versions if the CONDCODE matches 4 (“COND=(4,NE)”)


Here is the fully functional JCL

//R0318BMJ JOB ‘GDG VER FINDER’,NOTIFY=R0318B
//IDCAMS EXEC PGM=IDCAMS
//SYSPRINT DD DSN=&&TEMP,DISP=(,PASS)
//SYSIN DD *
LISTCAT LVL(‘TSHRCI.PATMAN.REPORT.GROUP’) ALL
/*
//*
//GETPOS EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&&TEMP,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION NULLOUT=RC4,VLSCMP
SORT FIELDS=COPY
INCLUDE COND=(48,2,CH,EQ,C’.G’,AND,54,3,CH,EQ,C’V00′)
/*
//MODEL EXEC PGM=IEFBR14,COND=(4,NE,GETPOS)
//GDGMODEL DD DSN=TSHRCI.PATMAN.REPORT.GROUP(+1),
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(1,1),RLSE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=800,DSORG=PS)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY



INCLUDE COND=(48,2,CH,EQ,C’.G’,AND,54,3,CH,EQ,C’V00′)

Once you executed IDCAMS step the messages from LISTCAT will be moved to &&TEMP dataset, then using the above CONDITION statement SORT utility will check for .G and V00 characters on the TEMPDATASET, if found SORT will skip the step else if set RETURN CODE 4.

The TEMP Dataset is FBA, so you need to add 4 bytes to the actual position of the characters on TEMP dataset. 44 and 50 are the Character positions of .G & V00 on my TEMPDATASET, after adding 4 it will become 48 and 54. To find the positions of your characters replace TEMP with a dataset on your system then, check the file. “Don’t forget to add 4 bytes”

//MODEL EXEC PGM=IEFBR14,COND=(4,NE,GETPOS)

This will execute only if the GETPOS step returned a return code of 4.

-Shibu Thannikkunnath-
mainframegeek.wordpress.com

User avatar
Member
Member
Shibu Thannikkunnath - 3/23/2012 2:42:32 AM
   
RE:Take the Dz Tips and Techniques CHALLENGE!

Have you ever felt bored by using the old screen swapping methods in mainframe(Swap n/n+F9/SWAP)? or have you ever wonder why IBM cannot make something similar to multi-tabs in your favorite web-browser? well the answer is yes we do have something similar to that.

When IBM released z/OS 1.10 back in 2009, they introduced a new ISPF keyword called “SWAPBAR”, which will display all the active logical session names at bottom of the screen, these session names will be POINT-AND- SHOOT enabled; so that you can simply point your cursor to the session name which you want to pull up and then press the Enter key. Entry for your current session will have an asterisk ( * ) at the first character’s position. If the list is bigger than the width of your 3270 screen then a “>” or “<” will be displayed, you can then scroll through the list by pointing your cursor on “<” or “>” and hit Enter or hit F10/F11.

You can turn SWAPBAR off by entering “SWAPBAR OFF”.

-Shibu Thannikkunnath-

1 2 3 4