//EXTPSWX JOB 'KURS','PETER',                                           00010001
//            CLASS=1,MSGCLASS=X,                                       00020001
//            TIME=(,1),NOTIFY=&SYSUID                                  00030001
/* JOBPARM S=STO01                                                      00030101
//*--------------------------------------------                         00030200
//STEG0  EXEC PGM=IEFBR14                                               00030300
//ARTGRP   DD DSN=&SYSUID..AP15.ARTGRP,DISP=(MOD,DELETE),               00030402
//            SPACE=(TRK,1)                                             00030500
//STEG1  EXEC PGM=IDCAMS                                                00030600
//ARTGRP   DD DSN=&SYSUID..AP15.ARTGRP,DISP=(,CATLG),                   00030702
//            SPACE=(TRK,(3,2)),LRECL=80,                               00030800
//            RECORG=KS,KEYLEN=1,KEYOFF=0                               00030900
//SYSPRINT DD SYSOUT=*                                                  00031000
//SYSIN    DD *                                                         00031100
  REPRO INDATASET(EXTPSW.AP15.GRPDATA) -                                00031200
     OUTFILE(ARTGRP)                                                    00031300
  PRINT INFILE(ARTGRP) CHAR                                             00031400