//UTB01X JOB NOTIFY=&SYSUID //STEG1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //GRPIN DD * 1BILDELAR 3SKOTILLBEHÖR 4CIGARETTER OCH TILLBEHÖR 5JULGRANSFÖTTER 6HABROVINKLAR 7SMÖR OCH MARGARIN 8FISKPRODUKTER //* //SYSIN DD * DELETE UTB01.AP15.ARTGRPX DEFINE CLUSTER (NAME(UTB01.AP15.ARTGRPX) - TRACKS(5 2) - VOLUMES(USR001 - ) - KEYS(1 0) - RECORDSIZE(80 80) - ) - DATA (NAME(UTB01.AP15.ARTGRPX.DATA) - ) - INDEX (NAME(UTB01.AP15.ARTGRPX.INDEX) - ) REPRO INFILE(GRPIN) - OUTDATASET(UTB01.AP15.ARTGRPX) PRINT INDATASET(UTB01.AP15.ARTGRPX) CHAR