z/OS MVS Programming: Sysplex Services Reference
Previous topic | Next topic | Contents | Contact z/OS | Library | PDF


Examples

z/OS MVS Programming: Sysplex Services Reference
SA38-0658-00

Start of change

Operation: Create a note pad with the name MYOWNER MYAPP1. The note pad can hold up to 10 notes and can receive updates from multiple connectors simultaneously. Register 2 points to the area where XCF will return answer area information. XCF will store the return code and reason code into the variables RETURN and REASON. The code for this operation is as follows:

         LA    R2,MYAA       LOAD ADDRESS OF ANSWER AREA                
         IXCNOTE REQUEST=NOTEPAD,NOTEPAD=MYNP,REQTYPE=CREATE,          X
                 DESCRIPTION=MYDESC,#NOTES=NOTENUM,MULTIWRITE=YES      X
                 ANSAREA=(R2),ANSLEN=MYAALEN,                          X
                 RETCODE=RETURN,RSNCODE=REASON,MF=S                     
                                                                        
MYNP     DC    CL32'MYOWNER MYAPP1                  '  NOTE PAD NAME    
MYDESC   DC    CL32'NOTE PAD USED FOR MYOWNER MYAPP1'  DESCRIPTION      
NOTENUM  DC    F'10'         NUMBER OF NOTES                            
MYAA     DS    CL1024        ANSWER AREA TO CONTAIN DATA RETURNED      X
                             BY IXCNOTE                                 
MYAALEN  DC    F'1024'       LENGTH OF THE ANSWER AREA                  
RETURN   DS    1F            RETURN CODE                                
REASON   DS    1F            REASON CODE                                            
End of change

Go to the previous page Go to the next page




Copyright IBM Corporation 1990, 2014