/*------------------------------ REXX -------------------------------*/
/* TITEL   : SB37                                                    */
/* ZWECK   : BEHEBEN SB37 BEI BMPS                                   */
/* FUNKTION: RENAME, VERGROEßERN, UND SETZEN ORIGINAL DCB-ANGABEN    */
/*                                                                   */
/* AUTOR   : NORBERT BERREßEM  GRZ LEHRTE,      03.06.1992           */
/*      LETZTE ÄNDERUNG AM XX.XX.1991 DURCH XF00XXX                  */
/*-------------------------------------------------------------------*/
/*-- ARGUMENT-ABFRAGE / TRACE-OPTIONEN ------------------------------*/
  TRACE O
  ARG TR .
  IF TR = ' ' THEN TR = O
  TRACE(TR)
/*-------------------------------------------------------------------*/
   RZ = 'A'
   F = 2
   HT = 'DCB=(DSCB,LRECL='
   TAG = 'D'DATE('J')
   ZEIT = TRANSLATE(ABDEGHJ,TIME('L'),ABCDEFGHIJKLMNO)
   ZEIT = 'T'ZEIT
/* CLIST BEGINN                                                      */
ANFANG:
   CALL ANZEIGE
   IF SYSDSN("'"DATEI"'") /= OK THEN DO
      MSG = 'DATEI NICHT VORHANDEN'
      SIGNAL ANFANG
   END
   X = LISTDSI("'"DATEI"'")
   REASON = SYSREASON
   RECFM  = SYSRECFM
   LRECL  = SYSLRECL
   BLKSIZE = SYSBLKSIZE
   ALL = SYSALLOC
   PRI = SYSPRIMARY
   SEC  = SYSSECONDS
   CYL = SYSUNITS
   IF  SYSREASON /= 0 THEN MSG=SYSREASON
   B = BLKSIZE / LRECL * SYSALLOC
   B = TRUNC(B)
/* B1 = BLKSIZE / LRECL * SEC                                        */
/* B1 = TRUNC(B1)                                                    */
   B1 = SEC
   NEU = SYSALLOC * F
/* NEU = B * F                                                       */
   NEU = TRUNC(NEU)
   HELP = LENGTH(DATEI) - LASTPOS('.',DATEI)
   SAVEDSN = RZ'02000.XXX.'RIGHT(DATEI,HELP)'.'TAG'.'ZEIT
   MSG = 'BEI ENTER WIRD DIE VERGROESSERUNG DER DATEI VORGENOMMEN'
   CALL ANZEIGE
   CALL SUBMI
EXIT
ANZEIGE:
   ADDRESS ISPEXEC
   "DISPLAY PANEL(SB37)"
   IF RC = 8 THEN EXIT(99)
   ADDRESS TSO
   IF RZ = A THEN DO
      CLASS = 'K'
      RZDEST= 'JESAP'
      RZJOB = 'JESA1'
   END
RETURN
SUBMI:
  'GRZTSO 'USERID()''
  UN = SUBSTR(USERID(),4,4)
  UI = USERID()
  JN = SUBSTR(GRZTSO,9,10)
  C = CLASS
  QUEUE "//"UI"# JOB "JN",'PN"UN"',CLASS="C",MSGCLASS=0,"
  QUEUE "//            TYPRUN=HOLD,NOTIFY="UI
  QUEUE "/*ROUTE XEQ  "RZJOB
  QUEUE "/*ROUTE PRINT "RZDEST""
  QUEUE "//S010    EXEC PGM=IDCAMS"
  QUEUE "//SYSPRINT  DD SYSOUT=0"
  QUEUE "//SYSIN     DD *"
  QUEUE " ALTER "DATEI"  -"
  QUEUE "  NEWNAME("SAVEDSN")"
  QUEUE "/*"
  /*    ALLOC MIT SMS   */
  IF CYL = 'BLOCK' THEN DO
  QUEUE "//S020    EXEC PGM=IEFBR14"
  QUEUE "//SYSPRINT  DD SYSOUT=0"
  QUEUE "//SYSOUT01  DD DSN="DATEI","
  QUEUE "//             DISP=(,CATLG,DELETE),"
  QUEUE "//             RECFM="RECFM","
  QUEUE "//             LRECL="LRECL","
  QUEUE "//             SPACE=("LRECL",("NEU","B1")),"
  QUEUE "//             STORCLAS=SCNORM"
  QUEUE "//*"
  END
  /*    ALLOC OHNE  SMS   */
  IF CYL /= 'BLOCK' THEN DO
  QUEUE "//S020    EXEC PGM=IEFBR14"
  QUEUE "//SYSPRINT  DD SYSOUT=0"
  QUEUE "//SYSOUT01  DD DSN="DATEI","
  QUEUE "//             DISP=(,CATLG,DELETE),"
  QUEUE "//             UNIT=DISK,"
  QUEUE "//             SPACE=("CYL",("NEU","B1")),"
  QUEUE "//             "HT""LRECL",BLKSIZE="BLKSIZE",RECFM="RECFM")"
  QUEUE "//*"
  END
  QUEUE "//S030    EXEC PGM=IEBGENER"
  QUEUE "//SYSPRINT  DD SYSOUT=0"
  QUEUE "//SYSIN     DD DUMMY"
  QUEUE "//SYSUT1    DD DSN="SAVEDSN","
  QUEUE "//             DISP=OLD,"
  QUEUE "//             RECFM=U"
  QUEUE "//SYSUT2    DD DSN="DATEI","
  QUEUE "//             DISP=OLD,"
  QUEUE "//             RECFM=U"
  QUEUE "//*"
  QUEUE "//S040    EXEC PGM=IEBGENER"
  QUEUE "//SYSPRINT  DD SYSOUT=0"
  QUEUE "//SYSIN     DD DUMMY"
  QUEUE "//SYSUT1    DD DUMMY"
  QUEUE "//SYSUT2    DD DSN="DATEI","
  QUEUE "//             DISP=MOD,"
  IF CYL /= 'BLOCK' THEN DO
  QUEUE "//             BLKSIZE="BLKSIZE","
  END
  QUEUE "//             RECFM="RECFM","
  QUEUE "//             LRECL="LRECL""
  QUEUE "$$"
/*MSGMODE = MSG("OFF")                                               */
  "SUBMIT * END ($$)"
/*MSGMODE = MSG("ON")                                                */
RETURN