9.187 PUT_NUM_AREA
Þ Note: Built-In Function Rules.
Puts a numeric value into a numeric data area.
For use with
|
Arguments
|
Return Values
No return values.
Example
Retrieve a batch number #BATCH from data area named NEXTBATCH which should be located via the job's library list.
Increment the batch number value and place the incremented value back into the data area.
Make sure that no 2 jobs can be assigned the same batch number by using the lock and unlock options.
USE BUILTIN(GET_NUM_AREA)
WITH_ARGS(NEXTBATCH '''*LIBL''' 'Y') TO_GET(#BATCH)
CHANGE FIELD(#BATCH) TO('#BATCH + 1')
USE BUILTIN(PUT_NUM_AREA)
WITH_ARGS(#BATCH NEXTBATCH '''*LIBL''' 'Y')