Developing ISPF program with Rexx

The Main Process:

1.Panel definition, Message Definition and file tailoring skeletons are created  and saved in ISPF library before running the Dialog.

2.Program(after compiled) and command procedure created and stored in system program library.

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 /*