Return to MAXLEN.m CVS log

Up to [Coherent Logic Development] / freem / tests

Annotation of freem/tests/MAXLEN.m, revision 1.1

1.1     ! snw         1: MAXLEN ;
        !             2:     S $ZTRAP="ERRH"
        !             3:     W "Creating an 8-character local variable name:  "
        !             4:     S IDENT="ABCDEFGH",@IDENT="FOO"
        !             5:     I ABCDEFGH="FOO" W "OK",!  E  W "MISMATCH",!
        !             6:     KILL
        !             7:     W "Creating a 256-character local variable name:  "
        !             8:     S $P(IDENT,"A",256)="A",@IDENT="FOO"
        !             9:     I @IDENT="FOO" W "OK",!  E  W "MISMATCH",!
        !            10:     KILL
        !            11:     W "Creating a 257-character local variable name:  "
        !            12:     S $P(IDENT,"A",257)="A",@IDENT="FOO"
        !            13:     I @IDENT="FOO" W "OK",!  E  W "MISMATCH",!
        !            14:     Q
        !            15: ERRH ;
        !            16:     W "ERROR!",!
        !            17:     W " $ECODE  = ",$ECODE,!
        !            18:     W " $ZERROR = ",$ZERROR,!
        !            19:     S ERCODE=$P($P($ZERROR,"<",2),">",1)
        !            20:     W " MESSAGE = '",$VIEW(16,ERCODE),"'",!
        !            21:     HALT
        !            22: