zOs/TX/VV71LLO

//A540769L  JOB (CP00,KE50),                                            00010001
//         MSGCLASS=T,TIME=1440,LINES=(999999,WARNING),
//         RESTART=S2LOA,
//         NOTIFY=A540769
//*MAIN CLASS=LOG
//S1DDL    EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99
//SYSTSIN  DD *
    DSN SYSTEM(DBTF)
   RUN PROGRAM(DSNTEP2) PARMS('ALIGN(LHS)') PLAN(DSNTEP2)
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSIN    DD *
  SET CURRENT SQLID = 'S100447' ;
-- DROP   TABLESPACE DA540769.AVV71A;
commit;
CREATE TABLESPACE aVV71A
  IN DA540769
  USING STOGROUP GSMS
  PRIQTY -1 SECQTY -1
  FREEPAGE 5 PCTFREE 10
  GBPCACHE CHANGED
  TRACKMOD YES
  BUFFERPOOL BP2
  LOCKSIZE ANY
  LOCKMAX SYSTEM
  CLOSE YES
  COMPRESS YES
  CCSID      EBCDIC
  DEFINE YES
  MAXROWS 255 SEGSIZE 64;
CREATE TABLE A540769.TVV719Limits
   (part                 integer NOT NULL,
    VV719002von          CHAR(59) NOT NULL,
    VV719002bis          CHAR(59) NOT NULL
   )
   in DA540769.aVV71A
   DATA CAPTURE NONE
   CCSID      EBCDIC
   NOT VOLATILE;
   CREATE unique INDEX A540769.IVV71I1
   ON A540769.TVV719Limits
    (part                  ASC,
     VV719002von           ASC,
     VV719002bis           ASC)
   USING STOGROUP GSMS
   PRIQTY -1 SECQTY -1
   ERASE  NO
   FREEPAGE 10 PCTFREE 10
   GBPCACHE CHANGED
   NOT CLUSTER
   BUFFERPOOL BP1
   CLOSE YES
   COPY NO
   DEFINE YES
   PIECESIZE 2 G
;
commit;
//S2LOA    EXEC PGM=DSNUTILB,PARM='DBTF,A540769L.LOAD'                  00020001
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL  DD DSN=DBTF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN    DD *
TEMPLATE TIN
     DSN('A540769.VVUL.DA540769.AVV71A.UNL')
LOAD DATA        LOG NO RESUME NO REPLACE COPYDDN(TCOPYD)
           STATISTICS INDEX(ALL) REPORT NO UPDATE ALL
 INDDN TIN
 EBCDIC  CCSID(00500,00000,00000)
 SORTKEYS
  SORTDEVT DISK
  SORTNUM 2
  WORKDDN(TSYUTD,TSOUTD)
 INTO TABLE
 "A540769".
 "TVV719LIMITS"
 WHEN(00001:00002) = X'02BC'
 NUMRECS                   64
 ( "PART"
  POSITION(  00003:00006) INTEGER
 , "VV719002VON"
  POSITION(  00007:00065) CHAR(00059)
 , "VV719002BIS"
  POSITION(  00066:00124) CHAR(00059)
 )