variabile numerica di nome MYVAR con precisione 12 scala 5 ed inizializzala a 2.5
*D MYVAR           S             12  5 INZ(2.5)
"""
variabile numerica di nome MYVAR lunga 12 scala 5 ed inizializzala a 2.5
*D MYVAR           S             12  5 INZ(2.5)
"""
variabile numerica di nome MYVAR125 con precisione 9 scala 1
*D MYVAR125        S              9  1
"""
variabile numerica di nome MY con precisione 9
*D MY              S              9  0
"""
variabile numerica A1 con precisione 5 con 2 decimali ed inizializzala a 1
*D A1              S              5  2 INZ(1)
"""
variabile alfanumerica numerica di nome VAR lunga 10 inizializzata ad HELLO
*D VAR             S             10    INZ('HELLO')
"""
variabile alfanumerica numerica di nome VAR lunga 5 inizializzata ad HELLO
*D VAR             S              5    INZ('HELLO')
"""
variabile alfanumerica numerica di nome VARSTR di un carattere
*D VARSTR          S              1
"""
assegna alla variabile PIPPO PLUTO
*C                   EVAL      PIPPO=PLUTO
"""
stampa AAAAAAAAAA
*C     AAAAAAAAAA    DSPLY
"""
stampa AAAAA
*C     AAAAA         DSPLY
"""
assegna a P2 la conversione in stringa del prodotto tra N1 ed N2
stampa P2
*C                   EVAL      P2=%CHAR(N1 * N2)
*C     P2            DSPLY
"""
assegna a P2 la somma tra la ABCDE trimmata e FGHIY
*C                   EVAL      P2=%TRIM(ABCDE) + FGHIY
"""
chiama il programma MYPGM e passagli i parametri PARA, PARB e PARC
*C                   CALL      'MYPGM'
*C                   PARM                    PARA
*C                   PARM                    PARB
*C                   PARM                    PARC
"""
definisci una entry costituita dai parametri PARA, PARB e PARC
*C     *ENTRY        PLIST
*C                   PARM                    PARA
*C                   PARM                    PARB
*C                   PARM                    PARC
"""
se A1 è uguale a B1 allora stampa A1 altrimenti stampa B1
*C                   IF        A1=B1
*C     A1            DSPLY
*C                   ELSE
*C     B1            DSPLY
*C                   ENDIF
"""
se A1 è uguale a B1 allora stampa A1 altrimenti se A1 è maggiore B1 stampa B1 altrimenti stampa C2
*C                   IF       A1=B1
*C     A1            DSPLY
*C                   ELSEIF   A1>B1
*C     B1            DSPLY
*C                   ELSE
*C     C2            DSPLY
*C                   ENDIF
"""
*
"""
<<prompt-by-user>>
"""
*