FILEDEF tstmstr2 DISK /{serverName}/app/ibi/apps/test_s3/tstmstr2.mas (LRECL 1024 RECFM V -RUN -WRITE tstmstr2 FILENAME=jsn, SUFFIX=JSON , -WRITE tstmstr2 DATASET=/{serverName}/app/ibi/apps/jsn.json, $ -WRITE tstmstr2 SEGMENT=SEGMENT1, SEGTYPE=S0, $ -WRITE tstmstr2 FIELDNAME='FIELD1', USAGE='A32', ACTUAL=A128, TITLE='Field 1' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $ -WRITE tstmstr2 FIELDNAME='FIELD2', USAGE='A32', ACTUAL=A128, TITLE='Field 2' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $ -RUN -CLOSE tstmstr2 -SET &ECHO = OFF ; CHECK FILE tstmstr2 TABLE FILE tstmstr2 PRINT * END ?FF tst1 -EXIT -* DISPLAYS THIS HTML: (FOC209) THE DATA VALUE EXCEEDS ITS LENGTH SPECIFICATION: JSON WRITE tstmstr2 ---------------------vvvvvvvvvvvvvvvvvvvvvv FILENAME=jsn, SUFFIX=JSON WRITE tstmstr2 DATASET=/{serverName}/app/ibi/apps/jsn.json, $ (FOC209) THE DATA VALUE EXCEEDS ITS LENGTH SPECIFICATION: JSON WRITE tstmstr2 BYPASSING TO END OF COMMAND (FOC209) THE DATA VALUE EXCEEDS ITS LENGTH SPECIFICATION: JSON WRITE tst1 ---------------------vvvvvvvvvvvvvvvvvv FILENAME=jsn, SUFFIX=JSON WRITE tst1 DATASET=/{serverName}/app/ibi/apps/jsn.json, $ -* CREATES THIS SYNONYM: FILENAME=jsn, SUFFIX=JSON WRITE tstmstr2 DATASET=/{serverName}/app/ibi/apps/jsn.json, $ SEGMENT=SEGMENT1, SEGTYPE=S0, $ FIELDNAME='FIELD1', USAGE='A32', ACTUAL=A128, TITLE='Field 1' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $ FIELDNAME='FIELD2', USAGE='A32', ACTUAL=A128, TITLE='Field 2' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $
FILEDEF tstmstr2 DISK /{serverName}/app/ibi/apps/test_s3/tstmstr2.mas (LRECL 1024 RECFM V -RUN -WRITE tstmstr2 FILENAME=jsn, SUFFIX=JSON -WRITE tstmstr2 DATASET=/{serverName}/app/ibi/apps/jsn.json, $ -WRITE tstmstr2 SEGMENT=SEGMENT1, SEGTYPE=S0, $ -WRITE tstmstr2 FIELDNAME='FIELD1', USAGE='A32', ACTUAL=A128, TITLE='Field 1' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $ -WRITE tstmstr2 FIELDNAME='FIELD2', USAGE='A32', ACTUAL=A128, TITLE='Field 2' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $ -RUN -CLOSE tstmstr2 -SET &ECHO = OFF ; CHECK FILE tstmstr2 TABLE FILE tstmstr2 PRINT * END ?FF tst1 -EXIT -* DISPLAYS THIS HTML: 0 NUMBER OF ERRORS= 0 NUMBER OF SEGMENTS= 1 ( REAL= 1 VIRTUAL= 0 ) NUMBER OF FIELDS= 2 INDEXES= 0 FILES= 1 TOTAL LENGTH OF ALL FIELDS= 256 (FOC42256) CONTENT NOT ALLOWED AT ROOT LEVEL. '<' EXPECTED 0 NUMBER OF RECORDS IN TABLE= 0 LINES= 0 (FOC209) THE DATA VALUE EXCEEDS ITS LENGTH SPECIFICATION: JSON WRITE tst1 ---------------------vvvvvvvvvvvvvvvvvv FILENAME=jsn, SUFFIX=JSON WRITE tst1 DATASET=/{serverName}/app/ibi/apps/jsn.json, $ -* CREATES THIS SYNONYM: FILENAME=jsn, SUFFIX=JSON DATASET=/{serverName}/app/ibi/apps/jsn.json, $ SEGMENT=SEGMENT1, SEGTYPE=S0, $ FIELDNAME='FIELD1', USAGE='A32', ACTUAL=A128, TITLE='Field 1' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $ FIELDNAME='FIELD2', USAGE='A32', ACTUAL=A128, TITLE='Field 2' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $
-*MANUALLY ADDING A COMMA AFTER JSON, IN THE FIRST LINE, ELIMINATES THE FOC ERROR. -*IGNORE THE ZERO RECORDS, I'LL DAEL WITH THAT LATER. FILENAME=jsn, SUFFIX=JSON, DATASET=/{serverName}/app/ibi/apps/jsn.json, $ SEGMENT=SEGMENT1, SEGTYPE=S0, $ FIELDNAME='FIELD1', USAGE='A32', ACTUAL=A128, TITLE='Field 1' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $ FIELDNAME='FIELD2', USAGE='A32', ACTUAL=A128, TITLE='Field 2' ,MISSING=ON, REFERENCE=SEGMENT1, PROPERTY=ELEMENT, $ -*AND DISPLAYS THIS HTML: Everything is fine with teh synonym creation. *** Done creating the Dynamic Synonym for tstmstr2 ... /{serverName}/app/ibi/apps/test_s3/tstmstr2.mas /{serverName}/app/ibi/apps/test_s3/tstmstr2.acx *** TABLE FILE tstmstr2 ... 0 NUMBER OF RECORDS IN TABLE= 0 LINES= 0 *** ?FF tstmstr2 ... FILENAME= TSTMSTR2 FIELD1 A32 FIELD2 A32 LIST I5 *** CHECK FILE tstmstr2 PICTURE ... 0 NUMBER OF ERRORS= 0 NUMBER OF SEGMENTS= 1 ( REAL= 1 VIRTUAL= 0 ) NUMBER OF FIELDS= 2 INDEXES= 0 FILES= 1 TOTAL LENGTH OF ALL FIELDS= 256 1SECTION 01 STRUCTURE OF JSON FILE TSTMSTR2 ON 02/20/20 AT 17.37.49 SEGMENT1 01 S0 ************** *FIELD1 ** *FIELD2 ** * ** * ** * ** *************** ************** *** Started on Feb 20, 2020 at 17.37.49 ***
In FOCUS Since 1983 ~ from FOCUS to WebFOCUS. Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206 |
-SET &Comma = ',';
-WRITE tstmstr2 FILENAME=jsn, SUFFIX=JSON &Comma
In FOCUS Since 1983 ~ from FOCUS to WebFOCUS. Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206 |
In FOCUS Since 1983 ~ from FOCUS to WebFOCUS. Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206 |