Overview

HTTPS SSH

Git + RDi Training

About

This repo is used for Git + RDi training, an education offering from Krengeltech through Litmis Learn. Contact team@litmis.com for more info.

Install

RUNSQL SQL('CREATE SCHEMA GITRDI') COMMIT(*NONE)

Use STRSQL or ACS SQL Scripts to run the following:

CREATE OR REPLACE TABLE GITRDI/CUSTOMER (
  CUSNUM NUMERIC(6, 0),
  LSTNAM CHAR(50),
  INIT CHAR(1),
  STREET CHAR(100),
  CITY CHAR(100),
  STATE CHAR(2),
  ZIPCOD NUMERIC(5, 0),
  PRIMARY KEY(CUSNUM)
)
INSERT INTO GITRDI/CUSTOMER VALUES
(1,'Smith','L','1 Center','Mankato','MN',56001),
(2,'Grant','L','2 Center','Mankato','MN',56001),
(3,'Coleman','L','3 Center','Mankato','MN',56001),
(4,'Smooty','L','4 Center','Mankato','MN',56001),
(5,'Johnson','P','5 Center','Mankato','MN',56001);
CRTSRCPF FILE(GITRDI/QRPGLESRC) RCDLEN(192)
CRTSRCPF FILE(GITRDI/QDDSSRC) RCDLEN(192)
CRTSRCPF FILE(GITRDI/QSQLSRC) RCDLEN(192)
CRTSRCPF FILE(GITRDI/QCLLESRC) RCDLEN(192)
ADDPFM FILE(GITRDI/QDDSSRC) MBR(DSP01) SRCTYPE(DSPF) TEXT(Subfile)
ADDPFM FILE(GITRDI/QRPGLESRC) MBR(PGM01) SRCTYPE(RPGLE)

Use RDi to manually copy source into DSP01 and PGM01 from https://bitbucket.org/litmis/gitrdi

ADDLIBLE GITRDI

Compile the program.

CRTDSPF SRCFILE(GITRDI/QDDSSRC) SRCMBR(DSP01) REPLACE(*YES) OPTION(*EVENTF)  FILE(GITRDI/DSP01)
CRTBNDRPG PGM(GITRDI/PGM01) SRCFILE(GITRDI/QRPGLESRC) SRCMBR(PGM01) REPLACE(*YES) OPTION(*EVENTF) DBGVIEW(*SOURCE)

Run

ADDLIBLE GITRDI
CALL PGM01