$*** $>.jclSub()
$=ssid=DBOF
$@=[
//YMFNVLOH JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=$ssid
$@do px=908 to 909 $@=[
//S$px EXEC PGM=DSNUTILB,PARM='$ssid,YMFNVYLOH.Y$px'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=$ssid.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TIN$px DSN('DSN.MFUNL.MF15P$px.UNL')
TEMPLATE TDISU DSN('&SSID..&DB..&SN..P&PART..&UNIQ..DIS')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE (100,10000) TRK
LOAD DATA
EBCDIC CCSID(00500,00000,00000)
RESUME YES INDDN TIN$px
LOG YES SHRLEVEL CHANGE
DISCARDDN TDISU
ERRDDN TERRD
SORTDEVT DISK SORTNUM 150
WORKDDN(TSYUTS, TSOUTS)
INTO TABLE OA1P.TMF150H1
WHEN( MF150082 = ' ')
(
MF150001 POSITION( 1 )
CHAR( 16) ,
MF150002 POSITION( 17 )
CHAR( 1) ,
MF150003 POSITION( 18 )
CHAR( 5) ,
MF150004 POSITION( 23 )
CHAR( 25) ,
MF150005 POSITION( 48 )
CHAR( 1) ,
MF150006 POSITION( 49 )
CHAR( 1) ,
MF150007 POSITION( 50 )
CHAR( 1) ,
MF150008 POSITION( 51 )
CHAR( 3) ,
MF150009 POSITION( 54 )
CHAR( 5) ,
MF150010 POSITION( 59 )
CHAR( 4) ,
MF150011 POSITION( 63 )
CHAR( 1) ,
MF150012 POSITION( 64 )
CHAR( 1) ,
MF150013 POSITION( 65 )
DATE EXTERNAL( 10) ,
MF150014 POSITION( 75 )
CHAR( 4) ,
MF150015 POSITION( 79 )
CHAR( 4) ,
MF150016 POSITION( 83 )
CHAR( 4) ,
MF150017 POSITION( 87 )
CHAR( 12) ,
MF150018 POSITION( 99: 106)
DECIMAL ,
MF150019 POSITION( 107: 114)
DECIMAL ,
MF150020 POSITION( 115 )
CHAR( 8) ,
MF150021 POSITION( 123 )
TIMESTAMP EXTERNAL( 26) ,
MF150022 POSITION( 149 )
CHAR( 4) ,
MF150023 POSITION( 153 )
CHAR( 12) ,
MF150024 POSITION( 165 )
CHAR( 1) ,
MF150025 POSITION( 166 )
CHAR( 3) ,
MF150026 POSITION( 169 )
CHAR( 3) ,
MF150027 POSITION( 172 )
CHAR( 3) ,
MF150028 POSITION( 175 )
CHAR( 3) ,
MF150029 POSITION( 178 )
CHAR( 3) ,
MF150030 POSITION( 181 )
CHAR( 16) ,
MF150031 POSITION( 197 )
CHAR( 2) ,
MF150032 POSITION( 199 )
CHAR( 7) ,
MF150033 POSITION( 206 )
CHAR( 7) ,
MF150034 POSITION( 213 )
CHAR( 4) ,
MF150035 POSITION( 217 )
CHAR( 1) ,
MF150036 POSITION( 218 )
CHAR( 18) ,
MF150037 POSITION( 236: 243)
DECIMAL ,
MF150038 POSITION( 244 )
CHAR( 16) ,
MF150039 POSITION( 260 )
CHAR( 2) ,
MF150040 POSITION( 262 )
CHAR( 2) ,
MF150041 POSITION( 264 )
CHAR( 2) ,
MF150042 POSITION( 266 )
CHAR( 4) ,
MF150043 POSITION( 270: 277)
DECIMAL ,
MF150044 POSITION( 278 )
CHAR( 5) ,
MF150045 POSITION( 283 )
CHAR( 4) ,
MF150046 POSITION( 287 )
CHAR( 4) ,
MF150047 POSITION( 291 )
CHAR( 1) ,
MF150051 POSITION( 292 )
CHAR( 3) ,
MF150052 POSITION( 295 )
CHAR( 3) ,
MF150053 POSITION( 298: 305)
DECIMAL ,
MF150054 POSITION( 306 )
CHAR( 7) ,
MF150055 POSITION( 313 )
CHAR( 1) ,
MF150056 POSITION( 314 )
CHAR( 8) ,
MF150059 POSITION( 322 )
CHAR( 5) ,
MF150060 POSITION( 327 )
TIMESTAMP EXTERNAL( 26) ,
MF150062 POSITION( 353 )
CHAR( 1) ,
MF150063 POSITION( 354 )
CHAR( 1) ,
MF150064 POSITION( 355 )
DATE EXTERNAL( 10) ,
MF150065 POSITION( 365 )
DATE EXTERNAL( 10) ,
MF150066 POSITION( 375 )
CHAR( 16) ,
MF150067 POSITION( 391 )
CHAR( 16) ,
MF150068 POSITION( 407 )
CHAR( 16) ,
MF150069 POSITION( 423 )
CHAR( 4) ,
MF150070 POSITION( 427 )
CHAR( 7) ,
MF150071 POSITION( 434 )
CHAR( 1) ,
MF150072 POSITION( 435 )
CHAR( 1) ,
MF150073 POSITION( 436 )
CHAR( 1) ,
MF150074 POSITION( 437 )
CHAR( 1) ,
MF150075 POSITION( 438 )
CHAR( 1) ,
MF150076 POSITION( 439 )
CHAR( 1) ,
MF150077 POSITION( 440 )
CHAR( 6) ,
MF150078 POSITION( 446 )
CHAR( 1) ,
MF150079 POSITION( 447 )
CHAR( 1) ,
MF150080 POSITION( 448 )
DATE EXTERNAL( 10) ,
MF150081 POSITION( 458 )
CHAR( 5) ,
MF150082 POSITION( 463 )
CHAR( 26) ,
MF150083 POSITION( 489 )
SMALLINT ,
MF150084 POSITION( 491 )
SMALLINT ,
MF150085 POSITION( 493 )
SMALLINT ,
MF150086 POSITION( 495 )
CHAR( 35) ,
MF150087 POSITION( 530 )
CHAR( 35) ,
MF150088 POSITION( 565 )
CHAR( 35) ,
MF150089 POSITION( 600 )
CHAR( 35) ,
MF150090 POSITION( 635 )
SMALLINT ,
MF150091 POSITION( 637 )
SMALLINT ,
MF150092 POSITION( 639 )
CHAR( 16) ,
MF150019A POSITION( 655 )
CHAR( 4) ,
)
$]
$]
$#out 20101005 08:02:45
//YMFNVLOH JOB (CP00,KE50),
// 'CATALOG',MSGCLASS=T,TIME=1440,
// NOTIFY=&SYSUID,REGION=0M
//*MAIN CLASS=DBOF
//S908 EXEC PGM=DSNUTILB,PARM='DBOF,YMFNVYLOH.Y908'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TIN908 DSN('DSN.MFUNL.MF15P908.UNL')
TEMPLATE TDISU DSN('&SSID..&DB..&SN..P&PART..&UNIQ..DIS')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE (100,10000) TRK
LOAD DATA
EBCDIC CCSID(00500,00000,00000)
RESUME YES INDDN TIN908
LOG YES SHRLEVEL CHANGE
DISCARDDN TDISU
ERRDDN TERRD
SORTDEVT DISK SORTNUM 150
WORKDDN(TSYUTS, TSOUTS)
INTO TABLE OA1P.TMF150H1
WHEN( MF150082 = ' ')
(
MF150001 POSITION( 1 )
CHAR( 16) ,
MF150002 POSITION( 17 )
CHAR( 1) ,
MF150003 POSITION( 18 )
CHAR( 5) ,
MF150004 POSITION( 23 )
CHAR( 25) ,
MF150005 POSITION( 48 )
CHAR( 1) ,
MF150006 POSITION( 49 )
CHAR( 1) ,
MF150007 POSITION( 50 )
CHAR( 1) ,
MF150008 POSITION( 51 )
CHAR( 3) ,
MF150009 POSITION( 54 )
CHAR( 5) ,
MF150010 POSITION( 59 )
CHAR( 4) ,
MF150011 POSITION( 63 )
CHAR( 1) ,
MF150012 POSITION( 64 )
CHAR( 1) ,
MF150013 POSITION( 65 )
DATE EXTERNAL( 10) ,
MF150014 POSITION( 75 )
CHAR( 4) ,
MF150015 POSITION( 79 )
CHAR( 4) ,
MF150016 POSITION( 83 )
CHAR( 4) ,
MF150017 POSITION( 87 )
CHAR( 12) ,
MF150018 POSITION( 99: 106)
DECIMAL ,
MF150019 POSITION( 107: 114)
DECIMAL ,
MF150020 POSITION( 115 )
CHAR( 8) ,
MF150021 POSITION( 123 )
TIMESTAMP EXTERNAL( 26) ,
MF150022 POSITION( 149 )
CHAR( 4) ,
MF150023 POSITION( 153 )
CHAR( 12) ,
MF150024 POSITION( 165 )
CHAR( 1) ,
MF150025 POSITION( 166 )
CHAR( 3) ,
MF150026 POSITION( 169 )
CHAR( 3) ,
MF150027 POSITION( 172 )
CHAR( 3) ,
MF150028 POSITION( 175 )
CHAR( 3) ,
MF150029 POSITION( 178 )
CHAR( 3) ,
MF150030 POSITION( 181 )
CHAR( 16) ,
MF150031 POSITION( 197 )
CHAR( 2) ,
MF150032 POSITION( 199 )
CHAR( 7) ,
MF150033 POSITION( 206 )
CHAR( 7) ,
MF150034 POSITION( 213 )
CHAR( 4) ,
MF150035 POSITION( 217 )
CHAR( 1) ,
MF150036 POSITION( 218 )
CHAR( 18) ,
MF150037 POSITION( 236: 243)
DECIMAL ,
MF150038 POSITION( 244 )
CHAR( 16) ,
MF150039 POSITION( 260 )
CHAR( 2) ,
MF150040 POSITION( 262 )
CHAR( 2) ,
MF150041 POSITION( 264 )
CHAR( 2) ,
MF150042 POSITION( 266 )
CHAR( 4) ,
MF150043 POSITION( 270: 277)
DECIMAL ,
MF150044 POSITION( 278 )
CHAR( 5) ,
MF150045 POSITION( 283 )
CHAR( 4) ,
MF150046 POSITION( 287 )
CHAR( 4) ,
MF150047 POSITION( 291 )
CHAR( 1) ,
MF150051 POSITION( 292 )
CHAR( 3) ,
MF150052 POSITION( 295 )
CHAR( 3) ,
MF150053 POSITION( 298: 305)
DECIMAL ,
MF150054 POSITION( 306 )
CHAR( 7) ,
MF150055 POSITION( 313 )
CHAR( 1) ,
MF150056 POSITION( 314 )
CHAR( 8) ,
MF150059 POSITION( 322 )
CHAR( 5) ,
MF150060 POSITION( 327 )
TIMESTAMP EXTERNAL( 26) ,
MF150062 POSITION( 353 )
CHAR( 1) ,
MF150063 POSITION( 354 )
CHAR( 1) ,
MF150064 POSITION( 355 )
DATE EXTERNAL( 10) ,
MF150065 POSITION( 365 )
DATE EXTERNAL( 10) ,
MF150066 POSITION( 375 )
CHAR( 16) ,
MF150067 POSITION( 391 )
CHAR( 16) ,
MF150068 POSITION( 407 )
CHAR( 16) ,
MF150069 POSITION( 423 )
CHAR( 4) ,
MF150070 POSITION( 427 )
CHAR( 7) ,
MF150071 POSITION( 434 )
CHAR( 1) ,
MF150072 POSITION( 435 )
CHAR( 1) ,
MF150073 POSITION( 436 )
CHAR( 1) ,
MF150074 POSITION( 437 )
CHAR( 1) ,
MF150075 POSITION( 438 )
CHAR( 1) ,
MF150076 POSITION( 439 )
CHAR( 1) ,
MF150077 POSITION( 440 )
CHAR( 6) ,
MF150078 POSITION( 446 )
CHAR( 1) ,
MF150079 POSITION( 447 )
CHAR( 1) ,
MF150080 POSITION( 448 )
DATE EXTERNAL( 10) ,
MF150081 POSITION( 458 )
CHAR( 5) ,
MF150082 POSITION( 463 )
CHAR( 26) ,
MF150083 POSITION( 489 )
SMALLINT ,
MF150084 POSITION( 491 )
SMALLINT ,
MF150085 POSITION( 493 )
SMALLINT ,
MF150086 POSITION( 495 )
CHAR( 35) ,
MF150087 POSITION( 530 )
CHAR( 35) ,
MF150088 POSITION( 565 )
CHAR( 35) ,
MF150089 POSITION( 600 )
CHAR( 35) ,
MF150090 POSITION( 635 )
SMALLINT ,
MF150091 POSITION( 637 )
SMALLINT ,
MF150092 POSITION( 639 )
CHAR( 16) ,
MF150019A POSITION( 655 )
CHAR( 4) ,
)
//S909 EXEC PGM=DSNUTILB,PARM='DBOF,YMFNVYLOH.Y909'
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSTEMPL DD DSN=DBOF.DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN DD *
TEMPLATE TIN909 DSN('DSN.MFUNL.MF15P909.UNL')
TEMPLATE TDISU DSN('&SSID..&DB..&SN..P&PART..&UNIQ..DIS')
DATACLAS(ENN35) MGMTCLAS(COM#A032)
SPACE (100,10000) TRK
LOAD DATA
EBCDIC CCSID(00500,00000,00000)
RESUME YES INDDN TIN909
LOG YES SHRLEVEL CHANGE
DISCARDDN TDISU
ERRDDN TERRD
SORTDEVT DISK SORTNUM 150
WORKDDN(TSYUTS, TSOUTS)
INTO TABLE OA1P.TMF150H1
WHEN( MF150082 = ' ')
(
MF150001 POSITION( 1 )
CHAR( 16) ,
MF150002 POSITION( 17 )
CHAR( 1) ,
MF150003 POSITION( 18 )
CHAR( 5) ,
MF150004 POSITION( 23 )
CHAR( 25) ,
MF150005 POSITION( 48 )
CHAR( 1) ,
MF150006 POSITION( 49 )
CHAR( 1) ,
MF150007 POSITION( 50 )
CHAR( 1) ,
MF150008 POSITION( 51 )
CHAR( 3) ,
MF150009 POSITION( 54 )
CHAR( 5) ,
MF150010 POSITION( 59 )
CHAR( 4) ,
MF150011 POSITION( 63 )
CHAR( 1) ,
MF150012 POSITION( 64 )
CHAR( 1) ,
MF150013 POSITION( 65 )
DATE EXTERNAL( 10) ,
MF150014 POSITION( 75 )
CHAR( 4) ,
MF150015 POSITION( 79 )
CHAR( 4) ,
MF150016 POSITION( 83 )
CHAR( 4) ,
MF150017 POSITION( 87 )
CHAR( 12) ,
MF150018 POSITION( 99: 106)
DECIMAL ,
MF150019 POSITION( 107: 114)
DECIMAL ,
MF150020 POSITION( 115 )
CHAR( 8) ,
MF150021 POSITION( 123 )
TIMESTAMP EXTERNAL( 26) ,
MF150022 POSITION( 149 )
CHAR( 4) ,
MF150023 POSITION( 153 )
CHAR( 12) ,
MF150024 POSITION( 165 )
CHAR( 1) ,
MF150025 POSITION( 166 )
CHAR( 3) ,
MF150026 POSITION( 169 )
CHAR( 3) ,
MF150027 POSITION( 172 )
CHAR( 3) ,
MF150028 POSITION( 175 )
CHAR( 3) ,
MF150029 POSITION( 178 )
CHAR( 3) ,
MF150030 POSITION( 181 )
CHAR( 16) ,
MF150031 POSITION( 197 )
CHAR( 2) ,
MF150032 POSITION( 199 )
CHAR( 7) ,
MF150033 POSITION( 206 )
CHAR( 7) ,
MF150034 POSITION( 213 )
CHAR( 4) ,
MF150035 POSITION( 217 )
CHAR( 1) ,
MF150036 POSITION( 218 )
CHAR( 18) ,
MF150037 POSITION( 236: 243)
DECIMAL ,
MF150038 POSITION( 244 )
CHAR( 16) ,
MF150039 POSITION( 260 )
CHAR( 2) ,
MF150040 POSITION( 262 )
CHAR( 2) ,
MF150041 POSITION( 264 )
CHAR( 2) ,
MF150042 POSITION( 266 )
CHAR( 4) ,
MF150043 POSITION( 270: 277)
DECIMAL ,
MF150044 POSITION( 278 )
CHAR( 5) ,
MF150045 POSITION( 283 )
CHAR( 4) ,
MF150046 POSITION( 287 )
CHAR( 4) ,
MF150047 POSITION( 291 )
CHAR( 1) ,
MF150051 POSITION( 292 )
CHAR( 3) ,
MF150052 POSITION( 295 )
CHAR( 3) ,
MF150053 POSITION( 298: 305)
DECIMAL ,
MF150054 POSITION( 306 )
CHAR( 7) ,
MF150055 POSITION( 313 )
CHAR( 1) ,
MF150056 POSITION( 314 )
CHAR( 8) ,
MF150059 POSITION( 322 )
CHAR( 5) ,
MF150060 POSITION( 327 )
TIMESTAMP EXTERNAL( 26) ,
MF150062 POSITION( 353 )
CHAR( 1) ,
MF150063 POSITION( 354 )
CHAR( 1) ,
MF150064 POSITION( 355 )
DATE EXTERNAL( 10) ,
MF150065 POSITION( 365 )
DATE EXTERNAL( 10) ,
MF150066 POSITION( 375 )
CHAR( 16) ,
MF150067 POSITION( 391 )
CHAR( 16) ,
MF150068 POSITION( 407 )
CHAR( 16) ,
MF150069 POSITION( 423 )
CHAR( 4) ,
MF150070 POSITION( 427 )
CHAR( 7) ,
MF150071 POSITION( 434 )
CHAR( 1) ,
MF150072 POSITION( 435 )
CHAR( 1) ,
MF150073 POSITION( 436 )
CHAR( 1) ,
MF150074 POSITION( 437 )
CHAR( 1) ,
MF150075 POSITION( 438 )
CHAR( 1) ,
MF150076 POSITION( 439 )
CHAR( 1) ,
MF150077 POSITION( 440 )
CHAR( 6) ,
MF150078 POSITION( 446 )
CHAR( 1) ,
MF150079 POSITION( 447 )
CHAR( 1) ,
MF150080 POSITION( 448 )
DATE EXTERNAL( 10) ,
MF150081 POSITION( 458 )
CHAR( 5) ,
MF150082 POSITION( 463 )
CHAR( 26) ,
MF150083 POSITION( 489 )
SMALLINT ,
MF150084 POSITION( 491 )
SMALLINT ,
MF150085 POSITION( 493 )
SMALLINT ,
MF150086 POSITION( 495 )
CHAR( 35) ,
MF150087 POSITION( 530 )
CHAR( 35) ,
MF150088 POSITION( 565 )
CHAR( 35) ,
MF150089 POSITION( 600 )
CHAR( 35) ,
MF150090 POSITION( 635 )
SMALLINT ,
MF150091 POSITION( 637 )
SMALLINT ,
MF150092 POSITION( 639 )
CHAR( 16) ,
MF150019A POSITION( 655 )
CHAR( 4) ,
)
$#out 20101004 11:39:51