//APSWMLG4 JOB (X,YY),'MSGLEVEL=1',MSGCLASS=A, // USER=userid,PASSWORD=password //STEP1 EXEC PGM=APSRMARK //SYSPRINT DD SYSOUT=class //* //IN DD UNIT=dasd,DSN=dsname1,DISP=SHR,VOL=SER=volser //OUT DD UNIT=dasd,DSN=dsname1,DISP=SHR,VOL=SER=volser //SYSIN DD * ******************************************************* * SAMPLE JOB TO * * MARK FONTS RESIDENT * * LANGUAGE GROUP 4 DISKETTE * * * * 1) VERIFY THAT THE FOLLOWING MEMBERS EXIST IN THE * * SPECIFIED FONT INPUT DATASET. IF ANY DO NOT EXIST * * IN THE DATASET, THEN THE CORRESPONDING APSRMARK * * CONTROL STATEMENTS FOR THOSE MEMBERS SHOULD BE * * DELETED FROM THIS SAMPLE JOB. IF NOT DELETED, A * * RETURN CODE OF EIGHT WILL BE ISSUED BY APSRMARK * * WHEN RUNNING THIS SAMPLE JOB. * * * * 2) VERIFY THAT THE VALUES SPECIFIED IN EACH RRID * * CONTROL STATEMENT PARAMETER ARE THE SAME AS THOSE * * CURRENTLY SPECIFIED IN YOUR PRINTER DOCUMENTATION. * * SEE YOUR PSF/MVS SYSTEM PROGRAMMING GUIDE FOR MORE * * INFORMATION REGARDING THESE VALUES. * * * * 3) IF SO DESIRED, UPDATE THE RRDATE AND RRTIME * * CONTROL STATEMENT PARAMETERS TO REFLECT THE CURRENT * * TIME AND DATE. 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. * * $01=OW01852,HPRF102,940121,BJ13LMM: WRONG RRID @01A* * $DU=LAPS0007,HPRF310,980604,BDKURLB: Version 3.1.0UA* * * ******************************************************* * *MARK FONT CHARACTER SET OCR-B.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0L00BOA, X RRDATE=00000,RRTIME=00000000,RRID=00030090 * *MARK FONT CHARACTER SET PRESTIGE.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0PR10, X RRDATE=00000,RRTIME=00000000,RRID=000C0090 * *MARK FONT CHARACTER SET COURIER.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0CR10, X RRDATE=00000,RRTIME=00000000,RRID=000B0090 * *MARK FONT CHARACTER SET COURIER.BOLD.10 @01C INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0CB10, X RRDATE=00000,RRTIME=00000000,RRID=002E0090 * *MARK FONT CHARACTER SET COURIER.ITALIC.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0CI10, X RRDATE=00000,RRTIME=00000000,RRID=00120090 * *MARK FONT CHARACTER SET OCR-A.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0L00AOA, X RRDATE=00000,RRTIME=00000000,RRID=00130090 * *MARK FONT CHARACTER SET GOTHIC-TEXT.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE.MEMBER=C0D0GT10, X RRDATE=00000,RRTIME=00000000,RRID=00280090 * *MARK FONT CHARACTER SET APL.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0AE10, X RRDATE=00000,RRTIME=00000000,RRID=002D0090 * *MARK FONT CHARACTER SET ORATOR.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0OR10, X RRDATE=00000,RRTIME=00000000,RRID=00050090 * *MARK FONT CHARACTER SET ORATOR.BOLD.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0OB10, X RRDATE=00000,RRTIME=00000000,RRID=00260090 * *MARK FONT CHARACTER SET GOTHIC-TEXT.BOLD.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0D0GB10, X RRDATE=00000,RRTIME=00000000,RRID=00270090 * *MARK FONT CHARACTER SET GOTHIC-TEXT.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0D0GT12, X RRDATE=00000,RRTIME=00000000,RRID=00420078 * *MARK FONT CHARACTER SET GOTHIC-TEXT.BOLD.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0D0GB12, X RRDATE=00000,RRTIME=00000000,RRID=00450078 * *MARK FONT CHARACTER SET GOTHIC-TEXT.ITALIC.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0D0GI12, X RRDATE=00000,RRTIME=00000000,RRID=00440078 * *MARK FONT CHARACTER SET COURIER.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0CE12, X RRDATE=00000,RRTIME=00000000,RRID=00550078 * *MARK FONT CHARACTER SET COURIER.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0CR12, X RRDATE=00000,RRTIME=00000000,RRID=00550078 * *MARK FONT CHARACTER SET COURIER.BOLD.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0CB12, X RRDATE=00000,RRTIME=00000000,RRID=006C0078 * *MARK FONT CHARACTER SET PRESTIGE.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0PR12, X RRDATE=00000,RRTIME=00000000,RRID=00560078 * *MARK FONT CHARACTER SET PRESTIGE.BOLD.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0PB12, X RRDATE=00000,RRTIME=00000000,RRID=006F0078 * *MARK FONT CHARACTER SET LETTER.GOTHIC.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0LR12, X RRDATE=00000,RRTIME=00000000,RRID=00570078 * *MARK FONT CHARACTER SET LETTER.GOTHIC.BOLD.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0LB12, X RRDATE=00000,RRTIME=00000000,RRID=006E0078 * *MARK FONT CHARACTER SET PRESTIGE.ITALIC.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0PI12, X RRDATE=00000,RRTIME=00000000,RRID=00700078 * *MARK FONT CHARACTER SET BOLDFACE.ITALIC.PSM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0BITR, X RRDATE=00000,RRTIME=00000000,RRID=009B0078 * *MARK FONT CHARACTER SET ESSAY.PSM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0ESTR, X RRDATE=00000,RRTIME=00000000,RRID=00A00078 * *MARK FONT CHARACTER SET ESSAY.BOLD.PSM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0EBTR, X RRDATE=00000,RRTIME=00000000,RRID=00A30078 * *MARK FONT CHARACTER SET ESSAY.ITALIC.PSM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0EITR, X RRDATE=00000,RRTIME=00000000,RRID=00A20078 * *MARK FONT CHARACTER SET ESSAY.LIGHT.PSM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0ELTR, X RRDATE=00000,RRTIME=00000000,RRID=00AD0078 * *MARK FONT CHARACTER SET DOCUMENT.PSM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0DOTR, X RRDATE=00000,RRTIME=00000000,RRID=00AF0078 * *MARK FONT CHARACTER SET GOTHIC-TEXT.13 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0D224, X RRDATE=00000,RRTIME=00000000,RRID=00CC006C * *MARK FONT CHARACTER SET GOTHIC-TEXT.15 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0D0GT15, X RRDATE=00000,RRTIME=00000000,RRID=00E60060 * *MARK FONT CHARACTER SET APL.20 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0AE20, X RRDATE=00000,RRTIME=00000000,RRID=00270090 * *MARK FONT CHARACTER SET GOTHIC-TEXT.20 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0D0GT20, X RRDATE=00000,RRTIME=00000000,RRID=01190048 * *MARK FONT CHARACTER SET GOTHIC-TEXT.27 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0D0GT24, X RRDATE=00000,RRTIME=00000000,RRID=01220036 * *MARK FONT CHARACTER SET SHALOM.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0H0HB10, X RRDATE=00000,RRTIME=00000000,RRID=00310090 * *MARK FONT CHARACTER SET SHALOM.12 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0H0HB12, X RRDATE=00000,RRTIME=00000000,RRID=00620078 * *MARK FONT CHARACTER SET SHALOM.15 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0H0HB15, X RRDATE=00000,RRTIME=00000000,RRID=00D30060 * *MARK FONT CHARACTER SET BARAK.PSM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0H0BRK2, X RRDATE=00000,RRTIME=00000000,RRID=00A70078 * *********************************************************** * MARK CODE PAGES PUBLIC FOR * * THE LANGUAGE GROUP 4 DISKETTE * *********************************************************** * *MARK CODE PAGE FOR THE UNITED STATES AND CANADIAN BILINGUAL INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP037, X RRDATE=00000,RRTIME=00000000,RRID=00000025 * *MARK CODE PAGE FOR THE UNITED STATES AND CANADIAN BILINGUAL INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10037, X RRDATE=00000,RRTIME=00000000,RRID=00000025 * *MARK CODE PAGE FOR INTERNATIONAL SET 1 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP256, X RRDATE=00000,RRTIME=00000000,RRID=00000100 * *MARK CODE PAGE FOR AUSTRIA/GERMANY INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP273, X RRDATE=00000,RRTIME=00000000,RRID=00000111 * *MARK CODE PAGE FOR AUSTRIA/GERMANY INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10273, X RRDATE=00000,RRTIME=00000000,RRID=00000111 * *MARK CODE PAGE FOR BELGIUM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP274, X RRDATE=00000,RRTIME=00000000,RRID=00000112 * *MARK CODE PAGE FOR BELGIUM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10274, X RRDATE=00000,RRTIME=00000000,RRID=00000112 * *MARK CODE PAGE FOR BRAZIL INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP275, X RRDATE=00000,RRTIME=00000000,RRID=00000113 * *MARK CODE PAGE FOR BRAZIL INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10275, X RRDATE=00000,RRTIME=00000000,RRID=00000113 * *MARK CODE PAGE FOR DENMARK/NORWAY INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP277, X RRDATE=00000,RRTIME=00000000,RRID=00000115 * *MARK CODE PAGE FOR DENMARK/NORWAY INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10277, X RRDATE=00000,RRTIME=00000000,RRID=00000115 * *MARK CODE PAGE FOR FINLAND/SWEDEN INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP278, X RRDATE=00000,RRTIME=00000000,RRID=00000116 * *MARK CODE PAGE FOR FINLAND/SWEDEN INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10278, X RRDATE=00000,RRTIME=00000000,RRID=00000116 * *MARK CODE PAGE FOR ITALY INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP280, X RRDATE=00000,RRTIME=00000000,RRID=00000118 * *MARK CODE PAGE FOR ITALY INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10280, X RRDATE=00000,RRTIME=00000000,RRID=00000118 * *MARK CODE PAGE FOR JAPAN (ENGLISH) INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP281, X RRDATE=00000,RRTIME=00000000,RRID=00000119 * *MARK CODE PAGE FOR JAPAN (ENGLISH) INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10281, X RRDATE=00000,RRTIME=00000000,RRID=00000119 * *MARK CODE PAGE FOR PORTUGAL INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP282, X RRDATE=00000,RRTIME=00000000,RRID=0000011A * *MARK CODE PAGE FOR PORTUGAL INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10282, X RRDATE=00000,RRTIME=00000000,RRID=0000011A * *MARK CODE PAGE FOR SPANISH AND SPANISH SPEAKING INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP284, X RRDATE=00000,RRTIME=00000000,RRID=0000011C * *MARK CODE PAGE FOR SPANISH AND SPANISH SPEAKING INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10284, X RRDATE=00000,RRTIME=00000000,RRID=0000011C * *MARK CODE PAGE FOR UNITED KINGDOM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP285, X RRDATE=00000,RRTIME=00000000,RRID=0000011D * *MARK CODE PAGE FOR UNITED KINGDOM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10285, X RRDATE=00000,RRTIME=00000000,RRID=0000011D * *MARK CODE PAGE FOR JAPAN KATAKANA INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1L02773, X RRDATE=00000,RRTIME=00000000,RRID=00000122 * *MARK CODE PAGE FOR JAPAN KATAKANA INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1L02774, X RRDATE=00000,RRTIME=00000000,RRID=00000122 * *MARK CODE PAGE FOR APL INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1S0AE10, X RRDATE=00000,RRTIME=00000000,RRID=00000125 * *MARK CODE PAGE FOR FRANCE INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GDP279, X RRDATE=00000,RRTIME=00000000,RRID=00000129 * *MARK CODE PAGE FOR FRANCE INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10297, X RRDATE=00000,RRTIME=00000000,RRID=00000129 * *MARK CODE PAGE FOR INTERNATIONAL TYPOGRAPHIC 500 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0361, X RRDATE=00000,RRTIME=00000000,RRID=00000169 * *MARK CODE PAGE FOR AUSTRIA/GERMANY INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0382, X RRDATE=00000,RRTIME=00000000,RRID=0000017E * *MARK CODE PAGE FOR BELGIUM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0383, X RRDATE=00000,RRTIME=00000000,RRID=0000017F * *MARK CODE PAGE FOR BRAZIL INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0384, X RRDATE=00000,RRTIME=00000000,RRID=00000180 * *MARK CODE PAGE FOR CANADIAN FRENCH INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0385, X RRDATE=00000,RRTIME=00000000,RRID=00000181 * *MARK CODE PAGE FOR DENMARK/NORWAY INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0386, X RRDATE=00000,RRTIME=00000000,RRID=00000182 * *MARK CODE PAGE FOR FINLAND/SWEDEN INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0387, X RRDATE=00000,RRTIME=00000000,RRID=00000183 * *MARK CODE PAGE FOR FRANCE/LUXEMBURG INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0388, X RRDATE=00000,RRTIME=00000000,RRID=00000184 * *MARK CODE PAGE FOR ITALY INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0389, X RRDATE=00000,RRTIME=00000000,RRID=00000185 * *MARK CODE PAGE FOR JAPAN - LATIN INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0390, X RRDATE=00000,RRTIME=00000000,RRID=00000186 * *MARK CODE PAGE FOR PORTUGAL INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0391, X RRDATE=00000,RRTIME=00000000,RRID=00000187 * *MARK CODE PAGE FOR SPAIN/PHILLIPINES INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0392, X RRDATE=00000,RRTIME=00000000,RRID=00000188 * *MARK CODE PAGE FOR SPANISH SPEAKING INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0393, X RRDATE=00000,RRTIME=00000000,RRID=00000189 * *MARK CODE PAGE FOR THE UNITED KINGDOM INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0394, X RRDATE=00000,RRTIME=00000000,RRID=0000018A * *MARK CODE PAGE FOR THE UNITED STATES @01C INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GI0395, X RRDATE=00000,RRTIME=00000000,RRID=0000018B * *MARK CODE PAGE FOR ARABIC INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1000420, X RRDATE=00000,RRTIME=00000000,RRID=000001A4 * *MARK CODE PAGE FOR HEBREW INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1000424, X RRDATE=00000,RRTIME=00000000,RRID=000001A8 * *MARK CODE PAGE FOR THE PERSONAL COMPUTER INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1GPI363, X RRDATE=00000,RRTIME=00000000,RRID=000001B5 * *MARK CODE PAGE FOR INTERNATIONAL SET 5 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1V10500, X RRDATE=00000,RRTIME=00000000,RRID=000001F4 * *MARK CODE PAGE FOR OCR-A INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1L0OCR1, X RRDATE=00000,RRTIME=00000000,RRID=0000037C * *MARK CODE PAGE FOR OCR-B INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1L0OCRB, X RRDATE=00000,RRTIME=00000000,RRID=0000037D * *MARK CODE PAGE FOR T1D0BASE INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1D0BASE, X RRDATE=00000,RRTIME=00000000,RRID=000003EA * *MARK CODE PAGE FOR U.S. TEXT SUBSET INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=T1DCDCFS, X RRDATE=00000,RRTIME=00000000,RRID=000003EB /* //