(1)
CODE:
000100 /* REXX */
000300 arga='one';argb='two';argc='three'
000400 argd='four five';arge='six seven eight'
000500 CALL myrtn arga,argb,argc,argd,arge
000501 say result
000510 EXIT
000600 Myrtn:
000700 procedure
000800 Parse Arg var1,var2,var3,var4
000810 say var1
000820 say var2
000830 say var3
000840 say var4
OUTPUT:
one
two
three
four five
***
CODE:
000100 /* REXX */
000300 arga='one';argb='two';argc='three'
000400 argd='four five';arge='six seven eight'
000500 CALL myrtn arga,argb,argc,argd,arge
000501 say result
000510 return
000600 Myrtn:
000700 procedure
000800 Parse Arg var1,var2,var3,var4
000810 say var1
000820 say var2
000830 say var3
000840 say var4
OUTPUT:
one
two
three
four
five
***
(2)
CODE:
000100 /* REXX */
000300 arga='one';argb='two';argc='three'
000400 argd='four five';arge='six seven eight'
000500 CALL myrtn arga,argb,argc,argd,arge
000501 SAY RESULT
000510 EXIT
000600 Myrtn:
000700 procedure
000800 Parse Arg var1,var2,var3,var4
000810 say var1
000820 say var2
000830 say var3
000840 say var4
000850
RETURN
OUTPUT:
one
two
three
four
five
RESULT
***
(3)
CODE:
000100 /* REXX */
000300 arga='one';argb='two';argc='three'
000400 argd='four five';arge='six seven eight'
000500 CALL myrtn arga,argb,argc,argd,arge
000510 EXIT
000600 Myrtn:
000700 procedure
000800 Parse Arg var1,var2,var3,var4 var5,var6
000810 say var1
000820 say var2
000830 say var3
000840 say var4
000841 say var5
000842 say var6
000850
RETURN
OUTPUT:
one
two
three
four
five
six
seven
eight
***
(4)
000100 /* REXX */
000300 arga='one';argb='two';argc='three'
000400 argd='four five';arge='six seven eight'
000500 CALL myrtn arga,argb,argc,argd,arge
000510 EXIT
000600 Myrtn:
000700 procedure
000800 Parse Arg var1 var2,var3,var4,var5,var6 var7 var8
000810 say var1
000820 say var2
000830 say var3
000840 say var4
000841 say var5
000842 say var6
000843 say var7
000844 say var8
000850
RETURN
OUTPUT:
one
it is null.
two
three
four
fivesix
seven
eight
***
(5)
CODE:
000100 /* REXX */
000300 arga='one';argb='two';argc='three'
000400 argd='four five';arge='six seven eight'
000500 CALL myrtn arga argb,argc argd,arge
000510 EXIT
000600 Myrtn:
000700 procedure
000800 Parse Arg var1,var2,var3,var4
000810 say var1
000820 say var2
000830 say var3
000840 say var4
000850
RETURN
OUTPUT:
one two
it is null.
three four five
six seven eight
(6)
CODE:
000100 /* REXX */
000300 arga='one';argb='two';argc='three'
000400 argd='four five';arge='six seven eight'
000500 CALL myrtn arga argb,argc argd,arge
000510 EXIT
000600 Myrtn:
000700 procedure
000800 Parse Arg var1 var2,var3 var4,var5 var6
000810 say var1
000820 say var2
000830 say var3
000840 say var4
000841 say var5
000842 say var6
000850
RETURN
OUTPUT:
one
two
three
four five six
seven eight
***
(7)
CODE:
000100 /* REXX */
000300 arga='one';argb='two';argc='three'
000400 argd='four five';arge='six seven eight'
000500 CALL myrtn arga argb,argc argd,arge
000510 EXIT
000600 Myrtn:
000700 procedure
000800 Parse Arg var1 var2,,var4 var5 var6 var7 var8
000810 say var1
000820 say var2
000830 say var3
000840 say var4
000841 say var5
000842 say var6
000843 say var7
000844 say var8
000850
RETURN
OUTPUT:
one
two
VAR3
six
seven
eight
it is null.
it is null.
***
