You are here: Available Utilities > M > MRG2MVS > Sample JCL

Sample JCL for Converting AFP or Metacode Files

Here is an example of the JCL you might use to convert an uploaded AFP or Metacode print stream for subsequent printing:

***************************** Top of Data ***********************
//USERIDA  JOB   (33005),'DAP -       ',CLASS=T,MSGCLASS=X,
//         NOTIFY=USERID
//*
//         SET HLQ='FSI.V114'   <== SET HIGH LEVEL QUALIFIER
//         SET RES='RPEX1'      <== SET RESOURCE (E.G. RPEX1, UTEX1) 
//*
//         JCLLIB  ORDER=&HLQ..PROCLIB
//*
//*****************************************************************
//*  PROGRAM : MRG2MVS
//*  PURPOSE : TO CONVERT DOCUMERGE VARIABLE BLOCK FILE INTO
//*            AN MVS RECORD ORIENTED FILE.
//*
//*  PARMS   : /I=   NAME OF INPUT FILE  (DEFAULT: DD:INFILE)
//*            /O=   NAME OF OUTPUT FILE (DEFAULT: DD:OUTFILE)
//*            /2    INPUT FILE USES 2-BYTE VARIABLE BLOCK FORMAT
//*                  (OPTIONAL)
//*
//****************************************************************
//*
//MRG2MVSD EXEC PGM=IEFBR14
//OUTFILE  DD DSN=&HLQ..&RES..GENPRINT.PRTBAT1,
//            UNIT=SYSDA,SPACE=(TRK,0),
//            DISP=(MOD,DELETE,DELETE)
//*
//MRG2MVS1 EXEC PGM=MRG2MVS, 
//         PARM='/ /I=DD:INFILE /O=DD:OUTFILE'
//STEPLIB  DD DSN=&HLQ..LINKLIB,DISP=SHR
//         DD DSN=SYS1.SCEERUN,DISP=SHR
//*
//INFILE   DD DSN=&HLQ..&RES..GENPRINT.PRTBAT1.FROMPC,DISP=SHR
//OUTFILE  DD DSN=&HLQ..&RES..GENPRINT.PRTBAT1,
//         UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,CATLG),
//         DCB=(RECFM=VBM,LRECL=8205,BLKSIZE=23000)
//SYSPRINT DD SYSOUT=*