expression--Logical not/not

Note:The ¬ operator character may be absent in Ascii implementations. The backslash character (\) is now preferred.

Code:

000001 /* rexx */ 000002 /* symb02 - if logical not a non-0 or 1 value*/ 000003 000004 n = 3 000005 if \n then 000006 say 'you are wrong' 000007

Message:

5 +++ if :n IRX0034I Error running SMB02, line 5: Logical value not 0 or 1 ***

How to show MVS code within blog

add code within a table and td style="font-family: Courier, 'Courier New', sans-serif; font-size: 11px; color: #00FF00;background-color: #000000; border: #D1D7DC; border-style: solid;border-left-width: 1px; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px"

Code:

//SORT01 EXEC PGM=SORT //SORTJNF1 DD * f123 f456 f789 //SORTJNF2 DD * s123 s456 s789 //SORTOUT DD SYSOUT=* //SYSIN DD * JOINKEYS FILE=F1,FIELDS=(2,3,A) JOINKEYS FILE=F2,FIELDS=(2,3,A) REFORMAT FIELDS=(F2:1,7) SORT FIELDS=COPY END /*