TITLE 'APSRGTNM - FONT MEMBER NAMES TO GRID PARTS TABLES' 00010000 APSRGTNM START 0 00020000 */****START OF SPECIFICATIONS********************EXTPROC**************/ 00030000 */* */ 00040000 */* MODULE NAME: APSRGTNM */ 00050000 */* */ 00060000 */* DESCRIPTIVE NAME: GRID-TO-NAMES USER MAPPING TABLE */ 00070000 */* */ 00080000 */* FUNCTION: THIS MODULE PROVIDES THE ABILITY FOR THE USER */ 00090000 */* TO ADD ENTRIES FOR CODE PAGE AND CHARACTER SET */ 00100000 */* GRID-TO-MEMBER-NAME MAPPING. @01C*/ 00110000 */* */ 00120000 */* NOTES: */ 00130000 */* DEPENDENCIES: NONE */ 00140000 */* RESTRICTIONS: NONE */ 00150000 */* REGISTER CONVENTIONS: NONE */ 00160000 */* PATCH LABEL: NONE */ 00170000 */* */ 00180000 */* MODULE TYPE: PROCEDURE */ 00190000 */* PROCESSOR: OS ASSEMBLER H */ 00200000 */* ATTRIBUTES: NO EXECUTABLE CODE */ 00210000 */* */ 00220000 */* */ 00230000 */* ENTRY POINT: APSRGTFN */ 00240000 */* PURPOSE: THIS TABLE MAPS GRID PARTS (FGID, */ 00250000 */* GCSGID, FW) AND VERTICAL FONT SIZE TO THEIR */ 00260000 */* CORRESPONDING MEMBER NAMES. EACH ENTRY ALSO */ 00270000 */* HAS A TECHNOLOGY ID ASSOCIATED WITH IT. THE */ 00280000 */* TABLE IS TERMINATED BY A STRING OF XL2'FFFF'. */ 00290000 */* @01C*/ 00300000 */* THE FORMAT OF EACH ENTRY IS AS FOLLOWS. */ 00310000 */* BYTES 0-1 FONT GLOBAL ID (FGID) */ 00320000 */* BYTES 2-3 GRAPHIC CHARACTER SET GLOBAL ID */ 00330000 */* (GCSGID) @01C*/ 00340000 */* BYTES 4-5 FONT WIDTH */ 00350000 */* BYTES 6 FLAGS - RESERVED, MUST BE ZERO @01A*/ 00360000 */* BYTES 7 TECHNOLOGY ID */ 00370000 */* VALID TECHNOLOGY IDS ARE: */ 00380000 */* X'05' RASTER (SINGLE-BYTE) */ 00390000 */* X'1F' TYPE 1 OUTLINE (SINGLE-BYTE) */ 00400000 */* BYTES 8-9 VERTICAL FONT SIZE */ 00410000 */* BYTES 10-17 FONT CHARACTER SET NAME */ 00420000 */* LINKAGE: NONE */ 00430000 */* */ 00440000 */* ENTRY POINT: APSRGTCP */ 00450000 */* PURPOSE: THIS TABLE MAPS GRID PARTS (CPGID @01C*/ 00460000 */* AND GCSGID) TO THEIR CORRESPONDING CODE PAGE */ 00470000 */* MEMBER NAMES. THE TABLE IS TERMINATED BY A */ 00480000 */* STRING OF XL2'FFFF'. THE FORMAT OF EACH */ 00490000 */* ENTRY IS AS FOLLOWS. */ 00500000 */* BYTES 0-1 CODE PAGE GLOBAL ID (CPGID) */ 00510000 */* BYTES 2-3 CODE PAGE GRAPHIC CHARACTER SET */ 00520000 */* GLOBAL ID (GCSGID) */ 00530000 */* BYTES 4-11 CODE PAGE NAME */ 00540000 */* LINKAGE: NONE */ 00550000 */* */ 00560000 */* */ 00570000 */* MESSAGES: NONE */ 00580000 */* */ 00590000 */* CHANGE ACTIVITY */ 00600000 */* */ 00610000 */* $00=LASP0006,HPRF220, 930903, BJ13ATF: RELEASE 2.2.0 @00A*/ 00620000 */* $01=OW08340, HPRF220, 941020, BJ13DDA: Outline Font D-APAR @01A*/ 00630000 */* $DU=LAPS0007,HPRF310,980604,BDKURLB: Version 3.1.0 @DUA*/ 00640000 */* $DX=LAPS0008,HPRF320,991117,BUQ4RLB: Version 3.2.0 @DXA*/ 00650000 */* $EV=LAPS0009,HPRF330,010530,BUQ4RLB: Version 3.3.0 @EVA*/ 00650000 */* */ 00660000 */**********************END OF SPECIFICATIONS*************************/ 00670000 */********************************************************************/ 00680000 */* */ 00690000 */* BAL CODE FOLLOWS */ 00700000 */* */ 00710000 */********************************************************************/ 00720000 APSRGTNM CSECT ENTRY POINT OF THIS MODULE 00730000 APSRGTNM AMODE 31 DO NOT REMOVE/CHANGE 00740000 APSRGTNM RMODE ANY DO NOT REMOVE/CHANGE 00750000 GTFN@ DC V(APSRGTFN) DO NOT REMOVE/CHANGE 00760000 GTCP@ DC V(APSRGTCP) DO NOT REMOVE/CHANGE 00770000 ****************************************************************** 00780000 * THE FOLLOWING IS THE GRID-PARTS-TO-CHARACTER-SET TABLE. * 00790000 ****************************************************************** 00800000 ENTRY APSRGTFN DO NOT REMOVE/CHANGE 00810000 APSRGTFN DS 0D DO NOT REMOVE/CHANGE 00820000 ****************************************************************** 00830000 **THE FOLLOWING 6 LINES ARE FOR FGID 2308 (X'0904'). * 00840000 **THIS ENTRY PROVIDED TO ILLUSTRATE THE FORMAT OF A TABLE ENTRY. * 00850000 ****************************************************************** 00860000 ** DC H'2308' FGID AS DECIMAL NUMBER 00870000 ** (OR USE " DC XL2'NNNN' " FOR HEX NUM) 00880000 ** DC H'2039' GCSGID AS DECIMAL NUMBER 00890000 ** (OR USE " DC XL2'NNNN' " FOR HEX NUM) 00900000 ** DC H'0080' FONT WIDTH AS DECIMAL NUMBER 00910000 ** (OR USE " DC XL2'NNNN' " FOR HEX NUM) 00920000 ** DC XL1'00' RESERVED, MUST BE ZERO. 00930000 ** DC XL1'05' TECHNOLOGY ID 00940000 ** DC H'0240' VERTICAL FONT SIZE AS DECIMAL NUMBER 00950000 ** (OR USE " DC XL2'NNNN' " FOR HEX NUM) 00960000 ** DC CL8'C0N200B0' FONT CHARACTER SET NAME 00970000 ****************************************************************** 00980000 **THE FOLLOWING 6 LINES MARK THE END OF APSRFNTG. * 00990000 ****************************************************************** 01000000 DC XL2'FFFF' DO NOT REMOVE/CHANGE 01010000 DC XL2'FFFF' DO NOT REMOVE/CHANGE 01020000 DC XL2'FFFF' DO NOT REMOVE/CHANGE 01030000 DC XL1'FF' DO NOT REMOVE/CHANGE 01040000 DC XL1'FF' DO NOT REMOVE/CHANGE 01050000 DC XL2'FFFF' DO NOT REMOVE/CHANGE 01060000 DC CL8'FFFFFFFF' DO NOT REMOVE/CHANGE 01070000 ****************************************************************** 01080000 * THE FOLLOWING IS THE CODE-PAGE-TO-GRID PARTS TABLE. * 01090000 ****************************************************************** 01100000 ENTRY APSRGTCP DO NOT REMOVE/CHANGE 01110000 APSRGTCP DS 0D DO NOT REMOVE/CHANGE 01120000 ****************************************************************** 01130000 **THE FOLLOWING 3 LINES ARE FOR CPGID 500 (X'01F4'). * 01140000 **THIS ENTRY PROVIDED TO ILLUSTRATE THE FORMAT OF A TABLE ENTRY. * 01150000 ****************************************************************** 01160000 ** DC H'0500' CPGID AS DECIMAL NUMBER 01170000 ** (OR USE " DC XL2'NNNN' " FOR HEX NUM) 01180000 ** DC H'0697' CODE PAGE GCSGID AS DECIAML NUMBER 01190000 ** (OR USE " DC XL2'NNNN' " FOR HEX NUM) 01200000 ** DC CL8'T1V10500' CODE PAGE NAME 01210000 ****************************************************************** 01220000 **THE FOLLOWING 3 LINES MARK THE END OF APSRCPTG. * 01230000 ****************************************************************** 01240000 DC XL2'FFFF' DO NOT REMOVE/CHANGE 01250000 DC XL2'FFFF' DO NOT REMOVE/CHANGE 01260000 DC CL8'FFFFFFFF' DO NOT REMOVE/CHANGE 01270000 ****************************************************************** 01280000 **THE FOLLOWING LINE MARKS THE END OF APSRGTNM. * 01290000 ****************************************************************** 01300000 END APSRGTNM DO NOT REMOVE/CHANGE 01310000