diff --git a/org.smeup.sys.os.file.base/META-INF/MANIFEST.MF b/org.smeup.sys.os.file.base/META-INF/MANIFEST.MF index 4fac66f0..9ed0c4ee 100644 --- a/org.smeup.sys.os.file.base/META-INF/MANIFEST.MF +++ b/org.smeup.sys.os.file.base/META-INF/MANIFEST.MF @@ -19,7 +19,8 @@ Require-Bundle: org.smeup.sys.os.lib, org.smeup.sys.rt.core, org.smeup.sys.il.memo, - org.smeup.sys.os.usrspc + org.smeup.sys.os.usrspc, + org.smeup.sys.os.usrspc.base Bundle-RequiredExecutionEnvironment: JavaSE-1.8 Bundle-ActivationPolicy: lazy Import-Package: org.smeup.sys.dk.source diff --git a/org.smeup.sys.os.file.base/src/org/smeup/sys/os/file/base/api/DatabaseFileDescriptionRetriever.java b/org.smeup.sys.os.file.base/src/org/smeup/sys/os/file/base/api/DatabaseFileDescriptionRetriever.java new file mode 100644 index 00000000..497cf431 --- /dev/null +++ b/org.smeup.sys.os.file.base/src/org/smeup/sys/os/file/base/api/DatabaseFileDescriptionRetriever.java @@ -0,0 +1,55 @@ +/** + * Copyright (c) 2012, 2016 Sme.UP and others. + * All rights reserved. This program and the accompanying materials + * are made available under the terms of the Eclipse Public License v1.0 + * which accompanies this distribution, and is available at + * http://www.eclipse.org/legal/epl-v10.html + * + * + * Contributors: + * Giuliano Giancristofaro - Initial API and implementation + */ +package org.smeup.sys.os.file.base.api; + +import org.smeup.sys.il.data.QBinary; +import org.smeup.sys.il.data.QCharacter; +import org.smeup.sys.il.data.QDataStructWrapper; +import org.smeup.sys.il.data.QPointer; +import org.smeup.sys.il.data.annotation.DataDef; +import org.smeup.sys.il.data.annotation.Main; +import org.smeup.sys.il.data.annotation.Program; +import org.smeup.sys.il.data.def.BinaryType; + +@Program(name = "QDBRTVFD") +public class DatabaseFileDescriptionRetriever { + + @Main + public void main(QPointer receiverVariable, + @DataDef(binaryType = BinaryType.INTEGER) QBinary lengthReceiverVariable, + @DataDef(length = 20) QCharacter qualifiedReturnedFileName, + @DataDef(length = 8) QCharacter formatName, + FileRef qualifiedFileName, + @DataDef(length = 10) QCharacter recordFormatName, + @DataDef(length = 1) QCharacter overridingProcesing, + @DataDef(length = 10) QCharacter system, + @DataDef(length = 10) QCharacter formatType, + ErrorCode errorCode) { + + "".toCharArray(); + + } + + public static class ErrorCode extends QDataStructWrapper { + private static final long serialVersionUID = 1L; + @DataDef(binaryType = BinaryType.INTEGER, value = "272") + public QBinary £$01e1; + @DataDef(binaryType = BinaryType.INTEGER) + public QBinary £$01e2; + @DataDef(length = 7) + public QCharacter £$01e3; + @DataDef(length = 1) + public QCharacter £$01e4; + @DataDef(length = 256) + public QCharacter £$01e5; + } +} \ No newline at end of file diff --git a/org.smeup.sys.os.file.base/src/org/smeup/sys/os/file/base/api/DatabaseRelationsList.java b/org.smeup.sys.os.file.base/src/org/smeup/sys/os/file/base/api/DatabaseRelationsList.java new file mode 100644 index 00000000..d231a227 --- /dev/null +++ b/org.smeup.sys.os.file.base/src/org/smeup/sys/os/file/base/api/DatabaseRelationsList.java @@ -0,0 +1,75 @@ +/** + * Copyright (c) 2012, 2016 Sme.UP and others. + * All rights reserved. This program and the accompanying materials + * are made available under the terms of the Eclipse Public License v1.0 + * which accompanies this distribution, and is available at + * http://www.eclipse.org/legal/epl-v10.html + * + * + * Contributors: + * Giuliano Giancristofaro - Initial API and implementation + */ +package org.smeup.sys.os.file.base.api; + +import org.smeup.sys.il.data.QBinary; +import org.smeup.sys.il.data.QCharacter; +import org.smeup.sys.il.data.QDataStructWrapper; +import org.smeup.sys.il.data.annotation.DataDef; +import org.smeup.sys.il.data.annotation.Main; +import org.smeup.sys.il.data.annotation.Program; +import org.smeup.sys.il.data.def.BinaryType; +import org.smeup.sys.os.usrspc.base.api.UserSpaceRef; + +@Program(name = "QDBLDBR") +public class DatabaseRelationsList { + + @Main + public void main(UserSpaceRef qualifiedUserSpaceName, + @DataDef(length = 8) QCharacter formatName, + FileRef qualifiedFileName, + @DataDef(length = 10) QCharacter member, + @DataDef(length = 10) QCharacter recordFormat, + ErrorCode errorCode) { + + "".toCharArray(); + + } + + public static class JOBL0100 extends QDataStructWrapper { + private static final long serialVersionUID = 1L; + @DataDef(length = 10) + public QCharacter fileNameUsed; + @DataDef(length = 10) + public QCharacter fileLibraryNameUsed; + @DataDef(length = 10) + public QCharacter dependentFileName; + @DataDef(length = 10) + public QCharacter dependentLibraryName; + @DataDef(length = 1) + public QCharacter dependencyType; + @DataDef(length = 3) + public QCharacter reserved; + @DataDef(binaryType = BinaryType.INTEGER) + public QBinary joinReferenceNumber; + @DataDef(length = 10) + public QCharacter constraintLibraryName; + @DataDef(binaryType = BinaryType.INTEGER) + public QBinary constraintNameLength; + @DataDef(length = 258) + public QCharacter constraintName; + } + + public static class ErrorCode extends QDataStructWrapper { + private static final long serialVersionUID = 1L; + @DataDef(binaryType = BinaryType.INTEGER, value = "272") + public QBinary £$01e1; + @DataDef(binaryType = BinaryType.INTEGER) + public QBinary £$01e2; + @DataDef(length = 7) + public QCharacter £$01e3; + @DataDef(length = 1) + public QCharacter £$01e4; + @DataDef(length = 256) + public QCharacter £$01e5; + } +} \ No newline at end of file