quote:

TABLE FILE CAR
PRINT CAR
SEATS
ON TABLE HOLD AS FORMAT JSON
END

{ "records" : [
{ "CAR" : "JAGUAR","SEATS" : "2" }
,
{ "CAR" : "JAGUAR","SEATS" : "5" }
,
{ "CAR" : "JENSEN","SEATS" : "4" }
,
{ "CAR" : "DATSUN","SEATS" : "4" }
,
{ "CAR" : "MASERATI","SEATS" : "2" }
,
{ "CAR" : "TOYOTA","SEATS" : "4" }
,
{ "CAR" : "AUDI","SEATS" : "5" }
,
{ "CAR" : "TRIUMPH","SEATS" : "2" }
,
{ "CAR" : "ALFA ROMEO","SEATS" : "4" }
,
{ "CAR" : "ALFA ROMEO","SEATS" : "2" }
,
{ "CAR" : "BMW","SEATS" : "5" }
,
{ "CAR" : "BMW","SEATS" : "4" }
,
{ "CAR" : "BMW","SEATS" : "5" }
,
{ "CAR" : "PEUGEOT","SEATS" : "5" }
] }

quote:

{ "data" : [
{ "CAR" : "JAGUAR","SEATS" : "2" }
,
{ "CAR" : "JAGUAR","SEATS" : "5" }
,
{ "CAR" : "JENSEN","SEATS" : "4" }
,
{ "CAR" : "DATSUN","SEATS" : "4" }
,
{ "CAR" : "MASERATI","SEATS" : "2" }
,
{ "CAR" : "TOYOTA","SEATS" : "4" }
,
{ "CAR" : "AUDI","SEATS" : "5" }
,
{ "CAR" : "TRIUMPH","SEATS" : "2" }
,
{ "CAR" : "ALFA ROMEO","SEATS" : "4" }
,
{ "CAR" : "ALFA ROMEO","SEATS" : "2" }
,
{ "CAR" : "BMW","SEATS" : "5" }
,
{ "CAR" : "BMW","SEATS" : "4" }
,
{ "CAR" : "BMW","SEATS" : "5" }
,
{ "CAR" : "PEUGEOT","SEATS" : "5" }
] }

SET HOLDLIST = PRINTONLY
SET PAGE     = NOLEAD

FILEDEF PUTDD1 DISK putdd1.dat
-RUN

TABLE FILE EMPLOYEE
PRINT EMP_ID
      CURR_JOBCODE AS 'JOB'
      CURR_SAL
      COMPUTE SALA/A12 = FPRINT(CURR_SAL, 'D12.2c', 'A12'); NOPRINT
      COMPUTE EMP1/A50= LAST_NAME | FIRST_NAME | EMP_ID | CURR_JOBCODE | SALA; NOPRINT
      COMPUTE OUT1/I1 = PUTDDREC('PUTDD1',6, EMP1, 50, OUT1); NOPRINT
   BY LAST_NAME
   BY FIRST_NAME
ON TABLE SAVE
END
-RUN

CMD TYPE putdd1.dat

quote:

I can't see how PUTDDREC is different than regular DEFINE or COMPUTE.

FILEDEF PUTDD1 DISK focalpoint/putdd1.json
-RUN

