e2ecdcfe33
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerlya02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]]] Former-commit-id:06a8b51d6dFormer-commit-id:8e80217e59[formerly3360eb6c5f] Former-commit-id:377dcd10b9
18 lines
479 B
Text
18 lines
479 B
Text
C MEMBER UFLDBLOC
|
|
C-----------------------------------------------------------------------
|
|
C
|
|
BLOCK DATA
|
|
C
|
|
C INITIALIZE FREE FORMAT FIELD COMMON BLOCK
|
|
C
|
|
INCLUDE 'ufreex'
|
|
C
|
|
DATA PFCOMA/.TRUE./
|
|
DATA ICDBUF/100*' '/
|
|
DATA ICDSTR/1/,ICDSTP/72/,IPRCRD/0/,IPRBLN/1/,IPRMPT/0/
|
|
DATA NRDCRD/0/,ICPNCH/7/,NPUCRD/0/,IPRTCD/0/,MAXFLD/50/
|
|
DATA ICKDAT/0/,ICDTMP/02/,IOPREP/0/,ICDSPC/1/,ICDQTE/1/
|
|
DATA NFLDNQ/0/
|
|
DATA CMTCHR/'$'/
|
|
C
|
|
END
|