Lines Matching defs:dd
1159 register Jcldd_t* dd;
1182 if (dd = (Jcldd_t*)dtmatch(step->dd, name))
1184 jcl->lastdd = dd;
1187 else if (!(dd = vmnewof(jcl->vs, NiL, Jcldd_t, 1, 0)))
1192 else if (!(dd->name = stash(jcl, jcl->vs, name, 0)))
1194 else if (tok = strchr(dd->name, '.'))
1196 dd->reference = tok - dd->name;
1197 dd->flags |= JCL_DD_REFERENCE;
1201 dd->flags |= JCL_DD_SYSIN;
1202 if (!dd->disp[0])
1203 dd->disp[0] = JCL_DISP_OLD;
1207 dd->flags |= JCL_DD_SYSOUT;
1208 if (!dd->disp[0])
1209 dd->disp[0] = JCL_DISP_NEW;
1213 dd->flags |= JCL_DD_SYSERR;
1214 if (!dd->disp[0])
1215 dd->disp[0] = JCL_DISP_NEW;
1218 dd->flags |= JCL_DD_INCLUDE;
1220 else if (!(dd = jcl->lastdd))
1262 out->next = dd->out;
1263 dd->out = out;
1294 pd = (Jcldd_t*)dtmatch(step->dd, val);
1306 if (val && (streq(tok, "DSN") || streq(tok, "DSNAME")) || !val && (streq(tok, "DUMMY") && (val = dummy) && (dd->flags |= JCL_DD_DUMMY) || !jcl->pushed && tok != ST && (val = tok)))
1308 if (dd->flags & JCL_DD_DUMMY)
1310 dd->path = (char*)dummy;
1311 dd->cat = dd->last = 0;
1319 if (!dd->path || change)
1320 dd->path = name;
1329 if (dd->last)
1330 dd->last->next = cat;
1332 dd->cat = cat;
1333 dd->last = cat;
1341 if (!(dd->recfm & (JCL_RECFM_F|JCL_RECFM_V)))
1345 dd->recfm = pd->recfm;
1346 dd->lrecl = pd->lrecl;
1349 else if (n = pd ? pd->space : dd->space)
1351 dd->lrecl = n;
1352 dd->recfm |= JCL_RECFM_F;
1361 memcpy(dd->disp, pd->disp, sizeof(dd->disp));
1362 dd->lrecl = pd->lrecl;
1363 dd->recfm = pd->recfm;
1370 dd->flags |= JCL_DD_ALIAS;
1371 dd->path = stash(jcl, jcl->vs, pd ? ((pd->flags & JCL_DD_ALIAS) ? pd->path : pd->name) : val, 0);
1376 memcpy(dd->disp, pd->disp, sizeof(dd->disp));
1380 dd->disp[0] = JCL_DISP_NEW;
1382 dd->disp[0] = JCL_DISP_OLD;
1384 dd->disp[0] = JCL_DISP_SHR;
1386 dd->disp[0] = JCL_DISP_MOD;
1389 for (i = 1; i < elementsof(dd->disp) && (tok = jclparm(&val)); i++)
1392 dd->disp[i] = JCL_DISP_DELETE;
1394 dd->disp[i] = JCL_DISP_KEEP;
1396 dd->disp[i] = JCL_DISP_PASS;
1398 dd->disp[i] = JCL_DISP_CATLG;
1400 dd->disp[i] = JCL_DISP_UNCATLG;
1415 dd->lrecl = pd ? pd->lrecl : (int)strtol(val, NiL, 10);
1419 dd->recfm = pd->recfm;
1428 dd->recfm |= JCL_RECFM_A;
1431 dd->recfm |= JCL_RECFM_B;
1434 dd->recfm |= JCL_RECFM_D;
1437 dd->recfm |= JCL_RECFM_F;
1440 dd->recfm |= JCL_RECFM_M;
1443 dd->recfm |= JCL_RECFM_S;
1446 dd->recfm |= JCL_RECFM_U;
1449 dd->recfm |= JCL_RECFM_V;
1463 dd->flags |= pd->flags & JCL_DD_DIR;
1464 dd->space = pd->space;
1484 dd->flags |= JCL_DD_DIR;
1489 if (!dd->space)
1490 dd->space = (int)strtol(val - 1, NiL, 10);
1512 if (!(dd->here = stash(jcl, jcl->vs, s, 0)))
1514 dd->dlm[0] = d1;
1515 dd->dlm[1] = d2;
1522 if ((dd->flags & JCL_DD_INCLUDE) && dd->path && jclinclude(jcl, dd->path, JCL_PROC, NiL))
1524 if (dd->reference)
1526 if (dd->card)
1527 sfputr(jcl->tp, dd->card, -1);
1538 if (!(dd->card = stash(jcl, jcl->vs, s, 0)))
1544 else if (dd != jcl->lastdd && (dd->path || dd->here))
1546 if ((jcl->flags & JCL_MARKLENGTH) && dd->path && !dd->recfm && !dd->lrecl)
1547 marked(dd->path, dd, jcl->disc);
1549 else if (!(dd->flags & JCL_DD_ALIAS))
1551 jcl->lastdd = dd;
1552 dtinsert(step->dd, dd);
2166 register Jcldd_t* dd;
2184 step->dd = jcl->ds;
2186 dtclear(step->dd);
2199 for (dd = (Jcldd_t*)dtfirst(scope->step->dd); dd; dd = (Jcldd_t*)dtnext(scope->step->dd, dd))
2200 if (dd->reference && strneq(dd->name, step->name, dd->reference) && dd->name[dd->reference] == '.')
2202 if (!jcl->dp && !(jcl->dp = sfstropen()) || sfstrbuf(jcl->dp, dd->card, strlen(dd->card), 0))
2223 for (dd = (Jcldd_t*)dtfirst(step->dd); dd; dd = (Jcldd_t*)dtnext(step->dd, dd))
2224 if (dd->path && (dd->recfm & (JCL_RECFM_F|JCL_RECFM_V)) && dd->lrecl && !(dd->flags & JCL_DD_DIR))
2226 if (!streq(dd->path, dummy))
2228 dd->path = mark(dd->path, dd->recfm, dd->lrecl, jcl->disc);
2229 dd->flags |= JCL_DD_MARKED;
2231 for (cat = dd->cat; cat; cat = cat->next)
2233 cat->path = mark(cat->path, 0, dd->lrecl, jcl->disc);