TABLE FILE CAR
  SUM COMPUTE CNTR1/I3 = LAST CNTR1 + 1;
      COMPUTE CNTR2/I3 = IF COUNTRY NE LAST COUNTRY THEN 1 ELSE LAST CNTR2 + 1;
      COMPUTE CNTR3/I3 = IF CAR     NE LAST CAR     THEN 1 ELSE LAST CNTR3 + 1;
      COMPUTE CNTR4/I3 = IF MODEL   NE LAST MODEL   THEN 1 ELSE LAST CNTR4 + 1;
      COMPUTE ROW6/I3 = IF CAR     NE LAST CAR     AND CNTR1 NE 1 THEN PUTDDREC('PUTDD1', 20, '    ] } },', 50, 'I3');
      COMPUTE ROW5/I3 = IF COUNTRY NE LAST COUNTRY AND CNTR1 NE 1 THEN PUTDDREC('PUTDD1', 20, '  ] } },', 50, 'I3');
      COMPUTE ROW1/I3 = IF CNTR1 EQ 1 THEN PUTDDREC('PUTDD1', 20, '{"data": { [', 50, 'I3');
      COMPUTE ROW2/I3 = IF CNTR2 EQ 1 THEN PUTDDREC('PUTDD1', 20, '  {"country": {"' || COUNTRY || '" [', 50, 'I3');
      COMPUTE ROW3/I3 = IF CNTR3 EQ 1 THEN PUTDDREC('PUTDD1', 20, '    {"car": {"' || CAR || '" [', 50, 'I3');
      COMPUTE ROW4/I3 = IF CNTR4 EQ 1 THEN PUTDDREC('PUTDD1', 20, '      {"model": "' || MODEL || '", "sales": ' || LJUST(12, FPRINT(SALES, 'D10.2', 'A12'), 'A12') || '}', 100, 'I3');
   BY COUNTRY
   BY CAR
   BY MODEL
ON TABLE SAVE
END
-RUN

-SET &Line7 = '    ] } },';
-SET &Line8 = '  ] } },';
-SET &Line9 = '] } }';

FILEDEF PUTDD1 DISK focalpoint/putdd1.json (APPEND
-RUN

-WRITE PUTDD1 &Line7
-WRITE PUTDD1 &Line8
-WRITE PUTDD1 &Line9

{"data": { [
  {"country": {"ENGLAND" [   
    {"car": {"JAGUAR" [          
      {"model": "V12XKE AUTO", "sales":.00}                       
      {"model": "XJ12L AUTO", "sales":12,000.00}                  
    ] } },
    {"car": {"JENSEN" [          
      {"model": "INTERCEPTOR III", "sales":.00}                   
    ] } },
    {"car": {"TRIUMPH" [         
      {"model": "TR7", "sales":.00}                               
    ] } },
  ] } },
  {"country": {"FRANCE" [    
    {"car": {"PEUGEOT" [         
      {"model": "504 4 DOOR", "sales":.00}                        
    ] } },
  ] } },
  {"country": {"ITALY" [     
    {"car": {"ALFA ROMEO" [      
      {"model": "2000 4 DOOR BERLINA", "sales":4,800.00}          
      {"model": "2000 GT VELOCE", "sales":12,400.00}              
      {"model": "2000 SPIDER VELOCE", "sales":13,000.00}          
    ] } },
    {"car": {"MASERATI" [        
      {"model": "DORA 2 DOOR", "sales":.00}                       
    ] } },
  ] } },
  {"country": {"JAPAN" [     
    {"car": {"DATSUN" [          
      {"model": "B210 2 DOOR AUTO", "sales":43,000.00}            
    ] } },
    {"car": {"TOYOTA" [          
      {"model": "COROLLA 4 DOOR DIX AUTO", "sales":35,030.00}     
    ] } },
  ] } },
  {"country": {"W GERMANY" [ 
    {"car": {"AUDI" [            
      {"model": "100 LS 2 DOOR AUTO", "sales":7,800.00}           
    ] } },
    {"car": {"BMW" [             
      {"model": "2002 2 DOOR", "sales":8,950.00}                  
      {"model": "2002 2 DOOR AUTO", "sales":8,900.00}             
      {"model": "3.0 SI 4 DOOR", "sales":14,000.00}               
      {"model": "3.0 SI 4 DOOR AUTO", "sales":18,940.00}          
      {"model": "530I 4 DOOR", "sales":14,000.00}                 
      {"model": "530I 4 DOOR AUTO", "sales":15,600.00}            
    ] } },
  ] } },
] } }