/*START OF SPECIFICATIONS****************************** REXX */
/*                                                           */
/* MEMBER NAME = JESCHECK                                    */
/*                                                           */
/* DESCRIPTIVE NAME = ISPF Edit Macro for checking the       */
/*                    JES3 initialization stream.            */
/*                                                           */
/* FUNCTION =                                                */
/*                                                           */
/*   This edit macro invokes the JES3 initialization stream  */
/*   checker utility. Be sure all changes are saved before   */
/*   invoking this macro.                                    */
/*                                                           */
/* MODIFICATIONS =                                           */
/*                                                           */
/*   This edit macro assumes the JES3 initialization stream  */
/*   data, created via HCD, is in 'SYS2.HCDJES3'. You must   */
/*   change this data set name to match the name in your     */
/*   environment.                                            */
/*                                                           */
/*END OF SPECIFICATIONS***************************************/
/* */
 "isredit macro"
 "isredit (dsn) = dataset"
 "isredit (mem) = member"
 "free dd(jes3in)"
 "alloc dd(jes3in) dsn('"||dsn||"("||mem||")') shr reuse"
 "delete jes3out.list"
 "alloc dd(jes3out) dsn(jes3out.list) new sp(1 1) tracks reuse"
 "alloc dd(jesabend) dsn(*)"
 "alloc dd(stg1code) dsn('sys2.hcdjes3') shr reuse"
 address attchpgm iatutis
 "ispexec browse dataset(jes3out.list)"
 "free dd(jes3in,jes3out,jesabend,stg1code)"
exit;