home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / bit / listserv / ibmmain / 2644 < prev    next >
Encoding:
Text File  |  1992-11-16  |  4.4 KB  |  104 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!darwin.sura.net!paladin.american.edu!auvm!OSREQ48.ROCKWELL.COM!LBDYCK
  3. Return-Path: <lbdyck@osreq48.rockwell.com>
  4. Message-ID: <9211161455.AA0158@osreq48.rockwell.com>
  5. Newsgroups: bit.listserv.ibm-main
  6. Date:         Mon, 16 Nov 1992 06:50:43 PST
  7. Sender:       IBM Mainframe Discussion list <IBM-MAIN@RICEVM1.BITNET>
  8. From:         "Lionel B. Dyck" <lbdyck@OSREQ48.ROCKWELL.COM>
  9. Subject:      jcl conversion
  10. Comments: To: IBM-MAIN@ricevm1.rice.edu
  11. In-Reply-To:  <9211061646.AA0060@osreq48.rockwell.com>
  12. Lines: 90
  13.  
  14. It was asked:
  15.  
  16. > I have a customer who installs a new version of a system (Notis) every
  17. > year.  We would like them to change the jcl to meet our local standards
  18. > (bent somewhat as it is a bought system).  They feel the time involved to
  19. > do so is too great.  I do not want to discuss whether the jcl should be
  20. > changed or not.  We have done enough discussion about that here.  I feel
  21. > we would be sensitive to the concern of our customer if we had a jcl
  22. > conversion aid.  I would appeciate hearing from anyone who uses a jcl
  23. > conversion aid, home written or bought.
  24.  
  25.  
  26. One simple solution is to write an ISPF Edit Macro in CLIST or REXX and then
  27. execute it on every member of your JCL data set(s).  Here is a relatively simple
  28. rexx exec that will run against every member of the specified pds and execute
  29. the requested edit macro:
  30.  
  31.  
  32. 00000100/* ---------------------  rexx procedure  ---------------------- *
  33. 00000200 * Name:      EDITALL                                            *
  34. 00000300 *                                                               *
  35. 00000400 * Function:  Run an ISPF Edit Macro against every member of     *
  36. 00000500 *            a PDS.                                             *
  37. 00000600 *                                                               *
  38. 00000700 * Syntax:    %EDITALL dsname edit-macro                         *
  39. 00000800 *                                                               *
  40. 00000900 * Author:    Lionel B. Dyck                                     *
  41. 00001000 *            Rockwell International                             *
  42. 00001100 *            P.O. Box 2515                                      *
  43. 00001200 *            Seal Beach, California 90740                       *
  44. 00001300 *            (310) 797-1125                                     *
  45. 00001400 *            IBMMail:  USROKNTN                                 *
  46. 00001500 *            IBMLINK:  ROK2027                                  *
  47. 00001600 *                                                               *
  48. 00001700 * History:   11/30/90 - created                                 *
  49. 00001900 *                                                               *
  50. 00002000 * ------------------------------------------------------------- */
  51. 00002100
  52. 00002200arg dsn exec
  53. 00002300
  54. 00002400if left(dsn,1) <> "'" then do
  55. 00002500   dsn = sysvar(syspref)"."dsn
  56. 00002600   end
  57. 00002700   else do
  58. 00002800        dsn = substr(dsn,2,length(dsn)-2)
  59. 00002900        end
  60. 00003000
  61. 00003100
  62. 00003200x = outtrap("lm.","*")
  63. 00003300
  64. 00003400"LISTD" "'"dsn"'" "MEMBERS"
  65. 00003500
  66. 00003600x = outtrap("off")
  67. 00003700
  68. 00003800do i = 1 to lm.0
  69. 00003900   if lm.i = "--MEMBERS--" then signal domem
  70. 00004000   end
  71. 00004100
  72. 00004200domem:  do j = i+1 to lm.0
  73. 00004300        parse value lm.j with mem extra
  74. 00004400        Address ISPEXEC "EDIT DATASET('"dsn"("mem")') MACRO("exec")"
  75. 00005000        end
  76.  
  77.  
  78. Your edit macro should/can do something like the following that fixes character
  79. translation problems found in some pc<-->host file transfers:
  80.  
  81. 00010000/* rexx */
  82. 00020000
  83. 00030000Address ISREDIT
  84. 00040000"MACRO"
  85. 00080001  "Change x'52' x'5F' ALL"
  86. 00081001  "Change x'6A' x'4F' ALL"
  87. 00082001  "SAVE"
  88. 00083001  "END"
  89.  
  90. The "END" is critical or you will be 'stuck' in each member of the data set.
  91.  
  92. enjoy
  93.  
  94.  
  95.  >>>  One of the most dangerous forms of human error is forgetting <<<
  96.  >>>     what one is trying to achieve......Paul Nitze             <<<
  97. *---------------------------------------------------------------------*
  98. * Lionel B. Dyck              | Rockwell TSO:      WCC1.$A1238        *
  99. * M/C:       110-SE28         | Rockwell VM:       ISCEMS(LBDYCK)     *
  100. * Comnet:    797-1125         | IBMLink:           ROK2027            *
  101. * Phone:     (310) 797-1125   | IBM Mail:          USROKNTN           *
  102. * Fax:       (310) 797-3511   | Internet: LBDyck@osreq48.Rockwell.Com *
  103. *---------------------------------------------------------------------*
  104.