MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
#pragma linkage (DETACH, OS)<br />
#endif<br />
main(int argc, char *argv[])<br />
{<br />
int i,j,k;<br />
unsigned char *attach_work1;<br />
unsigned int ecb1;<br />
unsigned int tcb1;<br />
unsigned int c1, d1, e1, f1, i1;<br />
unsigned char *attach_work2;<br />
unsigned int ecb2;<br />
unsigned int tcb2;<br />
unsigned int c2, d2, e2, f2, i2;<br />
unsigned char *attach_work3;<br />
unsigned int ecb3;<br />
unsigned int tcb3;<br />
unsigned int c3, d3, e3, f3, i3;<br />
/* Acquire working storage for first subtask. */<br />
attach_work1 = (unsigned char *)calloc(2Ø48,1);<br />
if (attach_work1 == NULL)<br />
{<br />
printf("Unable to obtain working storage.\n");<br />
return(-1);<br />
}<br />
memset(attach_work1, Ø, 2Ø48);<br />
attach_work1[2] = ØxØ8;<br />
attach_work1[3] = ØxØØ;<br />
/* Acquire working storage for second subtask. */<br />
attach_work2 = (unsigned char *)calloc(2Ø48,1);<br />
if (attach_work2 == NULL)<br />
{<br />
printf("Unable to obtain working storage.\n");<br />
return(-1);<br />
}<br />
memset(attach_work2, Ø, 2Ø48);<br />
attach_work2[2] = ØxØ8;<br />
attach_work2[3] = ØxØØ;<br />
/* Acquire working storage for third subtask. */<br />
attach_work3 = (unsigned char *)calloc(2Ø48,1);<br />
if (attach_work3 == NULL)<br />
{<br />
printf("Unable to obtain working storage.\n");<br />
return(-1);<br />
}<br />
memset(attach_work3, Ø, 2Ø48);<br />
attach_work3[2] = ØxØ8;<br />
attach_work3[3] = ØxØØ;<br />
j = 24Ø;<br />
k = 1ØØ;<br />
/* ATTACH the test program three times with various different<br />
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.<br />
43