REFERENCE [IS] dataname PIC picclause
For example:
01 PART-DETAIL TYPE IS DETAIL
NEXT GROUP PLUS 1
MOCKUP LINE 13
SOURCE WS-LOCATION-CODE GROUP INDICATE
SOURCE WS-LAST-COUNT-MONTH
SOURCE WS-LAST-COUNT-DAY
SOURCE WS-LAST-COUNT-YEAR
SOURCE WS-QTY-IN-STOCK
SOURCE WS-QTY-ISSUED
SOURCE WS-QTY-RECEIVED
REFERENCE WS-NO-OF-SALES PIC 9999