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

Offener Commit im Parser bei Start von VS-Code

Browse Source
This commit is contained in:
Eckhard Gosch
2026-09-06 17:09:31 +02:00
parent 714662d212
commit 0c6fd71128
1 changed files with 67 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files
meddfnprs.rpgle
+18 -18
View File
@@ -1,13 +1,13 @@
**free
//========================================================================
//
// Media Definition Parser
//
//
//
//
//
//==========================================================================
//========================================================================
//
// Media Definition Parser
//
//
//
//
//
//==========================================================================
ctl-opt
option(*srcstmt:*nodebugio) nomain;
@@ -15,8 +15,8 @@ ctl-opt
/COPY './meddfn_h.rpgle'
/COPY './meddfnap_h.rpgle'
// /COPY GOSCH1/MEDDFN,MEDDFN_H
// /COPY GOSCH1/MEDDFN,MEDDFNAP_H
// /COPY GOSCH1/MEDDFN,MEDDFN_H
// /COPY GOSCH1/MEDDFN,MEDDFNAP_H
dcl-pr MD_ParseRetrieveBuffer;
@@ -44,15 +44,15 @@ dcl-proc MD_ParseRetrieveBuffer;
dcl-pi *n;
ReceiverBuffer
char(32767) const
options(*varsize);
MediaDefinition
likeds(MD_MediaDefinition_T);
end-pi;
dcl-ds Header
dcl-ds Header ReceiverBuffer
char(32767) const
options(*varsize);
likeds(MD_Tape0200Header_T);
dcl-ds Device
@@ -172,7 +172,7 @@ dcl-proc MD_ParseRetrieveBuffer;
Device.OffsetToNextDeviceDefinition;
endif;
endfor;
end-proc;
end-proc;
//=====================================================================
//
@@ -182,7 +182,7 @@ end-proc;
//
//=====================================================================
dcl-proc MD_RetrieveMediaDefinition export;
dcl-proc MD_RetrieveMediaDefinition export;
dcl-pi *n;
@@ -243,4 +243,4 @@ dcl-proc MD_RetrieveMediaDefinition export;
endif;
// MD_CheckApiError(ApiError);
end-proc;
end-proc;