This is an Example of a Source Member after NESTRPG has been executed.
Columns . . . : 1 80 Edit
SEU===> ____________________________________________________________
FMT * ..... *. 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8
**************** Beginning of Data *****************************************************
0001.00
F**********************************
0002.00 F* PRODATA COMPUTER SERVICES
0003.00 F* NEST RPG EXAMPLE
0004.00 F**********************************
0008.00 C*
0009.00 C START TAG
0010.00 C *IN80 IFEQ '1' B001
0011.00 @0016C EXSR EDIT 001
0012.00 @0042C *IN30 CABEQ'1' ERROR 001
0012.00 C ELSE X001
0013.00 C SETON 80 001
0014.00 C END E001
0015.00 C*
0016.00 C EDIT BEGSR
0017.00 C ENTCC IFEQ 20 B001
0018.00 C ENTYY IFGE 00 B002
0019.00 C ENTYY ANDLE50 002
0020.00 @0036C GOTO OK 002
0021.00 C ELSE X002
0022.00 @0042C GOTO ERROR 002
0023.00 C END E002
0024.00 C ELSE X001
0025.00 C ENTYY IFGE 50 B002
0026.00 C ENTYY ANDLE99 002
0027.00 @0036C GOTO OK 002
0028.00 C ELSE X002
0029.00 @0042C GOTO ERROR 002
0030.00 C END E002
0031.00 C END E001
0032.00 C*
0033.00 C ERROR TAG
0034.00 C . .
0035.00 C . .
0036.00 C OK TAG
0037.00 C*
0038.00 C EDIT BEGSR
0039.00 C . .
0039.00 C . .
0040.00 C ENDSR
0041.00 C*
0042.00 C ERROR BEGSR
0043.00 C . .
0044.00 C . .
0045.00 C ENDSR