Hier ein typisches Beispiel in RPGLE

Code:
H DECEDIT('0,')  DATEDIT(*DMY.)  ACTGRP('BSPPGM') 
Finput    IP   E           K DISK                
FOutput   O    E             DISK                
C                   WRITE     SATZFORMAT