11 lines
287 B
Plaintext
11 lines
287 B
Plaintext
//DESBD130 PROC 00000010
|
|
//****
|
|
//* UPDATE THE YEAR PORTION OF THE LAST USED LOG NUMBER
|
|
//* WHEN THE YEAR CHANGES.
|
|
//*
|
|
//****
|
|
//STEP0100 EXEC PGM=DESBD130,
|
|
// COND=(0,LT)
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//**
|