**FREE
//=====================================================================
//
// Program......: MEDDFNTSTP
//
// Description..: MEDDFN Builder Test Program
// Erstellen mit :
// CRTPGM PGM(GOSCH1/MEDDFNTSTP)
//        MODULE(GOSCH1/MEDDFNTSTP)
//        BNDSRVPGM(GOSCH1/MEDDFNSRV)
//        ACTGRP(*NEW)
//        TGTRLS(*CURRENT)
//
//
//
//
//=====================================================================

ctl-opt
//   dftactgrp(*no)
//   actgrp(*new)
   option(*srcstmt:*nodebugio);


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

// /copy GOSCH1/MEDDFN,MEDDFN_H
// /copy GOSCH1/MEDDFN,MEDDFNPR

dcl-ds MediaDefinition
   likeds(MD_MediaDefinition_T);



dcl-pr BuildTestDefinition;
end-pr;

BuildTestDefinition();

monitor;

   MD_DeleteMediaDefinition(
      MediaDefinition);

on-error;

endmon;


MD_CreateMediaDefinition(
   MediaDefinition);


*inlr = *on;
return;

//=====================================================================
//
// BuildTestDefinition
//
// Builds a simple test media definition:
//
//   1 Device
//     1 Media File
//       VOL001
//       VOL002
//
//=====================================================================

dcl-proc BuildTestDefinition;

   dcl-pi *n;
   end-pi;


   clear MediaDefinition;


   //---------------------------------------------------------------
   // General
   //---------------------------------------------------------------

   MediaDefinition.MediaDefinitionName = 'TEST0200X';
   MediaDefinition.LibraryName         = 'GOSCH1';
   MediaDefinition.TextDescription     = 'Test MEDDFN';

   MediaDefinition.MaximumParallelResources = 2;
MediaDefinition.MinimumParallelResources = 2;

MediaDefinition.DeviceAllocation = MD_DeviceAllocateAll;
MediaDefinition.SaveFormat       = MD_SaveFormatParallel;

MediaDefinition.NumberOfDevices = 2;


//---------------------------------------------------------------
// Device 1 / Resource 1
//---------------------------------------------------------------

MediaDefinition.Device(1).DeviceName = 'TAPMLBBRMS';

MediaDefinition.Device(1).NumberOfMediaFiles = 1;

MediaDefinition.Device(1)
   .MediaFile(1)
   .SequenceNumber = 0;

MediaDefinition.Device(1)
   .MediaFile(1)
   .StartingPositionInFile = *ALL'0';

MediaDefinition.Device(1)
   .MediaFile(1)
   .NumberOfVolumeIdentifiers = 1;

MediaDefinition.Device(1)
   .MediaFile(1)
   .VolumeIdentifier(1)
   .VolumeIdentifier = 'DAK066';


//---------------------------------------------------------------
// Device 2 / Resource 2
//---------------------------------------------------------------

MediaDefinition.Device(2).DeviceName = 'TAPMLBBRMS';

MediaDefinition.Device(2).NumberOfMediaFiles = 1;

MediaDefinition.Device(2)
   .MediaFile(1)
   .SequenceNumber = 0;

MediaDefinition.Device(2)
   .MediaFile(1)
   .StartingPositionInFile = *ALL'0';

MediaDefinition.Device(2)
   .MediaFile(1)
   .NumberOfVolumeIdentifiers = 1;

MediaDefinition.Device(2)
   .MediaFile(1)
   .VolumeIdentifier(1)
   .VolumeIdentifier = 'DAK079';

end-proc;


//=====================================================================
//
// BuildTestDefinition
//
//=====================================================================

dcl-proc BuildTestDefinitionOld;

   dcl-pi *n;
   end-pi;

   clear MediaDefinition;

   //--------------------------------------------------------------
   // Media Definition
   //--------------------------------------------------------------

   MediaDefinition.MediaDefinitionName      = 'TEST0200';
   MediaDefinition.LibraryName              = 'QTEMP';
   MediaDefinition.TextDescription          = 'MEDDFN Test';

   MediaDefinition.Replace                  = *on;

   MediaDefinition.DeviceAllocation         = MD_DeviceAllocateAll;
   MediaDefinition.SaveFormat               = MD_SaveFormatParallel;

   MediaDefinition.MaximumParallelResources = 1;
   MediaDefinition.MinimumParallelResources = 1;

   //--------------------------------------------------------------
   // Device
   //--------------------------------------------------------------

   MediaDefinition.NumberOfDevices = 1;

   MediaDefinition.Device(1).DeviceName =
      'TAPMLBBRMS';

   MediaDefinition.Device(1).NumberOfMediaFiles = 1;

   //--------------------------------------------------------------
   // Media File
   //--------------------------------------------------------------

   MediaDefinition.Device(1)
      .MediaFile(1)
      .SequenceNumber = 0;

   MediaDefinition.Device(1)
      .MediaFile(1)
      .StartingPositionInFile = *ALLX'00';
    //  .StartingPositionInFile = '*FIRST';

   MediaDefinition.Device(1)
      .MediaFile(1)
      .NumberOfVolumeIdentifiers = 0;

   //--------------------------------------------------------------
   // Volume IDs
   //--------------------------------------------------------------

  // MediaDefinition.Device(1)
  //    .MediaFile(1)
  //    .VolumeIdentifier(1)
  //    .VolumeIdentifier = 'VOL001';

  // MediaDefinition.Device(1)
  //    .MediaFile(1)
  //    .VolumeIdentifier(2)
  //    .VolumeIdentifier = 'VOL002';

end-proc;