//APSWMGML 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 * * DCF/GML 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,940207,BJ13LMM: WRONG RRID @01A* * $DU=LAPS0007,HPRF310,980604,BDKURLB: Version 3.1.0UA* * * ******************************************************* * *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 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0S0OCB0, X RRDATE=00000,RRTIME=00000000,RRID=0002E090 * *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 GOTHIC-TEXT.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0D0GT10, X RRDATE=00000,RRTIME=00000000,RRID=00028090 * *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.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 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 @01C INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0D0GT24, X RRDATE=00000,RRTIME=00000000,RRID=01220036 * *MARK FONT CHARACTER SET PI-SPECIALS - SANSERIF.8PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0P05580, X RRDATE=00000,RRTIME=00000000,RRID=C2370036 * *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 SONORAN-SERIF.6PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T05560, X RRDATE=00000,RRTIME=00000000,RRID=1137002A * *MARK FONT CHARACTER SET SONORAN-SERIF.9PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T05590, X RRDATE=00000,RRTIME=00000000,RRID=1137003C * *MARK FONT CHARACTER SET SONORAN-SERIF.BOLD.9PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T07590, X RRDATE=00000,RRTIME=00000000,RRID=114B003C * *MARK FONT CHARACTER SET SONORAN-SERIF.ITALIC.9PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T15590, X RRDATE=00000,RRTIME=00000000,RRID=11B7003C * *MARK FONT CHARACTER SET SONORAN-SERIF.ITALIC.BOLD.9PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T17590, X RRDATE=00000,RRTIME=00000000,RRID=11CB003C * *MARK FONT CHARACTER SET SONORAN-SERIF.10PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T05500, X RRDATE=00000,RRTIME=00000000,RRID=11370042 * *MARK FONT CHARACTER SET SONORAN-SERIF.BOLD.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T07500, X RRDATE=00000,RRTIME=00000000,RRID=114B0042 * *MARK FONT CHARACTER SET SONORAN-SERIF.ITALIC.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T15500, X RRDATE=00000,RRTIME=00000000,RRID=11B70042 * *MARK FONT CHARACTER SET SONORAN-SERIF.ITALIC.BOLD.10 INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T17500, X RRDATE=00000,RRTIME=00000000,RRID=11CB0042 * *MARK FONT CHARACTER SET SONORAN-SERIF.11PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T055A0, X RRDATE=00000,RRTIME=00000000,RRID=11370048 * *MARK FONT CHARACTER SET SONORAN-SERIF.ITALIC.11PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T155A0, X RRDATE=00000,RRTIME=00000000,RRID=11B70048 * *MARK FONT CHARACTER SET SONORAN-SERIF.12PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T055B0, X RRDATE=00000,RRTIME=00000000,RRID=1137004E * *MARK FONT CHARACTER SET SONORAN-SERIF.ITALIC.BOLD.12PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T175B0, X RRDATE=00000,RRTIME=00000000,RRID=11CB004E * *MARK FONT CHARACTER SET SONORAN-SERIF.BOLD.14PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T075D0, X RRDATE=00000,RRTIME=00000000,RRID=114B0060 * *MARK FONT CHARACTER SET SONORAN-SERIF.ITALIC.BOLD.18PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T175H0, X RRDATE=00000,RRTIME=00000000,RRID=11CB0078 * *MARK FONT CHARACTER SET SONORAN-SERIF.BOLD.20PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T075J0, X RRDATE=00000,RRTIME=00000000,RRID=114B0084 * *MARK FONT CHARACTER SET SONORAN-SERIF.ITALIC.BOLD.20PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T175J0, X RRDATE=00000,RRTIME=00000000,RRID=11CB0084 * *MARK FONT CHARACTER SET SONORAN-SERIF.BOLD.24PT INDD=IN,OUTDD=OUT,PUBLIC,REPLACE,MEMBER=C0T075N0, X RRDATE=00000,RRTIME=00000000,RRID=114B00A2 * *********************************************************** * MARK CODE PAGES PUBLIC FOR THE DCF/GML 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 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 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 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 /* //