//APSWCF30 JOB 'account #','name',MSGLEVEL=(1,1)
//*********************************************************************
//* THIS IS A SAMPLE JOB USED TO CONVERT A GIVEN BOUNDED BOX          *
//* CHARACTER SET FROM 240 PEL FIXED METRICS TO 300 PEL RELATIVE      *
//* METRICS, USING A PROC INVOCATION OF THE APSRCF30 FONT SCALING     *
//* PROGRAM.  THE SUPPLIED PROC STATEMENTS AND CHARACTER SETS ARE     *
//* PROVIDED AS SAMPLE ONLY, AND SHOULD BE TAILORED TO REFLECT THE    *
//* BOUNDED BOX CHARACTER SETS THAT REQUIRE SCALING.                  *
//*                                                                   *
//* THE FONT LIBRARY USED BY THIS PROC SHOULD BE ALLOCATED PRIOR      *
//* TO INVOKING THIS PROCEDURE.                                       *
//*                                                                   *
//* NOTE: IF CONCATENATION OF FONT LIBRARIES WILL NOT BE PERFORMED    *
//*       WITH PSF, THE CODE PAGES AND CODED FONTS SHOULD BE COPIED   *
//*       TO THE 300 PEL FONT LIBRARY.                                *
//*                                                                   *
//* DDNAME USAGE:                                                     *
//* ============                                                      *
//* SYSUT1   - INPUT FONT LIBRARY (MEMBER NAME REQUIRED BY PROC)      *
//* SYSUT2   - OUTPUT FONT LIBRARY (MEMBER NAME REQUIRED BY PROC)     *
//* FONTB300 - CONVERSION CHARACTER DATASET                           *
//*                                                                   *
//*********************************************************************
//*
//CON       PROC NAME=
//S1        EXEC PGM=APSRCF30,REGION=5120K
//*              INSERT YOUR INPUT 240 PEL FONT LIBRARY
//SYSUT1    DD DISP=SHR,DSN=SYS1.FONTLIBB(&NAME)
//*              INSERT YOUR OUTPUT 300 PEL FONT LIBRARY
//SYSUT2    DD DISP=SHR,DSN=SYS1.FONT300(&NAME)
//*              CONVERSION CHARACTER DATASET DDNAME
//FONTB300  DD DISP=SHR,DSN=SYS1.SAPSDAT0
//          PEND
//*
//*
//*********************************************************************
//* SAMPLE - CONVERT APL2 BOUNDED BOX CHARACTER SET FROM 240 PEL      *
//*          FIXED METRICS TO 300 PEL RELATIVE METRICS                *
//* PRODUCT NAME  : APL2                                              *
//* PRODUCT NUMBER: 5771-ADB                                          *
//* PARTLIST      : CBIPOADB PARTLIST                                 *
//*********************************************************************
//C0L0AD10  EXEC PROC=CON,NAME=C0L0AD10
//C0L0AD12  EXEC PROC=CON,NAME=C0L0AD12
//C0L0AG10  EXEC PROC=CON,NAME=C0L0AG10
//C0L0AG12  EXEC PROC=CON,NAME=C0L0AG12
//C0L0AG15  EXEC PROC=CON,NAME=C0L0AG15
//C0L0AI10  EXEC PROC=CON,NAME=C0L0AI10
//C0L0AI12  EXEC PROC=CON,NAME=C0L0AI12
//C0L0AT10  EXEC PROC=CON,NAME=C0L0AT10
//C0L0AT12  EXEC PROC=CON,NAME=C0L0AT12
//C0L00APL  EXEC PROC=CON,NAME=C0L00APL
//C0S0AP10  EXEC PROC=CON,NAME=C0S0AP10
//C0S0AP13  EXEC PROC=CON,NAME=C0S0AP13
//C0S0AP20  EXEC PROC=CON,NAME=C0S0AP20
/*