Example 1
The following example shows the DO SET statements used to extract values from a decollated report:
DO SET = %%ACC =* LINE 00001 COL 00001 - 00005 C CS
DO
WHEN LINE 00001 - 00001 COL 00001 - 00001 PRINT REF NXT CT AND/OR
STRING = %%ACC
DO
DO SET = %%REP ='REPORT FOR ' C CS
DO SET = %%REM_M =NEW C CS
DO
DO SET = %%REM_M =* LINE 00001 COL 00001 - 00005 C Y CS
DO = %%JOBNAME C Y CS
DO = %%REP(8,4) C Y CS
DO = %%CITY C CS
Example 2
The following is an example of using DO SET in conjunction with a WHEN VAR statement:
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO SET = %%VAR1 =REP 1 C CS
DO SET = %%VAR2 =X'0AFA0F40F2' C CS
DO SET = %%VAR3 ='REP 2' C CS
DO
WHEN VAR %%VAR2 REF NXT CT AND/OR A
STRING = %%VAR3
WHEN LINE 00003 - 00003 COL 00034 - 00050 PRINT REF NXT CT AND/OR A
STRING = .NE.%%VAR2
WHEN VAR %%VAR2 REF NXT CT AND/OR
STRING = .NE.'REP '
Example 3
The following is an example of using variables with DO parameters:
WHEN LINE 00001 - 00001 COL 00001 - 00005 PRINT REF NXT CT AND/OR
STRING = TITLE
DO SET = %%VAR2 =* LINE 00001 COL 00001 - 00005 C CS
DO
WHEN LINE 00002 - 00002 COL 00001 - 00005 PRINT REF NXT CT AND/OR
STRING = TITLE2
DO SET = %%VAR2 =* LINE 00020 COL 00001 - 00005 C CS
DO
WHEN LINE - COL - PRINT REF NXT CT AND/OR
STRING =
DO USER = %%VAR2 LVL LINE COL -
S A T SYNONYM = CONCAT =
Example 4
The following is an example of the DO SET statement that extracts strings from an XML document:
ON CLASS = T EXTWTR DEST FORM
PRT COPIES LVL USER DEST MAX COPIES
PRINT/CDAM PARMS = LINECT=9999,ASSOC=XML,XMLSEP=Document
PRINT/CDAM PARMS =
DO SET = %%VAR1 =</Document/*/Code_ID/text()> C CS
DO SET = %%VAR2 =</Document/*/Code_Rep_ID/text()> C CS
DO SET = %%REPM =</Document/*/Product_ID/text()> C Y CS U
=<//Product_Discription/text()> C Y CS U
DO SET = %%USR_R =</Document/Document_Content/Report_Header[ C CS U
1]/Partner_Information/Partner_Id/text()>
DO
WHEN VAR %%VAR1 REF NXT CT AND/OR
STRING = %%VAR2
DO USER = %%USR_R LVL LINE COL -
S A T SYNONYM = CONCAT =
DO NAME = %%REPM
Parent Topic |