SOURCE FILE . . . . . . .  QDDSSRC
MEMBER  . . . . . . . . .  QRCODE

     A          R RECORD1
     A                                  3  3'QRCODE barcode @ r4c3w.007'
     A            FIELD1        59      4  3BARCODE(32 X'02' (*WIDTH 0.035))
     A                                 24  3'QRCODE barcode @ r25c22w.07'
     A            FIELD2        59     25 22BARCODE(32 X'02' (*WIDTH 0.07))
     A                                  3 41'PDF417 barcode @ r4c41 30 chars'
     A            FIELD3        30      4 41BARCODE(PDF417 3 (*PDF417 6 5 0))
     A                                 49  3'MAXICODE barcode @ r50c3 30 chars'
     A            FIELD4        30     50  3BARCODE(MAXICODE (*MAXICODE 4))
     A                                 49 41'DATAMATRIX barcode @ r50c41'
     A            FIELD5       100     50 41BARCODE(DATAMATRIX
     A                                      (*DATAMATRIX 20 20))