[Migrated content. Thread originally posted on 16 October 2004]

He give me that on the M$PUT so if there someboby how did have that problem what was the solution!

if not interne-sw
IF AFF-MODE(AFF-IDX) NOT = "GRID"
IF AFF-CLE-POINTER(AFF-IDX, MEM-IDX) = NULL
CALL "M$ALLOC" USING 177,
AFF-CLE-POINTER(AFF-IDX, MEM-IDX)
IF AFF-CLE-POINTER(AFF-IDX, MEM-IDX) = NULL
IF LC-LANGUE = CONST-FRANCAIS
DISPLAY MESSAGE BOX
"Pas capable d'utilis? la memoire"
TYPE MB-OK
GO TO FIN
ELSE
DISPLAY MESSAGE BOX "Memory allocation error"
TYPE MB-OK
GO TO FIN
END-IF
END-IF
END-IF

CALL "M$PUT" USING AFF-CLE-POINTER(AFF-IDX, MEM-IDX),
AFF-CLE(AFF-IDX).