ecki/IBM-i-RPG-Free-CLP-Code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correction & Cleanup of Goofs

Browse Source
This commit is contained in:
SJLennon
2024-10-08 16:58:00 -04:00
parent 861ec8152c
commit 77f4149c59
14 changed files with 60 additions and 576 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.vscode/actions.json
Vendored
+55 -1
View File
@@ -19,7 +19,7 @@
},
{
"name": "Create SQLRPGLE Program",
"command": "CRTSQLRPGI OBJ(&CURLIB/&NAME) SRCSTMF('&RELATIVEPATH') OPTION(*EVENTF *SECLVL) DBGVIEW(*SOURCE) CLOSQLCSR(*ENDMOD) CVTCCSID(*JOB) COMPILEOPT('TGTCCSID(*JOB)') RPGPPOPT(*LVL2)",
"command": "CRTSQLRPGI OBJ(&CURLIB/&NAME) SRCSTMF('&RELATIVEPATH') OPTION(*EVENTF) DBGVIEW(*SOURCE) CLOSQLCSR(*ENDMOD) CVTCCSID(*JOB) COMPILEOPT('TGTCCSID(*JOB)') RPGPPOPT(*LVL2)",
"deployFirst": true,
"environment": "ile",
"extensions": [
@@ -35,6 +35,24 @@
"SQLRPGLE"
]
},
{
"name": "Create C Program",
"command": "CRTBNDC PGM(&CURLIB/&NAME) SRCSTMF('&RELATIVEPATH') OPTION(*EVENTF) DBGVIEW(*SOURCE) TGTCCSID(*JOB)",
"deployFirst": true,
"environment": "ile",
"extensions": [
"C"
]
},
{
"name": "Create C Module",
"command": "CRTCMOD MODULE(&CURLIB/&NAME) SRCSTMF('&RELATIVEPATH') OPTION(*EVENTF) DBGVIEW(*SOURCE) TGTCCSID(*JOB)",
"deployFirst": true,
"environment": "ile",
"extensions": [
"C"
]
},
{
"extensions": [
"CLP",
@@ -70,5 +88,41 @@
"command": "RUNSQLSTM SRCSTMF('&FULLPATH') COMMIT(*NONE) NAMING(*SQL)",
"deployFirst": true,
"environment": "ile"
},
{
"name": "Create DSPF",
"command": "CRTDSPF FILE(&CURLIB/&NAME) SRCFILE(&SRCFILE) RSTDSP(*YES) OPTION(*EVENTF)",
"environment": "ile",
"deployFirst": true,
"extensions": [
"dspf"
]
},
{
"name": "Create Panel Group (CRTPNLGRP)",
"command": "?CRTPNLGRP PNLGRP(&CURLIB/&NAME) SRCFILE(&SRCFILE) OPTION(*EVENTF)",
"environment": "ile",
"deployFirst": true,
"extensions": [
"pnlgrp"
]
},
{
"extensions": [
"GLOBAL"
],
"name": "Create Service Program (CRTSRVPGM EXPORT(*ALL))",
"command": "CRTSRVPGM SRVPGM(&CURLIB/&NAME) EXPORT(*ALL) BNDSRVPGM(*NONE) BNDDIR(*NONE) ACTGRP(*CALLER)",
"environment": "ile"
},
{
"extensions": [
"BND",
"BINDER"
],
"deployFirst": true,
"name": "Create Service Program (CRTSRVPGM with source)",
"command": "CRTSRVPGM SRVPGM(&CURLIB/&NAME) SRCSTMF('&RELATIVEPATH') BNDSRVPGM(*NONE) BNDDIR(*NONE) ACTGRP(*CALLER)",
"environment": "ile"
}
]
.vscode/rpglint.json → .vscode/rpglintx.json
Vendored
View File
5250_Subfile/CRTDTAARA
-6
View File
@@ -1,6 +0,0 @@
PGM
DLTDTAARA DTAARA(CUSTNEXT)
MONMSG MSGID(CPF0000)
CRTDTAARA DTAARA(CUSTNEXT) TYPE(*DEC) LEN(4) +
VALUE(301) TEXT('Next customer number')
ENDPGM
5250_Subfile/CRTDTAARA.clle
+1 -1
View File
@@ -1,4 +1,4 @@
/* Convenience pgm that creates CUSTNEXT data area in *CUURLIB */
/* Convenience pgm that creates CUSTNEXT data area in *CURLIB */
/* This is a really high number that I don't expect in test data */
/* Strictly it should be set to CUSTMAST COUNT(*) + 1 */
PGM
5250_Subfile/Custmast.sql
+1
View File
@@ -1,5 +1,6 @@
-- Create CUSTMAST & Indexs and load 300 records -----------
-- Program LOADCUST submits this to batch.
-- Or you can run it interactively in iACS Run SQL Scripts
-- 02/2024 Change CustID to char to allow alpha/numeric keys
5250_Subfile/LOADCUST
-18
View File
@@ -1,18 +0,0 @@
PGM
CHKOBJ OBJ(CUSTMAST) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(SUBMIT))
ALCOBJ OBJ((CUSTMAST *FILE *EXCLRD)) WAIT(5) +
CONFLICT(*RQSRLS)
MONMSG MSGID(CPF1002) EXEC(DO)
SNDMSG MSG('Cannot allocate CUSTMAST') +
TOUSR(*REQUESTER)
RETURN
ENDDO
DLCOBJ OBJ((CUSTMAST *FILE *EXCLRD))
SUBMIT: SBMJOB CMD(RUNSQLSTM +
SRCSTMF('/home/LENNONS/GITHUB/5250_Subfile/+
custmast.sql') COMMIT(*NONE) ERRLVL(40)) +
JOB(SL_LOAD)
ENDPGM
5250_Subfile/LOADCUST.CLLE
+1 -2
View File
@@ -13,8 +13,7 @@
DLCOBJ OBJ((CUSTMAST *FILE *EXCLRD))
SUBMIT: SBMJOB CMD(RUNSQLSTM +
SRCSTMF('/home/LENNONS/IBMi_IFS_DEV/5250_Subfile/+
custmast.sql') +
SRCSTMF('/home/LENNONS/IBM-i-RPG-Free-CLP-Code/5250_Subfile/custmast.sql') +
COMMIT(*NONE) ERRLVL(40) DECMPT(*PERIOD)) +
JOB(LOADCUST)
ENDPGM
5250_Subfile/LOADCUST2.CLLE
+1
View File
@@ -1,4 +1,5 @@
/* === Loads CUSTMAST with as many random records as specified === */
/* === See program LOADCUSTR === */
/* Submits job to batch */
PGM PARM(&NUM)
5250_Subfile/MTNCUSTD
-193
View File
@@ -1,193 +0,0 @@
A*===============================================================
A* Window to display or update Customer Master
A*===============================================================
A* CRTDSPF FILE(MTNCUSTD) SRCFILE(...) RSTDSP(*YES)
A*==============================================================
A* There is a naming convention for the fields in each record.
A* -- Screen Header: Fields begin with SH_
A* -- Details Fields begin with SD_
A* -- Screen footer: Fields begin with SFT_
A*===============================================================
A* Indicator usage:
A* 01-20 Are not routinely cleared after an EXFMT. Some
A* of these are used in subfile & subfile control for
A* highlighting, etc., which does not change unless
A* explicitly requested.
A* 21-99 Are routinely cleared after an EXFMT.
A* 80-89 Subfile record
A* 90 Nessage Subfile end
A* 91-99 Subfile Control Record
A* Note: INDARA is specified here and in the program and this
A* means that the display file indicators are in a
A* means that the display file indicators are in a
A* data structure separate from the program indicators.
A* This makes it easy to name the indicators in the DS.
a* Note: DSPATR HI and RI at the same time = non-display. Thus
a* when we turn on RI were turn of HI,
A*===============================================================
A*%%EC
A DSPSIZ(24 80 *DS3)
A PRINT
A INDARA
A ALTHELP
A CF04
A CA05
A CA12
A HELP
A*===============================================================
A*=== Screen Header: Fields begin with SH_ =====================
A*
A R SH_HDR
A OVERLAY
A TEXT('Screen Header')
A WDWBORDER((*COLOR PNK))
A WINDOW(*DFT 17 54)
A SH_PGM 10A O 1 1
A 1 21'Customer Master'
A 1 47DATE
A EDTCDE(Y)
A 2 1USER
A SH_FUNCT 25A O 2 16DSPATR(HI)
A 2 47TIME
A*===============================================================
A*=== Data Details - Fields begin with SD_ ======================
A R DETAILS
A OVERLAY
A WINDOW(SH_HDR)
A CHGINPDFT
A RTNCSRLOC(&SD_PMT_RCD &SD_PMT_FLD)
A*---------------------------------------------------------------
A 5 1'Customer Id'
A SD_CUSTID 4 0 5 14DSPATR(HI)
A 5 20'Active Status'
A SD_ACTIVE 1 B 5 35
A N40 DSPATR(HI)
A 40 DSPATR(RI)
A 41 DSPATR(PC)
A 10 DSPATR(PR)
A N10 DSPATR(UL)
A 6 1'Name'
A SD_NAME 40 B 6 9
A N42 DSPATR(HI)
A 42 DSPATR(RI)
A 43 DSPATR(PC)
A 10 DSPATR(PR)
A N10 DSPATR(UL)
A 7 1'Address'
A SD_ADDR 40 B 7 9
A N44 DSPATR(HI)
A 44 DSPATR(RI)
A 45 DSPATR(PC)
A 10 DSPATR(PR)
A N10 DSPATR(UL)
A 8 1'City'
A SD_CITY 20 B 8 9
A N46 DSPATR(HI)
A 46 DSPATR(RI)
A 47 DSPATR(PC)
A 10 DSPATR(PR)
A N10 DSPATR(UL)
A 8 32'ST+'
A SD_STATE 2 B 8 36
A N48 DSPATR(HI)
A 48 DSPATR(RI)
A 49 DSPATR(PC)
A 10 DSPATR(PR)
A N10 DSPATR(UL)
A 8 39'ZIP'
A SD_ZIP 10 B 8 43
A N50 DSPATR(HI)
A 50 DSPATR(RI)
A 51 DSPATR(PC)
A 10 DSPATR(PR)
A N10 DSPATR(UL)
A 9 1'Account Manager'
A 10 5'Phone'
A SD_ACCTPH 20 B 10 15
A N52 DSPATR(HI)
A 52 DSPATR(RI)
A 53 DSPATR(PC)
A 10 DSPATR(PR)
A N10 DSPATR(UL)
A 11 5'Name'
A SD_ACCTMGR 40 B 11 15
A N54 DSPATR(HI)
A 54 DSPATR(RI)
A 55 DSPATR(PC)
A 10 DSPATR(PR)
A N10 DSPATR(UL)
A 12 1'Corporate Phone'
A SD_CORPPH 20 B 12 17
A N56 DSPATR(HI)
A 56 DSPATR(RI)
A 57 DSPATR(PC)
A 10 DSPATR(PR)
A N10 DSPATR(UL)
A 13 1'Last Change'
A N61 DSPATR(ND)
A SD_CHGTIME 23 13 13
A N61 DSPATR(ND)
A 13 37'by'
A N61 DSPATR(ND)
A SD_CHGUSER 15 13 40
A N61 DSPATR(ND)
A SD_PMT_RCD 10A H
A SD_PMT_FLD 10A H
A*===============================================================
A*=== Screen footer & function keys: Fields begin with SFT_ ====
A*
A R SFT_FKEY
A TEXT('Screen Footer')
A OVERLAY
A WINDOW(SH_HDR)
A 14 1' Demo Corp of America -
A '
A DSPATR(UL)
A SFT_KEYS 53A O 15 1COLOR(BLU)
A*===============================================================
A*=== Message Subfile: No fields ===============================
A*
A R MSGSFL SFL
A TEXT('Message Subfile')
A SFLMSGRCD(16)
A MSGKEY SFLMSGKEY
A MSGPGMQ SFLPGMQ(10)
A*===============================================================
A*=== Message Subfile Control: No fields ========================
A*
A R MSGCTL SFLCTL(MSGSFL)
A TEXT('Message Subfile Control')
A WINDOW(SH_HDR)
A PAGEDOWN
A PAGEUP
A OVERLAY
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N90 SFLEND
A SFLSIZ(0002)
A SFLPAG(0001)
A MSGPGMQ SFLPGMQ(10)
A*===============================================================
A*=== Dummy Record - Assume =====================================
A*
A R DUMMY
A ASSUME
A KEEP
A 1 2'*'
A*%%RS+<record-sequences>
A*%%RS+ <sequence name="SCREEN1">
A*%%RS+ <device type="display" width="80" height="24" />
A*%%RS+ <record-write record-format="SH_HDR" />
A*%%RS+ <record-write record-format="DETAILS" />
A*%%RS+ <record-write record-format="SFT_FKEY" />
A*%%RS+ <record-write record-format="MSGSFL" />
A*%%RS+ <record-write record-format="MSGCTL" />
A*%%RS+ <record-write record-format="DUMMY" />
A*%%RS+ </sequence>
A*%%RS </record-sequences>
A*%%RS+<record-sequences>
A*%%RS+ <sequence name="Untitled">
A*%%RS+ <device type="display" width="80" height="24" />
A*%%RS+ </sequence>
A*%%RS </record-sequences>
5250_Subfile/PMTCUSTD
-171
View File
@@ -1,171 +0,0 @@
A*===============================================================
A* This is a full screen expanding subfile to search for
A* a customer.
A* - There are filters limit selection.
A* - A message subfile is included.
A*===============================================================
A* CRTDSPF FILE(PMTCUSTD) SRCFILE(...) RSTDSP(*YES)
A*==============================================================
A* There is a naming convention for the fields in each record.
A* -- Screen Header: Fields begin with SH_
A* -- Subfile: Fields begin with SF_
A* -- Subfile Control: Fields begin with SC_
A* -- Screen footer: Fields begin with SFT_
A*===============================================================
A* Indicator usage:
A* 01-20 Are not routinely cleared after an EXFMT. Some
A* of these are used in subfile & subfile control for
A* highlighting, etc., which does not change unless
A* explicitly requested.
A* 21-99 Are routinely cleared after an EXFMT.
a* 79 SC_NAME Position Cursor
A* 80-89 Subfile record
A* 90 Nessage Subfile end
A* 91-99 Subfile Control Record
A* Note: INDARA is specified here and in the program and this
A* means that the display file indicators are in a
A* data structure separate from the program indicators.
A* This makes it easy to name the indicators in the DS.
A*==============================================================
A DSPSIZ(24 80 *DS3)
A PRINT
A INDARA
A ALTHELP
A CA03
A CF04
A CA05
A CA06
A CA09
A CA12
A HELP
A*===============================================================
A*=== Screen Header: Fields begin with SH_ =====================
A*
A R SH_HDR
A OVERLAY
A TEXT('Screen Header')
A SH_PGM 10A O 1 2
A 1 33'Customer Master'
A 1 72DATE
A EDTCDE(Y)
A SH_FUNCT 50A O 2 16DSPATR(HI)
A 2 72TIME
A 2 2USER
A*===============================================================
A*=== Subfile: Fields begin with SF_ ===========================
A*
A R SFL SFL
A TEXT('SubFile')
A 80 SFLNXTCHG
A SF_ACT_H 1D H
A SF_CUST_H 4D H
A SF_OPT 1A B 9 3
A 81 DSPATR(RI)
A 82 DSPATR(PC)
A SF_NAME 40A O 9 6
A 83 COLOR(RED)
A SF_CITY 20A O 9 47
A 83 COLOR(RED)
A SF_STATE 2A O 9 69
A 83 COLOR(RED)
A SF_ZIP 5A O 9 74
A 83 COLOR(RED)
A*===============================================================
A*=== Subfile Control: Fields begin with SC_ ====================
A*
A R SFLCTL SFLCTL(SFL)
A SFLSIZ(0013)
A SFLPAG(0012)
A TEXT('Subfile Control')
A PAGEDOWN
A RTNCSRLOC(&SC_PMT_RCD &SC_PMT_FLD)
A BLINK
A OVERLAY
A N98 ERASE(SFL)
A 98 SFLDSP
A SFLDSPCTL
A 99 SFLCLR
A 97 SFLEND(*MORE)
A 4 2'Name starts with:'
A 4 31'City Starts with:'
A 4 60'State+'
A 4 71'Including'
A COLOR(RED)
A N03 DSPATR(ND)
A SC_NAME 13A B 5 6
A 79 DSPATR(PC)
A SC_CITY 13A B 5 35
A SC_STATE 2A B 5 62
A 5 71'Inctives'
A COLOR(RED)
A N03 DSPATR(ND)
A 6 2'Type options, press Enter.'
A COLOR(BLU)
A SC_OPTIONS 69A 7 2COLOR(BLU)
A 8 2'Opt'
A DSPATR(HI)
A 8 6'Customer Name'
A DSPATR(UL)
A COLOR(WHT)
A 8 47'City '
A DSPATR(UL)
A COLOR(WHT)
A 8 69'St'
A DSPATR(UL)
A COLOR(WHT)
A 8 74'ZIP '
A COLOR(WHT)
A DSPATR(UL)
A SC_PMT_RCD 10A H
A SC_PMT_FLD 10A H
A SC_CSR_RCD 4S 0H SFLRCDNBR(CURSOR)
A*===============================================================
A*=== Screen footer & function keys: Fields begin with SFT_ ====
A*
A R SFT_FKEY
A TEXT('Screen Footer')
A OVERLAY
A 22 2' Demo Cor-
A p of America -
A '
A DSPATR(UL)
A SFT_KEYS 78A O 23 2COLOR(BLU)
A*===============================================================
A*=== Message Subfile: No fields ===============================
A*
A R MSGSFL SFL
A TEXT('Message Subfile')
A SFLMSGRCD(24)
A MSGKEY SFLMSGKEY
A MSGPGMQ SFLPGMQ(10)
A*===============================================================
A*=== Message Subfile Control: No fields ========================
A*
A R MSGCTL SFLCTL(MSGSFL)
A TEXT('Message Subfile Control')
A PAGEDOWN
A PAGEUP
A OVERLAY
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N90 SFLEND
A SFLSIZ(0002)
A SFLPAG(0001)
A MSGPGMQ SFLPGMQ(10)
A*===============================================================
A*=== Dummy Record ==============================================
A*
A R DUMMY
A 24 79'*'
A*%%RS+<record-sequences>
A*%%RS+ <sequence name="TOP">
A*%%RS+ <device type="display" width="80" height="24" />
A*%%RS+ <record-write record-format="SH_HDR" />
A*%%RS+ <record-write record-format="SFT_FKEY" />
A*%%RS+ <record-write record-format="SFL" />
A*%%RS+ <record-write record-format="SFLCTL" />
A*%%RS+ <record-write record-format="MSGSFL" />
A*%%RS+ <record-write record-format="MSGCTL" />
A*%%RS+ </sequence>
A*%%RS </record-sequences>
5250_Subfile/PMTCUSTD.DSPF
+1 -1
View File
@@ -36,7 +36,7 @@
A CA05
A CA06
A CA09
A CA42
A CA12
A HELP
A*===============================================================
A*=== Screen Header: Fields begin with SH_ =====================
5250_Subfile/PMTSTATED
-170
View File
@@ -1,170 +0,0 @@
A*===============================================================
A* This is a "load all" subfile in a windown to select a
A* state code.
A*===============================================================
A* CRTDSPF FILE(PMTSTATED) SRCFILE(...) RSTDSP(*YES)
A*==============================================================
A* There is a naming convention for the fields in each record.
A* -- Screen Header: Fields begin with SH_
A* -- Subfile: Fields begin with SF_
A* -- Subfile Control: Fields begin with SC_
A* -- Screen footer: Fields begin with SFT_
A*===============================================================
A* Indicator usage:
A* 01-20 Are not routinely cleared after an EXFMT. Some
A* of these are used in subfile & subfile control for
A* highlighting, etc., which does not change unless
A* explicitly requested.
A* 21-99 Are routinely cleared after and EXFMT.
A* 80-89 Subfile record
A* 90 Nessage Subfile end
A* 91-99 Subfile Control Record
A* Note: INDARA is specified here and in the program and this
A* means that the display file indicators are in a
A* data structure separate from the program indicators.
A* This makes it easy to name the indicators in the DS.
A*==============================================================
A DSPSIZ(24 80 *DS3 -
A 27 132 *DS4)
A PRINT
A INDARA
A ALTHELP
A HELP
A*===============================================================
A*=== Screen Header: Fields begin with SH_ =====================
A*
A R SH_HDR
A OVERLAY
A TEXT('Screen Header')
A WINDOW(*DFT 16 40)
A WDWBORDER((*DSPATR RI) (*CHAR +
A ' '))
A WDWBORDER((*COLOR BLU))
A SH_PGM 10A O 1 1
A 1 16'USA States'
A COLOR(WHT)
A 1 33DATE
A EDTCDE(Y)
A SH_FUNCT 17A O 2 13DSPATR(HI)
A 2 33TIME
A 2 1USER
A*===============================================================
A*=== Subfile: Fields begin with SF_ ===========================
A*
A R SFL SFL
A TEXT('SubFile')
A 80 SFLNXTCHG
A SF_OPT 1A B 6 2
A 81 DSPATR(RI)
A 82 DSPATR(PC)
A SF_CODE 2A 6 6
A 22 COLOR(RED)
A SF_NAME 30A O 6 11
A 22 COLOR(RED)
A*===============================================================
A*=== Subfile Control: Fields begin with SC_ ====================
A*
A R SFLCTL SFLCTL(SFL)
A CF03
A CF05
A CF07
A CF12
A *DS3 SFLSIZ(9999)
A *DS4 SFLSIZ(9999)
A *DS3 SFLPAG(0006)
A *DS4 SFLPAG(0006)
A *DS3 WINDOW(SH_HDR)
A *DS4 WINDOW(SH_HDR)
A TEXT('Subfile Control')
A RTNCSRLOC(&SC_PMT_RCD &SC_PMT_FLD)
A BLINK
A OVERLAY
A N98 ERASE(SFL)
A 98 SFLDSP
A SFLDSPCTL
A 99 SFLCLR
A 97 SFLEND(*MORE)
A 3 1'Name Contains'
A SC_NAME 10A B 3 16
A 95 DSPATR(MDT)
A SC_OPTIONS 20A 4 1COLOR(BLU)
A 4 26'Sorted by:'
A SC_SORTED 4 4 37
A 5 1'Opt'
A DSPATR(HI)
A DSPATR(UL)
A 5 5'Code'
A 01 COLOR(PNK)
A DSPATR(UL)
A 5 11'Name '
A DSPATR(UL)
A 02 COLOR(PNK)
A SC_PMT_RCD 10A H
A SC_PMT_FLD 10A H
A SC_CSR_RCD 4S 0H SFLRCDNBR(CURSOR)
A*===============================================================
A*=== Screen footer & function keys: Fields begin with SFT_ ====
A*
A R SFT_FKEY
A *DS3 WINDOW(SH_HDR)
A *DS4 WINDOW(SH_HDR)
A TEXT('Screen Footer')
A OVERLAY
A 13 1' Demo Corp of America -
A '
A DSPATR(UL)
A SFT_KEYS 40 O 14 1
A*===============================================================
A*=== Message Subfile: No fields ===============================
A*
A R MSGSFL SFL
A TEXT('Message Subfile')
A SFLMSGRCD(15)
A MSGKEY SFLMSGKEY
A MSGPGMQF SFLPGMQ(10)
A*===============================================================
A*=== Message Subfile Control: No fields ========================
A*
A R MSGCTL SFLCTL(MSGSFL)
A TEXT('Message Subfile Control')
A WINDOW(SH_HDR)
A PAGEDOWN
A PAGEUP
A OVERLAY
A SFLDSP
A SFLDSPCTL
A SFLINZ
A N90 SFLEND
A SFLSIZ(0002)
A SFLPAG(0001)
A MSGPGMQC SFLPGMQ(10)
A*===============================================================
A*=== Dummy Record - Assume =====================================
A*
A R DUMMY
A ASSUME
A 1 2' '
A*%%RS+<record-sequences>
A*%%RS+ <sequence name="SCREEN1">
A*%%RS+ <device type="display" width="80" height="24" />
A*%%RS+ <record-write record-format="SH_HDR" />
A*%%RS+ <record-write record-format="SFL" />
A*%%RS+ <record-write record-format="SFLCTL" />
A*%%RS+ <record-write record-format="SFT_FKEY" />
A*%%RS+ </sequence>
A*%%RS </record-sequences>
A*%%RS+<record-sequences>
A*%%RS+ <sequence name="Untitled">
A*%%RS+ <device type="display" width="132" height="27" />
A*%%RS+ </sequence>
A*%%RS </record-sequences>
A*%%RS+<record-sequences>
A*%%RS+ <sequence name="Untitled">
A*%%RS+ <device type="display" width="80" height="24" />
A*%%RS+ </sequence>
A*%%RS </record-sequences>
A*%%RS+<record-sequences>
A*%%RS+ <sequence name="Untitled">
A*%%RS+ <device type="display" width="80" height="24" />
A*%%RS+ </sequence>
A*%%RS </record-sequences>
BASE36/BASE36_Px.RPGLE
-5
View File
@@ -1,5 +0,0 @@
**FREE
// === BASE36ADD prototype ==========================================
dcl-pr BASE36ADD varchar(50);
theValue varchar(50) const;
end-pr;
Service_Pgms/CRTBNDDIR
-8
View File
@@ -1,8 +0,0 @@
PGM
/* Create UTIL_BND binding directory in *CURLIB */
/* Change next statement if needed */
CRTBNDDIR BNDDIR(*CURLIB/UTIL_BND) TEXT('Utilities +
Service PGMs')
ADDBNDDIRE BNDDIR(UTIL_BND) OBJ((SRV_MSG *SRVPGM *DEFER))
ADDBNDDIRE BNDDIR(UTIL_BND) OBJ((SRV_STR *SRVPGM *DEFER))
ENDPGM