MVS Jan 2005.p65 - CBT Tape

parameter values for verification purposes. The ATTACH program
name (in this case, ATTPGM1) must be right padded with blanks
if the program name is less than 8 characters. */
i1 = ATTACH("ATTPGM1 ",&attach_work1,
&ecb1,&tcb1,NULL,&j,25Ø,"abcdef");
i2 = ATTACH("ATTPGM1 ",&attach_work2,
&ecb2,&tcb2,NULL,&k,1Ø24,"123456");
i3 = ATTACH("ATTPGM1 ",&attach_work3,
&ecb3,&tcb3,NULL,4Ø96,k,"987654");
/* Isolate the task complete indicator bit in the ECB and wait for
each subtask to complete. */
c1 = ecb1;
d1 = c1 >> 24;
e1 = d1 & ØxØØØØØØ4Ø;
c2 = ecb2;
d2 = c2 >> 24;
e2 = d2 & ØxØØØØØØ4Ø;
c3 = ecb3;
d3 = c3 >> 24;
e3 = d3 & ØxØØØØØØ4Ø;
while (e1 == Ø ]] e2 == Ø ]] e3 == Ø)
{
sleep(1);
c1 = ecb1;
d1 = c1 >> 24;
e1 = d1 & ØxØØØØØØ4Ø;
c2 = ecb2;
d2 = c2 >> 24;
e2 = d2 & ØxØØØØØØ4Ø;
c3 = ecb3;
d3 = c3 >> 24;
e3 = d3 & ØxØØØØØØ4Ø;
}
/* The subtasks have all completed. DETACH and terminate the parent
program. */
i1 = DETACH(&tcb1,"STAE");
i2 = DETACH(&tcb2,"STAE");
i3 = DETACH(&tcb3,"STAE");
return(Ø);
}
ATTPGM1 ASM
***********************************************************************
* This program is a test program used to test out the ATTACH() *
* function. The sample driver C program TESTATT is used to *
* ATTACH this test program any number of times. This program *
* expects an incoming parameter that contains the address of the *
* incoming parameter list. Three parameters are passed to this *
44 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.