BMS field name in a comment preceing the DFHMDF
Posted: Sun Dec 25, 2011 10:32 am
While investigating an old system I've found a notation that I seem to recall from years past. A quoted meaningful name appears in a commeent before the DFHMDF like this:
I know that today this is not needed as Assembler does accept long field names. My question is more about whether this notation was (quasi) standartised and whthere there were common interpreters that could handle it and generate copybooks with the meaningful names included?
Is so, where could I get such an interpreter?
Thanks
ZA
* 'TS25-TRAN-ID' 00000050
TRNID25 DFHMDF POS=(01,001), X00000100
LENGTH=004, X00000200
ATTRB=(PROT,FSET,NORM), X00000300
COLOR=NEUTRAL 00000400
DFHMDF POS=(01,006),ATTRB=(ASKIP,NORM),LENGTH=000 (Stopper) 00000500
* 'TS25-HDG' 00000550
HDG25 DFHMDF POS=(01,008), X00000600
LENGTH=045, X00000700
ATTRB=(PROT,FSET,NORM), X00000800
COLOR=NEUTRAL 00000900
DFHMDF POS=(01,054),ATTRB=(ASKIP,NORM),LENGTH=000 (Stopper) 00001000
TRNID25 DFHMDF POS=(01,001), X00000100
LENGTH=004, X00000200
ATTRB=(PROT,FSET,NORM), X00000300
COLOR=NEUTRAL 00000400
DFHMDF POS=(01,006),ATTRB=(ASKIP,NORM),LENGTH=000 (Stopper) 00000500
* 'TS25-HDG' 00000550
HDG25 DFHMDF POS=(01,008), X00000600
LENGTH=045, X00000700
ATTRB=(PROT,FSET,NORM), X00000800
COLOR=NEUTRAL 00000900
DFHMDF POS=(01,054),ATTRB=(ASKIP,NORM),LENGTH=000 (Stopper) 00001000
I know that today this is not needed as Assembler does accept long field names. My question is more about whether this notation was (quasi) standartised and whthere there were common interpreters that could handle it and generate copybooks with the meaningful names included?
Is so, where could I get such an interpreter?
Thanks
ZA