[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]
[0033]
[0034]
[0035]
[0036]
[0037]
[0038]

$!-----------------------------------------------------------------------------
$! STREAMLF.COM
$!
$! Convert P1 to stream-LF.
$!
$! 04-NOV-2002  MGD  massaged for in-line FDL
$! 04-NOV-2002  ABI  initial suggestion
$!-----------------------------------------------------------------------------
$ IF P1 .EQS. ""
$   THEN
$   WRITE SYS$OUTPUT "Usage: @STREAMLF <file>
$   EXIT
$   ENDIF
$!
$ PATTERN=F$PARSE(P1)-F$PARSE(P1,,,"VERSION")
$ OLDNAME=""
$ LOOP:
$   NAME=F$SEARCH(PATTERN)
$   IF NAME .EQS. "" THEN EXIT
$   NAME=F$PARSE(NAME)-F$PARSE(NAME,,,"VERSION")
$   IF NAME .EQS. OLDNAME THEN EXIT
$   OLDNAME=NAME
$   IF F$FILE(NAME,"RFM").EQS."STMLF" THEN GOTO LOOP
$   WRITE SYS$OUTPUT NAME
$   CONVERT/FDL=SYS$INPUT 'NAME' 'NAME'
FILE
        BEST_TRY_CONTIGUOUS     no
        CONTIGUOUS              no
        ORGANIZATION            sequential

RECORD
        BLOCK_SPAN              yes
        CARRIAGE_CONTROL        carriage_return
        FORMAT                  stream_LF
        SIZE                    0
$   IF F$PARSE(P1,,,"VERSION") .EQS. ";0" THEN PURGE 'NAME'
$ GOTO LOOP
$!-----------------------------------------------------------------------------