Technical question section

• OS/390 R6:
  • Source: CPAC.SAMPLIB(SMFACTRT)
  • Executable: CPAC.LINKLIB(IEFACTRT)
  • LPA PARMLIB: CPAC.PARMLIB(IEALPA00) - used to replace the IBM "BR14" SYS1.LPALIB(IEFACTRT).
  • SMF PARMLIB: CPAC.PARMLIB(SMFPRM00)
    
    Note: The CPAC.** datasets at your shop may not be catalogued but they are usually found on the primary SYSRES. They may be named "SYS1.CPAC.** at your shop.
    
    
• OS/390 R7 and higher:
  • Source: SYS1.SAMPLIB(IEEACTRT)
  • Executable: Assemble SYS1.SAMPLIB(IEFACTRT) into the LNKLST library of your choosing as member name IEFACTRT
  • LPA PARMLIB: No longer supplied by IBM. Kalinich, John contributed this example:
    
    

    VIEW       SYS1.PARMLIB(IEALPA00) - 01.00
    Command ===>
    ****** ***************************** Top of Data *
    000001 INCLUDE LIBRARY(SYS1.CPAC.LINKLIB) MODULES(
    000002              IEFACTRT
    000003              )
    

  • SMF PARMLIB: No longer supplied by IBM in CPAC.PARMLIB (on the R7 R/390 I have access to). Here's a sample SYS1.PARMLIB(SMFPRMxx) member that I used on a developer's R/390 to drive the ACTRT exit (you need to write SMF30 records). This is NOT a good parmlib member for a production machine! You need to write other records than SMF30:

    ACTIVE
                                 /* SMF DATA SETS      */
    DSNAME(SYS1.MAN1)
    NOPROMPT                     /* DO NOT PROMPT OPERATOR FOR OPTIONS
    REC(PERM)                    /* TYPE 17 PERM RECORDS ONLY */
    MAXDORM(3000)                /* WRITE AN IDLE BUFFER AFTER 30 MIN *
    STATUS(010000)               /* WRITE SMF STATS AFTER 1 HOUR */
    JWT(2400)                    /* 522 AFTER 24 HOURS    */
    SID(P390)                    /* SYSTEM ID IS P390 */
    LISTDSN                      /* LIST DATA SET STATUS AT IPL */
    /* ------------------------------------------------------------ */
    SYS(TYPE(30),
        INTERVAL(010000),DETAIL)
    SUBSYS(JES2,
           EXITS(IEFACTRT),
                INTERVAL(010000))
    

    It writes SMF30 records and invokes the IEFACTRT exit for batch jobs.

Checklist:

• Ensure that your SYS1.PARMLIB(SMFPRMxx) member invokes IEFACTRT. See CPAC.PARMLIB(SMFPRM00) if needed.
• Edit your SYS1.PARMLIB(IEALPA00) member to include IEFACTRT.
  
  
• Hint: You can install IEFACTRT (and other SMF exits) dynamically via the SETPROG command. See the OS/390 system commands manual.

To replace a dataset in the LNKLST, you can do the following:

• P LLA
• SETPROG LNKLST,DEFINE,NAME=newlnklst,COPYFROM=CURRENT
• SETPROG LNKLST,DELETE,NAME=newlnklst,DSNAME=old.dataset.name
• SETPROG ADD,NAME=newlnklst,DSNAME=new.dataset.name,AFTER=dsname
• SETPROG LNKLST,ACTIVATE,NAME=newlnklst
• SETPROG LNKLST,UPDATE,JOBS=*
  
  
• SETPROG LNKLST,DELETE,NAME=oldlnklst,DSNAME=old.dataset.name
• SETPROG ADD,NAME=newlnklst,DSNAME=new.dataset.name,AFTER=dsname
• SETPROG LNKLST,ACTIVATE,NAME=oldlnklst
• SETPROG LNKLST,UPDATE,JOBS=*
  
  
• S LLA,SUB=MSTR

You will need to allocate the new dataset before you can do this.

The last 4 SETPROG's is only needed if you want to run on the 'old' linklist name, it is purely cosmetic.

Commercial:

• PKZIP MVS
• ISPZIP
• Others? Send me a URL...

Free:

• Info-ZIP is free and PKZIP compatible. It is ported to lots of platforms, including OS/390, both standard and Unix System Services. Source is also available.
  • Zip
  • unZip
• jar - OS/390 comes with Java (which may or may not be configured by your systems staff). All standard Java environments have a command line utility called jar which can create zip files and uncompress zip files. By default, jar creates an unnecessary file in the zip file called a manifest file but it can be eliminated with an option. The jar command can also be executed in batch. Even though the output file has a ".jar" extension, it is a PKZIP-compatible file.
  
  Also check out: Java and the Zip File Format - Dr. Dobb's Journal December 1997

Other MVS compression resources:

• gzip (GNU zip) is a compression utility designed to be a replacement for compress. See the gzip Executables download area
• compress and uncompress are two Unix commands that are included in the OS/390 OE/OpenEdition/Unix_System_Services.
• IBM's CSRCESRV and CSRCMPSC compression Assembler macros. See GC28-1910 OS/390 MVS Programming: Assembler Services Reference.

The JOB STEP COND CODE is 0 because that is the completion code of the ISPSTART command, which completes successfully (barring an intolerable ISPF error) regardless of any subsidiary completion code. Set and VPUT ZISPFRC to exit ISPSTART with a non-zero code.