On Sun, 3 Aug 2025 00:24:14 -0500, Jon Perryman <[email protected]> wrote:
>I suggest that you test with a proc within a proc within another proc
>using same named steps and steps at each proc level.
>Call the first proc twice and make sure you can locate the desired DD.
I thought of additional test scenarios where you include multiple open/close
and segmentation. Something to start with:
//TSTPROC1 PROC
//AAA EXEC PROC=TSTPROC2
// EXEC PROC=TSTPROC2
//TSTTSO1 EXEC PGM=IKJEFT1B,PARM='%REXXPGM"
//SYSTSIN DD DUMMY
//SYSTSPRT DD DUMMY
//SYSPROC DD DSN=SYSPROC.DATASET,DISP=SHR
// EXEC PGM=IKJEFT1B,PARM='%REXXPGM"
//SYSTSIN DD DUMMY
//SYSTSPRT DD DUMMY
//SYSPROC DD DSN=SYSPROC.DATASET,DISP=SHR
/* REXXPGM */
cnt = 0
do while cnt < 5000
cnt = cnt + 1
abc.cnt = "line" cnt "xxxxx"
end
"ALLOC DDN(TSTDATA) SYSOUT(A) REUSE"
"EXECIO 5 DISKW TSTDATA (STEM ABC. CLOSE"
"EXECIO 5000 DISKW TSTDATA (STEM ABC. CLOSE"
"EXECIO 5 DISKW TSTDATA (STEM ABC. CLOSE"
"ALLOC DDN(TSTDATA) SYSOUT(A) REUSE"
"EXECIO 5 DISKW TSTDATA (STEM ABC. CLOSE"
"EXECIO 5000 DISKW TSTDATA (STEM ABC. CLOSE"
"EXECIO 5 DISKW TSTDATA (STEM ABC. CLOSE"
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
