SAS - split dataset into subsets based on number of records

sas_split_data_number_records

*create a sample data set;
data have;
    do i=1 to 7000;
        x=rand('bernoulli', 0.4);
        output;
    end;
run;

*Set group size;
%let group_size = 1000;

*Creates a data set, but not required can be a data _null_ data step;
data want;

    set have end=_eof nobs=_nobs;
    length list_names $32000.;
    retain group 0 list_names;

    prev_group=group;
    
    if mod(_n_, &group_size)=0 then group+1;
    
    if group ne prev_group or _eof then do;
        if _eof then list_names = catx(", ", list_names, put(x, 8.2));
        call symputx("list"||put(group, z2.), list_names, 'g');
        call missing(list_names);
    end;

        list_names = catx(", ", list_names, put(x, 8.2));

    
run;

%put &list01;
%put &list04;