MVS Jan 2005.p65 - CBT Tape

DBL2 DS 2D Dbl word work area
WORKLEN EQU *-DETAWORK
RØ EQU Ø
R1 EQU 1
R2 EQU 2
R3 EQU 3
R4 EQU 4
R5 EQU 5
R6 EQU 6
R7 EQU 7
R8 EQU 8
R9 EQU 9
R1Ø EQU 1Ø
R11 EQU 11
R12 EQU 12
R13 EQU 13
R14 EQU 14
R15 EQU 15
END
TESTATT C
/*
* The TESTATT program is designed to test the ATTACH()/DETACH()
* function pair. The ATTACH() function can be used as an alternative
* to other IBM C/C++ multi-tasking tools such as fork(), spawn(),
* pthread_create(), or the C Multi-Tasking Facility (MTF).
*
* This program can be compiled as either an IBM C or an IBM C++
* program. Use standard C or C++ compile and prelink procedures.
*
* Be sure to convert all occurrences of '[' to x'AD' and all
* occurrences of ']' to x'BD' prior to performing the program
* compile.
*/
#pragma runopts("POSIX(ON)")
#define _POSIX_SOURCE
#include
#include
#include
#include
#include
/* Indicate to the compiler that standard OS linkage will be used. */
#ifdef __cplusplus
extern "OS" int ATTACH(char*, unsigned char**, unsigned int*,
unsigned int*, unsigned int*, ...);
extern "OS" int DETACH(unsigned int*, char*);
#else
#pragma linkage (ATTACH, OS)
42 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.