Return to DINIT27L.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT27L.m, revision 1.1

1.1     ! snw         1: DINIT27L       ;SFISC/DPC - SAS (COLUMNS) FOREIGN FORMAT;2/26/93  11:05 AM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT28 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
        !             5:        Q
        !             6: ENTRY  ;
        !             7:        ;;^DIST(.44,.011,0)
        !             8:        ;;=SAS (COLUMNS)^^^^^1^1^0^1^^1^1
        !             9:        ;;^DIST(.44,.011,1)
        !            10:        ;;=D SASCOL^DDXPLIB
        !            11:        ;;^DIST(.44,.011,2)
        !            12:        ;;=";"
        !            13:        ;;^DIST(.44,.011,3,0)
        !            14:        ;;=^^5^5^2921229^
        !            15:        ;;^DIST(.44,.011,3,1,0)
        !            16:        ;;=This format creates output designed for use with SAS.  The output is
        !            17:        ;;^DIST(.44,.011,3,2,0)
        !            18:        ;;=column-oriented.  The user is prompted for field lengths, maximum record
        !            19:        ;;^DIST(.44,.011,3,3,0)
        !            20:        ;;=length, field names (used as SAS variable names), and data types.  Field
        !            21:        ;;^DIST(.44,.011,3,4,0)
        !            22:        ;;=length for date data types must be 8 or larger.  No semicolons (;) may
        !            23:        ;;^DIST(.44,.011,3,5,0)
        !            24:        ;;=appear in the data.
        !            25:        ;;^DIST(.44,.011,4,0)
        !            26:        ;;=^^6^6^2930226^^^
        !            27:        ;;^DIST(.44,.011,4,1,0)
        !            28:        ;;=The exported output begins with an INPUT statement that contains variable
        !            29:        ;;^DIST(.44,.011,4,2,0)
        !            30:        ;;=names as specified by the user.  For numeric and free text (character)
        !            31:        ;;^DIST(.44,.011,4,3,0)
        !            32:        ;;=data, the start and end columns are shown.  For date data, the informat
        !            33:        ;;^DIST(.44,.011,4,4,0)
        !            34:        ;;='YYMMDDw.' is used with data always given YYYYMMDD (i.e., full century
        !            35:        ;;^DIST(.44,.011,4,5,0)
        !            36:        ;;=data).  Following the INPUT statement is a 'CARDS;' line, followed by the
        !            37:        ;;^DIST(.44,.011,4,6,0)
        !            38:        ;;=columnar data, followed by ';'.
        !            39:        ;;^DIST(.44,.011,5,0)
        !            40:        ;;=^.441^^
        !            41:        ;;^DIST(.44,.011,6)
        !            42:        ;;=S Y=X+17000000