//APSWMALL JOB 'ACCOUNT #','NAME',MSGLEVEL=(1,1)
//***********************************************************
//*     SAMPLE JOB TO MARK ALL MEMBERS OF A RASTER FONT     *
//*         LIBRARY ENABLED FOR PRINTER CAPTURE.            *
//*                                                         *
//* THIS SAMPLE JOB MARKS ALL PREVIOUSLY UNMARKED CODE      *
//* PAGES AND CHARACTER SETS IN A RASTER FONT LIBRARY       *
//* (INDICATED BY dsname1) FOR PRINTER CAPTURE, AND PUTS    *
//* ALL OF THE NEWLY MARKED FONTS (AND OTHER UNMARKED OR    *
//* PREVIOUSLY MARKED FONTS) INTO A NEW LIBRARY (INDICATED  *
//* BY dsname2) IN STEP1.  IT THEN GENERATES AN APSRMARK    *
//* REPORT WHICH GIVES INFORMATION ABOUT THE FONTS,         *
//* INCLUDING THEIR ENABLEMENT STATUS, IN STEP2.            *
//*                                                         *
//* 1) IF YOU HAVE COMPATIBILITY CODE PAGES IN YOUR FONT    *
//*    LIBRARY, PSF WILL ISSUE MESSAGE APS8500I FOR THESE   *
//*    CODE PAGES, BECAUSE THEY DO NOT CONTAIN A GCSGID.    *
//*    YOU MAY MARK THESE CODE PAGES INDIVIDUALLY USING     *
//*    THE GCSGID IN THE CHARACTER SET ASSOCIATED WITH THE  *
//*    COMPATIBILITY CODE PAGE.  IF SO, VERIFY THAT THE     *
//*    VALUES SPECIFIED IN EACH RRID CONTROL STATEMENT      *
//*    PARAMETER ARE THE SAME AS THOSE CURRENTLY SPECIFIED  *
//*    IN YOUR PRINTER DOCUMENTATION.  SEE THE FOLLOWING    *
//*    IBM PUBLICATIONS FOR MORE INFORMATION REGARDING      *
//*    THESE VALUES :                                       *
//*       ABOUT TYPE: IBM'S TECHNICAL REFERENCE FOR 240-PEL *
//*         DIGITIZED TYPE                                  *
//*       TECHNICAL REFERENCE FOR CODE PAGES                *
//*    SEE THE PSF V3 R3.0 CUSTOMIZATION GUIDE FOR MORE     *
//*    INFORMATION REGARDING THE APSRMARK UTILITY.          *
//*                                                         *
//* 2) IF YOU RECEIVE PSF MESSAGE APS8501I, THIS MEANS THAT *
//*    AN ATTEMPT HAS ALREADY BEEN MADE TO MARK THE FONTS,  *
//*    AND THAT THIS JOB WILL NOT CHANGE THE MARKINGS.  THE *
//*    APSRMARK REPORT WILL INDICATE WHETHER OR NOT THE     *
//*    FONTS APPEAR TO BE CORRECTLY MARKED FOR PRINTER      *
//*    CAPTURE.  IN ORDER TO CHANGE THE MARKINGS, YOU WILL  *
//*    NEED TO SPECIFY AN RRID FOR EACH FONT INDIVIDUALLY.  *
//*    SEE YOUR PSF V3 R3.0 FOR OS/390 CUSTOMIZATION GUIDE  *
//*    FOR MORE INFORMATION REGARDING THESE VALUES.         *
//*                                                         *
//* 3) PSF MESSAGE APS585I WILL BE RECEIVED FOR CODED       *
//*    FONTS, INDICATING THAT THEY ARE NOT MARKABLE         *
//*    RESOURCES.  PSF MESSAGES APS586I AND APS592I WILL BE *
//*    RECEIVED FOR RESOURCES THAT ARE NOT VALID CODE       *
//*    PAGES, CHARACTER SETS, OR CODED FONTS.               *
//*                                                         *
//* 4) A RETURN CODE OF 8 MAY BE RETURNED FOR STEP1 OF THIS *
//*    JOB IF ANY OF THE ABOVE MESSAGES ARE ISSUED;         *
//*    HOWEVER, THIS DOES NOT PREVENT THE CORRECT MARKING   *
//*    OF UNMARKED RESOURCES THAT DO NOT RECEIVE WARNING OR *
//*    ERROR MESSAGES.                                      *
//*                                                         *
//* 5) IF SO DESIRED, UPDATE THE RRDATE AND THE RRTIME      *
//*    CONTROL STATEMENT PARAMETERS TO REFLECT THE CURRENT  *
//*    DATE AND TIME. (THIS IS NOT NECESSARY, HOWEVER, FOR  *
//*    CORRECTLY MARKING THE FONTS.)                        *
//*    NOTE:  THE RRDATE PARAMETER MUST EQUAL A NUMBER THAT *
//*    IS FIVE OR SIX DIGITS IN LENGTH.  THE RRTIME         *
//*    PARAMETER MUST EQUAL A NUMBER THAT IS EIGHT DIGITS   *
//*    IN LENGTH.  A "CHANGE ALL" EDITOR COMMAND MAY BE     *
//*    USED TO EXPEDITE THIS PROCESS.                       *
//*                                                         *
//* CHANGE ACTIVITY:                                        *
//* $B0=LAPS0009,HPRF330,121201,BDKUEAS: ORIGINAL       @B0A*
//***********************************************************
//STEP1    EXEC  PGM=APSRMARK
//*
//SYSPRINT DD SYSOUT=A
//*
//IN       DD UNIT=dasd,DISP=SHR,         <-- CHANGE TO PROPER UNIT
//            DSN=dsname1,                <-- CHANGE TO YOUR DSN
//            VOL=SER=volser              <-- CHANGE TO PROPER VOLSER
//OUT      DD UNIT=dasd,DISP=(NEW,CATLG), <-  CHANGE TO PROPER UNIT
//            DSN=dsname2,                <-- CHANGE TO YOUR DSN
//            VOL=SER=volser,             <-- CHANGE TO PROPER VOLSER
//            LIKE=dsname1                <-- CHANGE TO YOUR DSN
//SYSIN DD *
*
*MARK ALL MEMBERS IN THE EXISTING LIBRARY, AND MOVE TO NEW LIBRARY
 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=ALL                           X
 RRDATE=000000,RRTIME=00000000
*
/*
//STEP2    EXEC  PGM=APSRMARK
//*
//SYSPRINT DD SYSOUT=A
//*
//IN     DD DSN=dsname2,DISP=SHR          <-- CHANGE TO YOUR DSN
//SYSIN  DD *
*
*REPORT ON ALL MEMBERS IN THE NEW LIBRARY
 INDD=IN,MEMBER=ALL,REPORT
*
/*