Reorganize MEDDFN project structure

2026-08-14 18:32:52 +02:00
parent f21bd27d03
commit 32f2718d61
7 changed files with 0 additions and 0 deletions
@@ -0,0 +1,218 @@
+**FREE
+//=====================================================================
+//
+// Program......: MEDDFNTSTP
+//
+// Description..: MEDDFN Builder Test Program
+// Erstellen mit :
+// CRTPGM PGM(GOSCH/MEDDFNTSTP)
+//        MODULE(GOSCH/MEDDFNTSTP)
+//        BNDSRVPGM(GOSCH/MEDDFNSRV)
+//        ACTGRP(*NEW)
+//        TGTRLS(*CURRENT)
+//
+//
+//
+//
+//=====================================================================
+
+ctl-opt
+//   dftactgrp(*no)
+//   actgrp(*new)
+   option(*srcstmt:*nodebugio);
+
+/copy GOSCH/MEDDFN,MEDDFN_H
+/copy GOSCH/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         = 'GOSCH';
+   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;