* %GOTO PLSUSSF; /* 00000910 MACRO 00001810 TUSSFD 00002710 .*A000000-999999 @Y17XAXF 00003610 * 00004510 * USS->FSS FLAG BYTE DSECT 00005410 * 00006310 IEDUSSF DSECT 00007210 USSFLAG DS XL1 . ENTRY FLAG BYTE 00008110 *USSFTYPE X'80'-X'20' TYPE OF ENTRY 00009010 USSFVERB EQU X'20' . VERB ENTRY 00009910 USSFPOS EQU X'40' . POSITIONAL PARM ENTRY 00010810 USSFKEY EQU X'60' . KEYWORD ENTRY 00011710 USSFVAL EQU X'80' . VALUE ENTRY 00012610 USSFFMT EQU X'10' . IEDQFM USAGE BIT 00013510 * EQU X'08'-X'01' RESERVED 00014410 * USS TABLE TYPE 00015310 USSTYPE EQU C'1' . USS INDICATOR 00016210 MEND */ 00017110 *%PLSUSSF:; 00018010 */* */ 00018910 */* USS->FSS FLAG BYTE DSECT */ 00019810 */* */ 00020710 * DECLARE 00021610 * 1 IEDUSSF BASED, 00022510 * 2 USSFLAG BIT(8), /* ENTRY FLAG BYTE */ 00023410 * 3 USSFTYPE BIT(3), /* TYPE OF ENTRY */ 00024310 * 3 USSFFMT BIT(1), /* IEDQFM USAGE BIT */ 00025210 * 3 * BIT(4); /* RESERVED */ 00026110 */* */ 00027010 */* CONSTANTS FOR USSFTYPE FIELD */ 00027910 */* */ 00028810 * DCL USSFVERB BIT(3) CONSTANT('001'B); /* VERB ENTRY */ 00029710 * DCL USSFPOS BIT(3) CONSTANT('010'B); /* POSITIONAL PARM ENTRY */ 00030610 * DCL USSFKEY BIT(3) CONSTANT('011'B); /* KEYWORD ENTRY */ 00031510 * DCL USSFVAL BIT(3) CONSTANT('100'B); /* VALUE ENTRY */ 00032410 */* */ 00033310 */* USS TABLE TYPE */ 00034210 */* */ 00035110 * DCL USSTYPE BIT(8) CONSTANT('F1'X); /* USS INDICATOR */ 00036010