This is a service routine to be provided as a " sink" routine for the AST_CHANNEL function. It takes data in the form of text (in response to writing an AST_ object to a Channel) and delivers it to a GRP group for storage.

This routine has only a STATUS argument, so it communicates with other KPG routines via global variables stored in the KPG_AST common blocks. These are described below under " Global Variables used as Arguments" .

CALL KPG1_SNKTA( STATUS )

STATUS = INTEGER (Given and Returned)

ASTGRP = INTEGER (Given) A GRP identifier for the group which is to store the data. ASTTSZ = INTEGER (Given) The maximum length of text which should be stored in a single element of the group. This should be less than or equal to GRP__SZNAM. ASTLN = INTEGER (Given and Returned) This must initially be set to the value 1, to indicate that data will be written starting at the first element of the group (note the routine will not operate correctly unless 1 is the initial value - you cannot start writing at another point in the group if you have previously written to a different group). On exit it will be incremented by the number of elements used to store data, so that it identifies the first element to be used on the next invocation.