* %GOTO BINDPLS; /* BILINGUAL HEADER 00900010 MACRO 01800010 TBINDD 02700010 .*A000000-999999 @Y17XAXF 03600010 IEDBIN DSECT 04500010 * 05400010 * DSECT FOR ENTRY WITHIN BIND IMAGE TABLE 06300010 * 07200010 BINNAME DS CL8 . NAME OF ENTRY 08100010 BINLEN DS XL2 . LENGTH OF BIND IMAGE 09000010 BINIMAGE EQU * . START OF BIND IMAGE 09900010 BINBLEN EQU *-IEDBIN LENGTH OF ENTRY WITHOUT BIND IMAGE 10800010 MEND */ 11200010 *%BINDPLS:; 11700010 *DECLARE 48600010 * 1 IEDBIN BASED(RBIN), 49500010 */* */ 50400010 */* DSECT FOR ENTRY WITHIN BIND IMAGE TABLE */ 51300010 */* */ 52200010 * 2 BINNAME CHAR(8), /* NAME OF ENTRY */ 53100010 * 2 BINLEN FIXED(16), /* LENGTH OF BIND IMAGE */ 54000010 * 2 BINIMAGE CHAR(0); /* START OF BIND IMAGE */ 54900010 * %BINBLEN='LENGTH(IEDBIN)'; /* LENGTH OF BIND ENTRY WITHOUT 55200010 * BIND IMAGE */ 55500010 */* @YM07701*/ 57500010 *DECLARE /*@YM07701*/ 59500010 * 1 BINBUD BASED, /*@YM07701*/ 61500010 */* @YM07701*/ 63500010 */* DSECT FOR BIND IMAGE USER DATA @YM07701*/ 65500010 */* @YM07701*/ 67500010 * 2 BINUDATL FIXED(8), /* USER DATA LENGTH @YM07701*/ 69500010 * 2 BINUDAT CHAR(0); /* USER DATA @YM07701*/ 71500010 */* @YM07701*/ 73500010 *DECLARE /*@YM07701*/ 75500010 * 1 BINBLD BASED, /*@YM07701*/ 77500010 */* @YM07701*/ 79500010 */* DSECT FOR MH LOGON PREFIX DATA @YM07701*/ 81500010 */* @YM07701*/ 83500010 * 2 BINLDATL FIXED(8), /* LOGON PREFIX LEN @YM07701*/ 85500010 * 2 BINLDAT CHAR(0); /* LOGON DATA @YM07701*/ 87500010