Return to MAXLEN.m CVS log

Up to [Coherent Logic Development] / freem / tests

Annotation of freem/tests/MAXLEN.m, revision 1.1.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: