open(FILE,"ntuser -s cphtount001 show * |");
$decalage="            ";
print STDOUT "$decalage PGM\n";
while(<FILE>)
{
	# On ne reprend que les users sur 3 positions !!!!
	if ( m/^ABU$/ )
	{
		chomp($_);
		# print "$decalage CRTUSRPRF  USRPRF($_) USRCLS(*PGMR) TEXT('UTILISATEUR $_') OWNER(*USRPRF)\n" if m/^...$/;
		print STDOUT "$decalage CRTUSRPRF  USRPRF($_) +\n";
		print STDOUT "$decalage            USRCLS(*PGMR) +\n";
		print STDOUT "$decalage            CURLIB(J75RITGDTA) +\n";
		print STDOUT "$decalage            INLPGM(ARCN001C) +\n";
		print STDOUT "$decalage            INLMNU(*SIGNOFF) +\n";
		print STDOUT "$decalage            TEXT('UTILISATEUR $_') +\n";
		print STDOUT "$decalage            SPCAUT(*JOBCTL *SPLCTL) +\n";
		print STDOUT "$decalage            JOBD(J75RITGDTA/JOBDITG) +\n";
		print STDOUT "$decalage            GRPPRF(VRUVR) +\n";
          	print STDOUT "$decalage            USROPT(*EXPERT *STSMSG *HLPFULL *PRTMSG)\n";
	}
}
print STDOUT "$decalage ENDPGM\n";
close(FILE);
# CRTUSRPRF USRPRF(YYY1)                              
#          USRCLS(*PGMR)                             
#          CURLIB(J75DITGDTA)                        
#          INLPGM(ARCN001C)                          
#          INLMNU(*SIGNOFF)                          
#          TEXT('utilisateur YYY1')                  
#          SPCAUT(*JOBCTL *SPLCTL)                   
#          JOBD(J75DITGDTA/JOBDITG)                  
#          GRPPRF(VRUVR)                             
#          USROPT(*EXPERT *STSMSG *HLPFULL *PRTMSG)