ecki/MEDDFN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MEDDFNHTST korrigiert für parallel

Browse Source
This commit is contained in:
Eckhard Gosch
2026-10-09 10:17:22 +02:00
parent 2031645ead
commit 464c673630
1 changed files with 73 additions and 126 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfnhtst.rpgle
+72 -125
View File
@@ -4,7 +4,10 @@
// //
// Program......: MEDDFNHTST // Program......: MEDDFNHTST
// //
// Description..: MEDDFN Hardware Test Program // Description..: MEDDFN hardware test program
//
// Creates one media definition for six parallel streams
// using the same tape library device and six media files.
// //
// Erstellen mit: // Erstellen mit:
// //
@@ -38,38 +41,19 @@ ctl-opt
dcl-pi *n; dcl-pi *n;
pMediaDef pMediaDefinitionName char(10) const;
char(10) const; pLibraryName char(10) const;
pDeviceName char(10) const;
pLibrary pVolume1 char(6) const;
char(10) const; pVolume2 char(6) const;
pVolume3 char(6) const;
pVolume4 char(6) const;
pVolume5 char(6) const;
pVolume6 char(6) const;
pDevice pTextDescription char(50) const;
char(10) const; pReplace char(4) const;
pVolume1
char(6) const;
pVolume2
char(6) const;
pVolume3
char(6) const;
pVolume4
char(6) const;
pVolume5
char(6) const;
pVolume6
char(6) const;
pText
char(50) const;
pReplace
char(4) const;
end-pi; end-pi;
@@ -96,19 +80,16 @@ dcl-ds Error
clear MediaDefinition; clear MediaDefinition;
MediaDefinition.MediaDefinitionName = MediaDefinition.MediaDefinitionName =
pMediaDef; pMediaDefinitionName;
MediaDefinition.LibraryName = MediaDefinition.LibraryName =
pLibrary; pLibraryName;
MediaDefinition.TextDescription = MediaDefinition.TextDescription =
pText; pTextDescription;
MediaDefinition.MaximumParallelResources = MediaDefinition.Replace =
1; (pReplace = '*YES');
MediaDefinition.MinimumParallelResources =
1;
MediaDefinition.DeviceAllocation = MediaDefinition.DeviceAllocation =
MD_DeviceAllocateAll; MD_DeviceAllocateAll;
@@ -116,128 +97,94 @@ MediaDefinition.DeviceAllocation =
MediaDefinition.SaveFormat = MediaDefinition.SaveFormat =
MD_SaveFormatParallel; MD_SaveFormatParallel;
MediaDefinition.MaximumParallelResources =
6;
MediaDefinition.MinimumParallelResources =
6;
MediaDefinition.NumberOfDevices = MediaDefinition.NumberOfDevices =
1; 6;
//===================================================================== //=====================================================================
// // Devices and media files
// Device
//
//===================================================================== //=====================================================================
MediaDefinition.Device(1).DeviceName = MediaDefinition.Device(1).DeviceName = pDeviceName;
pDevice; MediaDefinition.Device(2).DeviceName = pDeviceName;
MediaDefinition.Device(3).DeviceName = pDeviceName;
MediaDefinition.Device(4).DeviceName = pDeviceName;
MediaDefinition.Device(5).DeviceName = pDeviceName;
MediaDefinition.Device(6).DeviceName = pDeviceName;
MediaDefinition.Device(1).NumberOfMediaFiles = MediaDefinition.Device(1).NumberOfMediaFiles = 1;
1; MediaDefinition.Device(2).NumberOfMediaFiles = 1;
MediaDefinition.Device(3).NumberOfMediaFiles = 1;
MediaDefinition.Device(4).NumberOfMediaFiles = 1;
MediaDefinition.Device(5).NumberOfMediaFiles = 1;
MediaDefinition.Device(6).NumberOfMediaFiles = 1;
//===================================================================== //=====================================================================
// // Media files
// Media File
//
//===================================================================== //=====================================================================
MediaDefinition.Device(1) MediaDefinition.Device(1).MediaFile(1).SequenceNumber = 1;
.MediaFile(1) MediaDefinition.Device(2).MediaFile(1).SequenceNumber = 1;
.SequenceNumber = MediaDefinition.Device(3).MediaFile(1).SequenceNumber = 1;
1; MediaDefinition.Device(4).MediaFile(1).SequenceNumber = 1;
MediaDefinition.Device(5).MediaFile(1).SequenceNumber = 1;
MediaDefinition.Device(6).MediaFile(1).SequenceNumber = 1;
MediaDefinition.Device(1) MediaDefinition.Device(1).MediaFile(1).StartingPositionInFile = *ALL'0';
.MediaFile(1) MediaDefinition.Device(2).MediaFile(1).StartingPositionInFile = *ALL'0';
.StartingPositionInFile = MediaDefinition.Device(3).MediaFile(1).StartingPositionInFile = *ALL'0';
*ALL'0'; MediaDefinition.Device(4).MediaFile(1).StartingPositionInFile = *ALL'0';
MediaDefinition.Device(5).MediaFile(1).StartingPositionInFile = *ALL'0';
MediaDefinition.Device(6).MediaFile(1).StartingPositionInFile = *ALL'0';
MediaDefinition.Device(1) MediaDefinition.Device(1).MediaFile(1).NumberOfVolumeIdentifiers = 1;
.MediaFile(1) MediaDefinition.Device(2).MediaFile(1).NumberOfVolumeIdentifiers = 1;
.NumberOfVolumeIdentifiers = MediaDefinition.Device(3).MediaFile(1).NumberOfVolumeIdentifiers = 1;
6; MediaDefinition.Device(4).MediaFile(1).NumberOfVolumeIdentifiers = 1;
MediaDefinition.Device(5).MediaFile(1).NumberOfVolumeIdentifiers = 1;
MediaDefinition.Device(6).MediaFile(1).NumberOfVolumeIdentifiers = 1;
//===================================================================== //=====================================================================
// // Volume identifiers
// Volume Identifiers
//
//===================================================================== //=====================================================================
MediaDefinition.Device(1) MediaDefinition.Device(1).MediaFile(1).VolumeIdentifier(1).VolumeIdentifier = pVolume1;
.MediaFile(1) MediaDefinition.Device(2).MediaFile(1).VolumeIdentifier(1).VolumeIdentifier = pVolume2;
.VolumeIdentifier(1) MediaDefinition.Device(3).MediaFile(1).VolumeIdentifier(1).VolumeIdentifier = pVolume3;
.VolumeIdentifier = MediaDefinition.Device(4).MediaFile(1).VolumeIdentifier(1).VolumeIdentifier = pVolume4;
pVolume1; MediaDefinition.Device(5).MediaFile(1).VolumeIdentifier(1).VolumeIdentifier = pVolume5;
MediaDefinition.Device(6).MediaFile(1).VolumeIdentifier(1).VolumeIdentifier = pVolume6;
MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(2)
.VolumeIdentifier =
pVolume2;
MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(3)
.VolumeIdentifier =
pVolume3;
MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(4)
.VolumeIdentifier =
pVolume4;
MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(5)
.VolumeIdentifier =
pVolume5;
MediaDefinition.Device(1)
.MediaFile(1)
.VolumeIdentifier(6)
.VolumeIdentifier =
pVolume6;
//===================================================================== //=====================================================================
// // Create MEDDFN
// Replace
//
//=====================================================================
MediaDefinition.Replace =
(pReplace = '*YES');
//=====================================================================
//
// Create media definition
//
//===================================================================== //=====================================================================
clear Error; clear Error;
dsply 'MEDDFNHTST START';
MD_CreateMediaDefinition( MD_CreateMediaDefinition(
MediaDefinition : MediaDefinition :
Error); Error);
if Error.HasError; if Error.HasError;
dsply ('ERROR ' + Error.MessageID); dsply ('MEDDFN creation failed: ' +
Error.MessageID);
dsply Error.MessageData;
else; else;
dsply 'MEDDFN CREATE OK'; dsply 'MEDDFN created successfully';
endif; endif;
//=====================================================================
//
// End
//
//=====================================================================
*inlr = *on;
return; return;