Skip to content
Permalink
Browse files

Add files via upload

  • Loading branch information...
cfburns committed May 11, 2019
1 parent 4531080 commit 6f1d9b80f85f0bdab4e0a1fc5445c5df506bf8ca
@@ -0,0 +1,52 @@
**********************************************************************************************
* *
* Inuendo 1.2 - STANDARD 5250 UTILITIES *
* *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
* *
* This program is free software: you can redistribute it and/or modify *
* it under the terms of the GNU General Public License as published by *
* the Free Software Foundation, either version 3 of the License, or *
* (at your option) any later version. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License *
* along with this program. If not, see <http://www.gnu.org/licenses/>. *
* *
**********************************************************************************************

**********************************************************************************************
* POP-UP WINDOW PROMPTS FOR VARIOUS DATA TYPES.
**********************************************************************************************

dcl-pr PromptDate like(EntDateI.Value); // prompt for date
PromptText like(EntNoteI.Value) const; // text for prompt
Required like(EntFlagI.Value) const options(*nopass); // required entry
DftValue like(EntDateI.Value) const options(*nopass); // default value
end-pr; // prompt for date

dcl-pr PromptFlag like(EntFlagI.Value); // prompt for flag
PromptText like(EntNoteI.Value) const; // text for prompt
Required like(EntFlagI.Value) const options(*nopass); // required entry
DftValue like(EntFlagI.Value) const options(*nopass); // default value
end-pr; // prompt for flag

dcl-pr PromptNote like(EntNoteI.Value); // prompt for note
PromptText like(EntNoteI.Value) const; // text for prompt
Required like(EntFlagI.Value) const options(*nopass); // required entry
DftValue like(EntNoteI.Value) const options(*nopass); // default value
end-pr; // prompt for note

dcl-pr PromptNumb like(EntNumbI.Value); // prompt for number
PromptText like(EntNoteI.Value) const; // text for prompt
Required like(EntFlagI.Value) const options(*nopass); // required entry
DftValue like(EntNumbI.Value) const options(*nopass); // default value
end-pr; // prompt for number

@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD CRYPTOGRAPHY FUNCTIONS *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* This program is free software: you can redistribute it and/or modify *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD ENTITY AGGREGATE FUNCTIONS *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 - STANDARD ENTITY GROUP FUNCTIONS (PROTOTYPES & STORAGE) *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -337,6 +337,27 @@
Value like(EntDateG.Value) const; // comparison value
end-pr; // entity group by datx


**********************************************************************************************
* FUNCTIONS BASED ON LINK PROPERTIES, WITH SQL WRAPPERS
**********************************************************************************************

dcl-pr EntityGroupLink; // entity group by link
ParentID like(EntHeadG.ParentID) const; // parent entity ID
Class like(EntHeadG.Class) const; // entity class
Property like(EntHeadG.Descriptor) const; // property name/path
Value like(EntLinkG.Value) const; // single value
Moment like(EntLinkG.ChangeTime) const options(*nopass); // moment in time
end-pr; // entity group by link

dcl-pr EntityGroupLinkValue; // entity group by link
ParentID like(EntHeadG.ParentID) const; // parent entity ID
Class like(EntHeadG.Class) const; // entity class
Property like(EntHeadG.Descriptor) const; // property name/path
Value like(EntLinkG.Value) const; // comparison value
end-pr; // entity group by link


**********************************************************************************************
* WORKING STORAGE TEMPLATES AND CONSTANTS
**********************************************************************************************
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD ENTITY INPUT FUNCTIONS *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD ENTITY OUTPUT FUNCTIONS *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -186,6 +186,8 @@
ParentID like(EntHeadO.EntityID) const; // new parent ID
end-pr; // copy entity

dcl-pr LegacyNumValue like(EntHeadO.LegacyN) end-pr; // legacy numeric value

**********************************************************************************************
* WORKING STORAGE TEMPLATES AND CONSTANTS
**********************************************************************************************
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD ENTITY BUSINESS RULES (PROTOTYPES & STORAGE) *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD ENTITY SQL WRAPPERS (PROTOTYPES & STORAGE) *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD ENTITY SQL WRAPPERS (PROTOTYPES & STORAGE) *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD ENTITY UTILITIES (PROTOTYPES & STORAGE) *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD ERROR CODE FOR IBM SUPPLIED API'S *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD CONTROL SPEC FOR PROGRAMS *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD CONTROL SPEC FOR SERVICE PROGRAMS *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -1,9 +1,8 @@
**********************************************************************************************
* *
* Inuendo 1.2 (Alpha release) - STANDARD PROGRAM STATUS DATA STRUCTURE DEFINITION. *
* STANDARD PROGRAM STATUS DATA STRUCTURE DEFINITION. *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* *
* Use RPG /COPY statement in application programs to include this member. *
* *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD PROPERTY AGGREGATE FUNCTIONS *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
@@ -2,7 +2,7 @@
* *
* Inuendo 1.2 (Alpha release) - STANDARD TRIGGER PROGRAM HEADER *
* *
* Copyright (C) 2012, 2017 Christopher F. Burns Sr. *
* Copyright (C) 2012, 2019 Christopher F. Burns Sr. *
* c/o The Inuendo Project (http://inuendo.us). *
* *
* Use RPG /COPY statement in application programs to include this member. *
Oops, something went wrong.

0 comments on commit 6f1d9b8

Please sign in to comment.
You can’t perform that action at this time.