{ ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_execute, "foo2",
ECPGt_descriptor, "indesc", 1L, 1L, 1L,
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT,
- ECPGt_descriptor, "outdesc", 1L, 1L, 1L,
+ ECPGt_descriptor, (desc1), 1L, 1L, 1L,
ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);
#line 53 "desc.pgc"
#line 53 "desc.pgc"
- { ECPGget_desc(__LINE__, "outdesc", 1,ECPGd_data,
+ { ECPGget_desc(__LINE__, (desc1), 1,ECPGd_data,
ECPGt_char,(val2output),(long)sizeof("AAA"),(long)1,(sizeof("AAA"))*sizeof(char), ECPGd_EODT);
#line 55 "desc.pgc"
if (sqlca.sqlcode < 0) sqlprint();
#line 85 "desc.pgc"
- ECPGdeallocate_desc(__LINE__, "outdesc");
+ ECPGdeallocate_desc(__LINE__, (desc1));
#line 86 "desc.pgc"
if (sqlca.sqlcode < 0) sqlprint();
EXEC SQL SET DESCRIPTOR indesc VALUE 1 DATA = :val1;
EXEC SQL SET DESCRIPTOR indesc VALUE 2 INDICATOR = :val2i, DATA = :val2;
- EXEC SQL EXECUTE foo2 USING SQL DESCRIPTOR indesc INTO SQL DESCRIPTOR outdesc;
+ EXEC SQL EXECUTE foo2 USING SQL DESCRIPTOR indesc INTO SQL DESCRIPTOR :desc1;
- EXEC SQL GET DESCRIPTOR outdesc VALUE 1 :val2output = DATA;
+ EXEC SQL GET DESCRIPTOR :desc1 VALUE 1 :val2output = DATA;
printf("output = %s\n", val2output);
EXEC SQL DECLARE c1 CURSOR FOR foo2;
EXEC SQL DISCONNECT;
EXEC SQL DEALLOCATE DESCRIPTOR indesc;
- EXEC SQL DEALLOCATE DESCRIPTOR outdesc;
+ EXEC SQL DEALLOCATE DESCRIPTOR :desc1;
return 0;
}