AS400_C

CHGDTAQ

 

0001.00  #include
0002.00  #include
0003.00  #include
0004.00 
0005.00  #define STAR 1
0006.00  #define LENGTH 50
0007.00 
0008.00  void main()
0009.00  {
0010.00   char nd??(LENGTH+1??)="SKDLJFSDKLJFKDSJFLKDSJFDSKFJDL";
0011.00   _DTAA_NAME_T datnm ={"MYYDATA   ","MYYLIB    "};
0012.00   QXXCHGDA(datnm,STAR,LENGTH,nd);
0013.00  }

 

RCVDTAQ

0001.00      #include                                   
0002.00      #include                                  
0003.00      #define DATA_AREA_LENGTH 30                         
0004.00      #define START 6                                     
0005.00      #define LENGTH 14                                   
0006.00      int main(void)                                      
0007.00      {                                                   
0008.00      char uda_area??(DATA_AREA_LENGTH??);                
0009.00                                                          
0011.00      _DTAA_NAME_T dtaname = {"MYYDATA   ", "MYYLIB    "};
0013.00      QXXRTVDA(dtaname,START,LENGTH,uda_area);            
0015.00      printf("uda_area contains %s $n",uda_area);         
0016.00      }