Return-Path: <lbdyck@osreq48.rockwell.com>
Newsgroups: bit.listserv.ibm-main
Date:         Mon, 16 Nov 1992 06:50:43 PST
From:         "Lionel B. Dyck" <lbdyck@OSREQ48.ROCKWELL.COM>
Subject:      jcl conversion
Comments: To: IBM-MAIN@ricevm1.rice.edu

It was asked:

> I have a customer who installs a new version of a system (Notis) every
> year.  We would like them to change the jcl to meet our local standards
> (bent somewhat as it is a bought system).  They feel the time involved to
> do so is too great.  I do not want to discuss whether the jcl should be
> changed or not.  We have done enough discussion about that here.  I feel
> we would be sensitive to the concern of our customer if we had a jcl
> conversion aid.  I would appeciate hearing from anyone who uses a jcl
> conversion aid, home written or bought.


One simple solution is to write an ISPF Edit Macro in CLIST or REXX and then
execute it on every member of your JCL data set(s).  Here is a relatively simple
rexx exec that will run against every member of the specified pds and execute
the requested edit macro:


00000100/* ---------------------  rexx procedure  ---------------------- *
00000200 * Name:      EDITALL                                            *
00000300 *                                                               *
00000400 * Function:  Run an ISPF Edit Macro against every member of     *
00000500 *            a PDS.                                             *
00000600 *                                                               *
00000700 * Syntax:    %EDITALL dsname edit-macro                         *
00000800 *                                                               *
00000900 * Author:    Lionel B. Dyck                                     *
00001000 *            Rockwell International                             *
00001100 *            P.O. Box 2515                                      *
00001200 *            Seal Beach, California 90740                       *
00001300 *            (310) 797-1125                                     *
00001400 *            IBMMail:  USROKNTN                                 *
00001500 *            IBMLINK:  ROK2027                                  *
00001600 *                                                               *
00001700 * History:   11/30/90 - created                                 *
00001900 *                                                               *
00002000 * ------------------------------------------------------------- */
00002100
00002200arg dsn exec
00002300
00002400if left(dsn,1) <> "'" then do
00002500   dsn = sysvar(syspref)"."dsn
00002600   end
00002700   else do
00002800        dsn = substr(dsn,2,length(dsn)-2)
00002900        end
00003000
00003100
00003200x = outtrap("lm.","*")
00003300
00003400"LISTD" "'"dsn"'" "MEMBERS"
00003500
00003600x = outtrap("off")
00003700
00003800do i = 1 to lm.0
00003900   if lm.i = "--MEMBERS--" then signal domem
00004000   end
00004100
00004200domem:  do j = i+1 to lm.0
00004300        parse value lm.j with mem extra
00004400        Address ISPEXEC "EDIT DATASET('"dsn"("mem")') MACRO("exec")"
00005000        end


Your edit macro should/can do something like the following that fixes character
translation problems found in some pc<-->host file transfers:

00010000/* rexx */
00020000
00030000Address ISREDIT
00040000"MACRO"
00080001  "Change x'52' x'5F' ALL"
00081001  "Change x'6A' x'4F' ALL"
00082001  "SAVE"
00083001  "END"

The "END" is critical or you will be 'stuck' in each member of the data set.

enjoy


 >>>  One of the most dangerous forms of human error is forgetting <<<
 >>>     what one is trying to achieve......Paul Nitze             <<<
*---------------------------------------------------------------------*
* Lionel B. Dyck              | Rockwell TSO:      WCC1.$A1238        *
* M/C:       110-SE28         | Rockwell VM:       ISCEMS(LBDYCK)     *
* Comnet:    797-1125         | IBMLink:           ROK2027            *
* Phone:     (310) 797-1125   | IBM Mail:          USROKNTN           *
* Fax:       (310) 797-3511   | Internet: LBDyck@osreq48.Rockwell.Com *
*---------------------------------------------------------------------*
Newsgroups: bit.listserv.ibm-main