Example 3 (PL/I: 31-bit DLL)
The following is an example of a 31-bit PL/I program calling HFZSNAP as a DLL.
*PROCESS AGGREGATE,ATTRIBUTES(FULL),LIST,MAP,NEST,SOURCE,STMT,
NONUMBER,OFFSET,XREF(FULL),OPTIONS,NOBLKOFF,RENT;
*PROCESS LIMITS(EXTNAME(8));
HFZSPLI1: PROC OPTIONS(MAIN) ;
DECLARE
HFZSNPD External Entry Options(asm),
Work Char(4),
Work140 Char(140),
Work1402 Char(140);
Work ='0002';
Work140 = 'User Title Data';
Work1402 = 'Datasets(HFZHIST(MY.HIST))';
Call HFZSNPD(Work,Work140,Work1402);
End HFZSPLI1;
This example is provided as sample job HFZVPLS1 in data set HFZ.SHFZSAM1.