MEDDFN/meddfntstx.rpgle

**FREE

//=====================================================================
//
// Program.......: MEDDFNTSTX
//
// Description...: MEDDFN Parser Error Test Program
//
//=====================================================================

ctl-opt
   option(*srcstmt:*nodebugio);


/COPY './meddfn_h.rpgle'
/COPY './meddfnap_h.rpgle'


//=====================================================================
//
// Parser Prototype
//
//=====================================================================

dcl-pr MD_ParseRetrieveBuffer;

   ReceiverBuffer
      char(32767) const
      options(*varsize);

   ReceiverLength
      int(10) const;

   MediaDefinition
      likeds(MD_MediaDefinition_T);

   Error
      likeds(MD_Error_T);

end-pr;


//=====================================================================
//
// Data
//
//=====================================================================

dcl-s ReceiverBuffer
   char(32767);

dcl-s ReceiverLength
   int(10);

dcl-ds MediaDefinition
   likeds(MD_MediaDefinition_T);

dcl-ds Error
   likeds(MD_Error_T);


//=====================================================================
//
// Main
//
//=====================================================================

TestReceiverTooSmall();

TestInvalidHeader();

TestInvalidDevice();


dsply '----------------------------------------';
dsply 'MEDDFN Parser Error Test completed';
dsply '----------------------------------------';

*inlr = *on;
return;


//=====================================================================
//
// TestReceiverTooSmall
//
// Tests parser handling of a receiver buffer that is too small
// for a TAPE0200 header.
//
// Expected error:
//
//   MDF2005 - Receiver buffer too small
//
//=====================================================================

dcl-proc TestReceiverTooSmall;

   dsply '----------------------------------------';
   dsply 'Test: Receiver buffer too small';
   dsply '----------------------------------------';


   clear ReceiverBuffer;
   clear MediaDefinition;
   clear Error;

   ReceiverLength = 1;


   monitor;

      MD_ParseRetrieveBuffer(
         ReceiverBuffer :
         ReceiverLength :
         MediaDefinition :
         Error);

   on-error;

      dsply 'FAIL Unexpected runtime error';
      return;

   endmon;


   if Error.HasError;
      dsply 'PASS Error.HasError';
   else;
      dsply 'FAIL Error.HasError';
   endif;


   if Error.MessageID = 'MDF2005';
      dsply 'PASS Error.MessageID';
   else;
      dsply 'FAIL Error.MessageID';
   endif;


   if %trim(Error.MessageData) = '';
      dsply 'PASS Error.MessageData';
   else;
      dsply 'FAIL Error.MessageData';
   endif;

end-proc;


//=====================================================================
//
// TestInvalidHeader
//
// Tests parser handling of an invalid TAPE0200 header.
//
// The receiver buffer is large enough for the complete header, but
// LengthOfHeader contains an invalid value.
//
// Expected error:
//
//   MDF2001 - Invalid TAPE0200 header
//
//=====================================================================

dcl-proc TestInvalidHeader;

   dcl-ds Header
      likeds(MD_Tape0200Header_T)
      inz;


   dsply '----------------------------------------';
   dsply 'Test: Invalid TAPE0200 header';
   dsply '----------------------------------------';


   clear ReceiverBuffer;
   clear MediaDefinition;
   clear Error;
   clear Header;


   Header.LengthOfHeader = 0;


   %subst(
      ReceiverBuffer :
      1 :
      %size(Header)) = Header;


   ReceiverLength = %size(Header);


   monitor;

      MD_ParseRetrieveBuffer(
         ReceiverBuffer :
         ReceiverLength :
         MediaDefinition :
         Error);

   on-error;

      dsply 'FAIL Unexpected runtime error';
      return;

   endmon;


   if Error.HasError;
      dsply 'PASS Error.HasError';
   else;
      dsply 'FAIL Error.HasError';
   endif;


   if Error.MessageID = 'MDF2001';
      dsply 'PASS Error.MessageID';
   else;
      dsply 'FAIL Error.MessageID';
   endif;


   if %trim(Error.MessageData) = '';
      dsply 'PASS Error.MessageData';
   else;
      dsply 'FAIL Error.MessageData';
   endif;

end-proc;


//=====================================================================
//
// TestInvalidDevice
//
// Tests parser handling of an invalid TAPE0200 device definition.
//
// The receiver contains a valid header and one device definition.
// The device definition has an invalid structure length.
//
// Expected error:
//
//   MDF2002 - Invalid device definition
//
//=====================================================================

dcl-proc TestInvalidDevice;

   dcl-ds Header
      likeds(MD_Tape0200Header_T)
      inz;

   dcl-ds Device
      likeds(MD_Tape0200DeviceDefinition_T)
      inz;


   dsply '----------------------------------------';
   dsply 'Test: Invalid TAPE0200 device definition';
   dsply '----------------------------------------';


   clear ReceiverBuffer;
   clear MediaDefinition;
   clear Error;
   clear Header;
   clear Device;


   //===============================================================
   // Valid header
   //===============================================================

   Header.MaximumParallelDeviceResources = 0;

   Header.MinimumParallelDeviceResources = 0;

   Header.OffsetToFirstDeviceDefinition =
      %size(Header);

   Header.NumberOfDeviceDefinitions = 1;

   Header.LengthOfHeader =
      %size(Header);

   Header.DeviceAllocation =
      MD_DeviceAllocateAll;

   Header.SaveFormat =
      MD_SaveFormatSerial;


   //===============================================================
   // Invalid device definition
   //===============================================================

   Device.OffsetToNextDeviceDefinition = 0;

   Device.DeviceName = 'TAPMLBBRMS';

   Device.OffsetToFirstMediaFileDefinition =
      %size(Device);

   Device.NumberOfMediaFileDefinitions = 1;

   // Deliberately invalid.
   Device.LengthOfDeviceDefinition = 0;


   //===============================================================
   // Header and device into receiver buffer
   //===============================================================

   %subst(
      ReceiverBuffer :
      1 :
      %size(Header)) = Header;


   %subst(
      ReceiverBuffer :
      %size(Header) + 1 :
      %size(Device)) = Device;


   ReceiverLength =
      %size(Header)
      + %size(Device);


   monitor;

      MD_ParseRetrieveBuffer(
         ReceiverBuffer :
         ReceiverLength :
         MediaDefinition :
         Error);

   on-error;

      dsply 'FAIL Unexpected runtime error';
      return;

   endmon;


   if Error.HasError;
      dsply 'PASS Error.HasError';
   else;
      dsply 'FAIL Error.HasError';
   endif;


   if Error.MessageID = 'MDF2002';
      dsply 'PASS Error.MessageID';
   else;
      dsply 'FAIL Error.MessageID';
   endif;


   if %trim(Error.MessageData) = '';
      dsply 'PASS Error.MessageData';
   else;
      dsply 'FAIL Error.MessageData';
   endif;

end-proc;