PDF EXPORT

Hi,

I want to export the every layers PDF. I used by below code its not working PDF is not generating any one please re correct the code or help me to get PDF by skill programing.

code:

 procedure(PDFEXP()
 l_cnvFiles = nil
    designName = axlCurrentDesign()
    foreach(filmName axlGetParam("artwork")->groupMembers
        f = strcat("PDF_" filmName)
        p = axlDMOpenFile("ALLEGRO_CNV" f "w")
        fprintf(p "#This is the Layer Conversion File used for\n")
        fprintf(p "#importing PDF data into Allegro/APD.\n\n")
        fprintf(p "#CLASS!SUBCLASS!PDF_LAYER!\n\n")
        foreach(layer axlGetParam(strcat("artwork:" filmName))->groupMembers
            layerStr = parseString(layer "/")
            fprintf(p "%s!\n%s!%s!\n\n" car(layerStr) cadr(layerStr) strcat(car(layerStr) "_" cadr(layerStr)))
        )
        fprintf(p "#END\n")
        push(get_filename(p) l_cnvFiles)
        axlDMClose(p)
        sprintf(cmd "pdf_out -$ -u MM -a 3 -f 12 -c L \"%s.cnv\" \"%s/%s_%s.pdf\" %%s" f getWorkingDir() designName filmName)
        axlRunBatchDBProgram("Creating PDF File" cmd ?warnProgram t ?noExitMsgs t)
    )
    errset(mapcar('deleteFile l_cnvFiles) t)
)