You may find something close to what you are asking for by using DDUTILTY:
https://docops.ca.com/ca-datacom/15-1/en/using/ca-datacom-datadictionary-batch-facilities/ddutilty-producing-reports-and-source-language-statements/ddutilty-sample-job-streams-and-output For example, for our Table PERSON:
//SYSIN DD *
+USR DATACOM-INSTALL,NEWUSER
-UTL LIBRARY,OS
-UTL LANGUAGE,COBOL,DESCRIPTION
-UTL COPY,TABLE,PERSON(PROD),PER-TBL
-END
However the above does not give the offsets. But gives a full copybook layout.
Replace DESCRIPTION by NONE to get a easier output to read,
But using DR instead of COBOL will give the offsets.
Offset starting at 301, see docops for further information.
Several language are supported.