IBM Mainframe Forum

Hi Friends,

Can anyone provide me a jcl to perform PACK OFF for all the members in PDS...

Now iam doing it manually which is bit tedious...

I dont want to use 3.13 and copy to another member.....

ram23bal, let's pretend that I don't know anything about PACK ON or PACK OFF. How would you describe the steps to me that need to be done to meet your desired goal?

Hi Spock

PACK OFF is one of the profile type of a JCL(PROC, CONTROL CARD, EASY TRIEVE.....)

Following are the profile types-- open any member and enter PROF in command line

....RES (FIXED - 80)....RECOVERY ON....NUMBER OFF.......................
....CAPS ON....HEX OFF....NULLS ON STD....TABS OFF......................
....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON..............
....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
....HILITE JCL CURSOR FIND..............................................


My requirement is to set PACK ON to PACK OFF or vice versa for all members in a PDS.....

Is it possible...?

Any one there to help me out to turn out a huge manual work....?

OK, more to the point. According to the z/OS V1R9.0 ISPF Edit and Edit Macros manual:

1.1.5.2 Packing data

Data can be saved in either packed or standard format. You can control the format by using the PACK primary command to change the edit profile. The editor reads the data in and you can edit it the way you normally would. When you end the editing session, the data is packed and stored. See "PACK--Compress Data" in topic 3.2.37 and "PACK--Set or Query Pack Mode" in topic 3.3.63 for more information.

There are two disadvantages:

- The space saving is at the expense of additional processing when the data is read or written.

- The data cannot be directly accessed by programs. You must access the data through PDF dialogs and library access services. You would not, for example, pack an executable such as a CLIST or REXX exec.

Use ISPF option 3.3 to copy the members to a new PDS and specify the ON/OFF option for the new PDS on the panel.