Add SHA256 checksums

[lexjansen]

When creating Dataset-JSON, create a file with checksums.

data _null_;
  length datasetname $64 jsonpath $512 $128 code $2048  sha256 $64;
  set work.dirtree_adam;
  file "&project_folder/json_out/adam/_checksums.txt";
    datasetname=scan(filename, 1, ".");
    jsonpath=cats("&project_folder/json_out/adam/", datasetname, ".json");
    fileoid=cats("&_fileOID", "/", "%sysfunc(date(), is8601da.)", "/", datasetname);
    code=cats('%nrstr(%write_datasetjson('
                      , 'dataset=dataadam.', datasetname, ','
                      , 'jsonpath=', jsonpath, ','
                      , 'usemetadata=Y,'
                      , 'metadatalib=metaadam,'
                      , "fileOID=", fileoid, ","
                      , "originator=CDISC ADaM MSG Team", ","
                      , "sourceSystem=,"
                      , "sourceSystemVersion=," 
                      /* , "studyOID=&_studyOID," */
                      /* , "metaDataVersionOID=&_metaDataVersionOID," */
                      , "metaDataRef=define.xml"
                    ,');)');
    call execute(code);

    sha256 = hashing_file('sha256', jsonpath ,0);
    put "%sysfunc(datetime(), is8601dt.)" +2 sha256 +2 filename;
    
run;