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=*
© Copyright 2020, Oracle and/or its affiliates. All rights reserved. Legal notices.