{
{   The purpose of this request is to write an SCL procedure  from  an  object
{ library to a legible file in its original source form.
{
{       CLP$EXTRACT_SCL_PROCEDURE (FILE_ID, SCL_PROCEDURE, STATUS)
{
{ FILE_ID: (input) This parameter specifies the identifier of the legible file
{       to which the source form of the SCL procedure is to be written.
{
{ SCL_PROCEDURE: (input) This parameter specifies the  data  representing  the
{       SCL procedure.
{
{ STATUS: (output) This parameter specifies the request status.
{
