/********************************************************************/ 00050004
 /*                                                                  */ 00100004
 /*   MACRO NAME = IDASFI                                            */ 00150004
 /*                                                                  */ 00200004
 /*   DESCRIPTIVE NAME = SUB-FUNCTION INFORMATION.                   */ 00250004
 /*                                                                  */ 00300004
 /*   FUNCTION = IDASFI DEFINES THE STRUCTURE OF THE PROBLEM         */ 00310004
 /*              DETERMINATION SUB-FUNCTION INFORMATION AREA.        */ 00320004
 /*                                                                  */ 00330004
 /*   CONTROL BLOCK STRUCTURE = N/A                                  */ 00340004
 /*                                                                  */ 00342004
 /*   INCLUDED MACROS = NONE                                         */ 00344004
 /*                                                                  */ 00346004
 /*   METHOD OF ACCESS = PL/S - RESPECIFY IDASFI BASED.              */ 00348004
 /*                                                                  */ 00348404
 /*   CREATED BY: N/A                                                */ 00348804
 /*                                                                  */ 00349204
 /*   STATUS = VS/1 RELEASE 4, VS2 RELEASE 3.                        */ 00349604
 /*                                                                  */ 00349704
 /*   DATE OF LAST CHANGE = 29 APRIL 74                              */ 00349804
 /*                                                                  */ 00349904
 /********************************************************************/ 00366604
   DCL 1 IDASFI BDY(WORD) BASED,    /* SUB-FUNCTION INFORMATION      */ 00383304
       2 SFIDESC FIXED(8),          /* FORMAT DESCRIPTOR CODE        */ 00400004
       2 * CHAR(3),                 /* UNUSED                        */ 00450004
       2 SFIRETCD FIXED(31),        /* SUB-FUNCTION RETURN CODE      */ 00500004
       2 * CHAR(1),                 /* RESERVED FOR REASON CODE      */ 00550004
       2 SFIRSNCD FIXED(8),         /* REASON CODE                   */ 00600004
       2 SFIMODID CHAR(2);          /* LAST TWO CHAR'S OF MOD NAME   */ 00650004