zOs/JCL/FANK

//A540769A  JOB (CP00,KE50),TIME=60                                     00010001
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99                       00020001
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSTSIN  DD *
    DSN SYSTEM(DBOF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSIN    DD *
-- Created by A540769 on 2006/08/21 at 14:51 by cloning of
-- source work stmt list  MF01003Q  from library  'DSN.DBA.CLON.WSL'
-- EDITED BY A540769  ON 2006/08/21 AT 14:50
-- Generated by Compare Apply by A540769 on 2006/08/21 at 14:46
  SET CURRENT SQLID = 'S100447';
  DROP INDEX OA1P.IMF150A4;
  COMMIT;
  CREATE INDEX OA1P.IMF150A4
    ON OA1P.TMF150A1
     (MF150067                          ASC,
      MF150013                          DESC,
      MF150019                          DESC,
      MF150066                          DESC)
    USING STOGROUP GSMS
    PRIQTY 72000 SECQTY 180000
    ERASE NO
    FREEPAGE 0 PCTFREE 10
    GBPCACHE CHANGED NOT
    CLUSTER
    BUFFERPOOL BP1
    CLOSE YES
    COPY NO DEFINE YES
    DEFER YES
    PIECESIZE 4 G;
  COMMIT;
//      IF RC<=4 THEN
//P02     EXEC PGM=DSNUTILB,
//             PARM='DBOF,A540769C.REBUILD'
//SYSPRINT  DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTEMPL  DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN     DD *
LISTDEF C#LIST
                    INCLUDE INDEX  OA1P.IMF150A4
    REBUILD INDEX LIST C#LIST
      SORTDEVT SYSDA
      SORTNUM  4
      WORKDDN(TSYUTD)
      STATISTICS UPDATE ALL
//      ENDIF