Archives of the TeradataForum

Message Posted: Mon, 06 Apr 2010 @ 00:31:48 GMT

	<Prev	Next>		<<First	<Prev	Next>	Last>>

Yes

at my site we just convert the files to flat file (QSAM) format using IDCAMS. Far easier and more maintaina than wrriting an Inmod , just need a liitle space and a little time but most MVS sites have enough of both.

following JCL has assumea a preallocated QSAM file (eg via TSO PDF 3.2) and overwrites it on every execution but you can allocate it in the job if you desire of course

eg

     //COPY     EXEC PGM=IDCAMS
     //SYSPRINT DD  SYSOUT=*
     //IFILE1     DD  DSN=PROD1.DW.MSXTRACT.WLKR2MIS,DISP=SHR
     //OFILE1   DD  DSN=PROD1.DW.MSXTRACT.WLKR2MIS.QSAM,DISP=OLD
     //SYSIN    DD  *
       REPRO  -
         IFILE(IFILE1) -
         OFILE(OFILE1)
     //*

The COMP , COMP-3 etc are all normal datatypes in MVS EBCDIC environment that will be automatically handeld by Mload if you define the .FIELDs as Decimal (Comp-3) and smallint/integer (COMP) with the appropriate numeric widths

Regards

Andy Baker

	<Prev	Next>		<<First	<Prev	Next>	Last>>