Problem:

Cobol program fails a compile looking for Dliuib.Cpy

Resolution:

Here is a PC version of the host copybook that can be used in MFE:

       ****************************************************************

      *                                                              *

      *  NAME = DLIUIB                                               *

      *                                                              *

      *  DESCRIPTIVE NAME = EXTENDED CALL USER INTERFACE BLOCK       *

      *                                                              *

      *  FUNCTION = DESCRIBE USER INTERFACE BLOCK FIELDS             *

      *             THE UIB CONTAINS SCHEDULING AND SYSTEM CALL      *

      *             STATUS INFORMATION RETURNED TO THE USER          *

      *                                                              *

      ****************************************************************

       1   Dliuib.

      *     Uibpcbal PCB address list

        2  Uibpcbal          Pic S9(8) Comp.

        2  Uibpcbal-Ptr  Redefines  Uibpcbal

                         Usage is Pointer.

        2  Uibrcode          Pic XX.

      *      Uibrcode DL/I Return Codes

           88 Good-Return    Value x'0000'.

        2  Uib-Brkdown  Redefines  Uibrcode.

         3 Uibfctr           Pic X.

      *        Uibfctr Return Codes

           88 Fcnoresp       Value x'00'.

      *        (Normal Response)         Value X'00'

           88 Fcnotopen      Value x'0C'.

      *        (Not Open)                Value X'0C'

           88 Fcinvreq       Value x'08'.

      *        (Invalid Request)         Value X'08'

           88 Fcinvpcb       Value x'10'.

      *        (Invalid PCB)             Value X'10'

         3 Uibdltr           Pic X.

      *       Uibdltr Additional Information

           88 Uib-Dliprbm    Value x'00'.

      *        (Database Not in FCT)     Value X'00'

      *        (OR Not Open According to FCT)

      *        (OR Invalid Argument Passed to DL/I)

           88 Dlpsbnf        Value x'01'.

      *        (PSB Not Found)           Value X'01'

           88 Dltaskna       Value x'02'.

      *        (Task Not Authorized)     Value X'02'

           88 Dlpsbsch       Value x'03'.

      *        (PSB Already Scheduled)   Value X'03'

           88 Dllangcon      Value x'04'.

      *        (Language Conflict)       Value X'04'

           88 Dlpsbfail      Value x'05'.

      *        (PSB Init Failed)         Value X'05'

           88 Dlpsbna        Value x'06'.

      *        (PSB Not Authorized)      Value X'06'

           88 Dltermns       Value x'07'.

      *        (Term Not Successful)     Value X'07'

           88 Dlfuncns       Value x'08'.

      *        (Function Unscheduled)    Value X'08'

           88 Dlina          Value x'FF'.

      *        (DL/I Not Active)         Value X'FF'