Re: DL/I on MVS 3.8J
"Carlos Aguilera Sr" <[email protected]> Thu, 28 Oct 2010 18:39:17 -0400
| Newsgroups | gmane.comp.emulators.turnkey-mvs |
|---|---|
| Message-ID | <B7A58759BD7F44469FC7BD8950E691C5@CarlosToshiba> |
I found the following link and I think it explains what Enrico mentions:
http://publib.boulder.ibm.com/infocenter/cicsts/v3r2/index.jsp?topic=/com.ib
m.cics.ts.applicationprogramming.doc/topics/dfhp3_cobol_dlicall.html
The code is current; however in using Command Level CICS the following code
does need a preprocessor. Am I right?
EXEC DLI
SCHD PSB(PCBDEF)
END-EXEC.
EXEC DLI
GN USING PCB(1)
CURRENT
SEGMENT (MASTER-RECORD)
SEGLENGTH(LENGTH OF MASTER-RECORD)
INTO(WORK-MASTER-RECORD)
WHERE (KEY-FIELD=SOMETHING)
KEYS (KEY-FIELD)
KEYLENGTH(32)
END-EXEC.
EXEC DLI
GU USING PCB(1)
CURRENT
SEGMENT (MASTER-RECORD)
SEGLENGTH(LENGTH OF MASTER-RECORD)
INTO(WORK-MASTER-RECORD)
WHERE (KEY-FIELD=SOMETHING)
KEYS (KEY-FIELD)
KEYLENGTH(32)
END-EXEC.
EXEC DLI
GNP USING PCB(1)
CURRENT
SEGMENT (MASTER-RECORD)
SEGLENGTH(LENGTH OF MASTER-RECORD)
INTO(WORK-MASTER-RECORD)
WHERE (KEY-FIELD=SOMETHING)
KEYS (KEY-FIELD)
KEYLENGTH(32)
END-EXEC.
Carlos Aguilera Sr.
1401 Liggates Rd.
Lynchburg, VA 24502
434-401-4828
Carlos-FiVMtmHp2a9Wk0Htik3J/[email protected]