219 lines
4.9 KiB
RPGLE
219 lines
4.9 KiB
RPGLE
**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;
|