Indexing by qualified variable name
The parenthetical value used to qualify a variable is appended to the variable name.
This qualified name must be used consistently by the TRANS variable within the PRL program, as shown in the following figure.
SET TITLE = '-*- TOTAL USER TRANSACTION SUMMARY -*-'
SELECT TYPE 6E RECORDS FROM CMRDETL
SET PGMNAM = T6EPGNM(1:4)
SET TRAN = T6ETRID(1:1)
SET HOUR = CMRTIME(1:2)
WHERE PGMNAM ¬= 'FACT'
AND TRAN ¬= 'C'
AND CMRDATE = '09/04/1999'
COMPUTE TRANS(&HOUR) = TRANS(&HOUR) + 1
USING T6ETRID T6ERESP T6EDIST T6EDISTC T6EFCWT T6EFCWTC T6ESUST
ORDER BY T6ETRID
SUMMARY
REPORT
PRINT 'TOTAL TRANSACTIONS PER HOUR'
FOR &X = 00 TO 24
SET &Y = &X + 01
PRINT 'FROM' &X ': 00 TO ' &Y ': 00 TOTAL:' &TRANS(&X)
NEXT &X
END
SELECT TYPE 6E RECORDS FROM CMRDETL
SET PGMNAM = T6EPGNM(1:4)
SET TRAN = T6ETRID(1:1)
SET HOUR = CMRTIME(1:2)
WHERE PGMNAM ¬= 'FACT'
AND TRAN ¬= 'C'
AND CMRDATE = '09/04/1999'
COMPUTE TRANS(&HOUR) = TRANS(&HOUR) + 1
USING T6ETRID T6ERESP T6EDIST T6EDISTC T6EFCWT T6EFCWTC T6ESUST
ORDER BY T6ETRID
SUMMARY
REPORT
PRINT 'TOTAL TRANSACTIONS PER HOUR'
FOR &X = 00 TO 24
SET &Y = &X + 01
PRINT 'FROM' &X ': 00 TO ' &Y ': 00 TOTAL:' &TRANS(&X)
NEXT &X
END
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*